Hafta içi her gün 20:00 - 22:00 arası "DJ ÖZEL" ile "Keyf-i Müzik" programını dinlemek için TIKLAYINIZ

Hafta sonu 15:00 - 18:00 arası "DJ EMRE" ile "Müzik Ekspres" programını dinlemek için TIKLAYINIZ

Canlı yayını dinlemek için bilgisayarınızda WINAMP kurulu olmalıdır.WINAMP indirmek için TIKLAYINIZ
forumENA - Knight Online , KOXP

 

Form üzerinde gelişi güzel hareket eden top

Visual Basic içinde Form üzerinde gelişi güzel hareket eden top konusu , Forma bir adet shape nesnesi ve bir adet timer eklemek yeterlidir.Shape nesnesinin shape özelliğini properties penceresinden 3-circle olarak değiştirerek bir top haline getirin… Dim sag, yuk As Boolean Private Sub ...







Geri Dön   forumENA - Knight Online , KOXP > Program , Programlama, İnternet > Programlama > Visual Basic

Form üzerinde gelişi güzel hareket eden top Form üzerinde gelişi güzel hareket eden top

KAYIT OL Yönetim Takımı Üye Listesi Tüm konuları okunmuş kabul et

Cevapla

 

Konu Yönetim Seçenekleri Konu Gösterim Seçenekleri
Eski 23-04-2007, 11:05   #1 (permalink)
EN Afilli
 
r@nger - ait Avatar
 
Üyelik Tarihi: 26-10-2006
Yer: r@nger was here...
Mesajlar: 1,459
Rep Gücü: 62
Rep Puanı: 2207
r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8
r@nger - MSN üzerinden mesaj gönder
Tanımlı Form üzerinde gelişi güzel hareket eden top

Forma bir adet shape nesnesi ve bir adet timer eklemek yeterlidir.Shape nesnesinin shape özelliğini properties penceresinden 3-circle olarak değiştirerek bir top haline getirin…



Dim sag, yuk As Boolean



Private Sub Form_Load()

sag = False

yuk = False

Shape1.Left = 250

Shape1.Top = 250

Shape1.Width = 400

Shape1.Height = 400

Timer1.Interval = 12

End Sub



Private Sub Timer1_Timer()

If yuk = True Then

Shape1.Top = Shape1.Top - 100

Else

Shape1.Top = Shape1.Top + 250

End If

If sag = True Then

Shape1.Left = Shape1.Left - 100

Else

Shape1.Left = Shape1.Left + 250

End If

If Shape1.Left < 0 Then

sag = False

End If

If Shape1.Left > Form1.Width - Shape1.Width Then

sag = True

End If

If Shape1.Top < 0 Then

yuk = False

End If

If Shape1.Top > Form1.Height - Shape1.Height Then

yuk = True

End If

End Sub

__________________
Geri döndüm
r@nger isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Eski 30-11-2007, 14:01   #2 (permalink)
EN Atak
 
mehmetcem - ait Avatar
 
Üyelik Tarihi: 08-06-2007
Mesajlar: 619
Rep Gücü: 28
Rep Puanı: 451
mehmetcem Rütbe: +6mehmetcem Rütbe: +6mehmetcem Rütbe: +6mehmetcem Rütbe: +6mehmetcem Rütbe: +6
Tanımlı Cevap: Form üzerinde gelişi güzel hareket eden top

bu yazıyı napcaz

__________________


K∂ﻞmۼR∂Ŋ FuN cLuB .. K∂ﻞmۼR∂Ŋ GeRi GeLL.....
mehmetcem isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Cevapla

« Önceki Konu | Sonraki Konu »
Konu Yönetim Seçenekleri
Konu Gösterim Seçenekleri
Normal şekilde göster Normal şekilde göster

Yetkileriniz
Yeni konu açamazsınız
You may not post replies
Mesajınıza dosya ekleyemezsiniz
Mesaj düzenleme yapamazsın
BB code is Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı









| fx15 | neyapak | Doğum | Oyunlar |
forumENA sistem saati: 19:32

İletişim - forumENA - Knight Online , KOXP - Arşiv - forumENA Kuralları - Yukarı Git

Powered by vBulletin Version 3.7.4
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.2.0
-------------------------------------------------------------------------
Türkçeleştirme izmirlinihat tarafından yapılmaktadır
forumENA sitesi ENAhosting© tarafından barındırılmaktadır