Gönderen Kişi Konu: Visual Basic 6.0 Titreyen Form Yapmak  (Okunma sayısı 2487 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Bsekici

  • Ziyaretçi
Visual Basic 6.0 Titreyen Form Yapmak
« : Ocak 17, 2014, 21:34:09 ÖS »

    
Titreyen Form Yapmak
Gerekenler:1 adet timer,1 adet HScroll

Kod: [Seç]
Dim tt As Boolean
Dim sY As Integer
Private Sub Form_Load()
Timer1.Interval = 10
HScroll1.Max = 500
sY = 100
End Sub
Private Sub HScroll1_Change()
sY = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
sY = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
If tt = True Then
Me.Top = Me.Top + sY
Me.Left = Me.Left + sY
tt = False
Else
Me.Top = Me.Top – sY
Me.Left = Me.Left – sY
tt = True
End If
End Sub


 


Visual Basic 6.0 Titreyen Form Yapmak konusuna ait benzer konular

Visual Basic 6.0 Kaçan Mouse
[code][code]Kaçan Mouse Gerekenler:1 adet command button *************************Private Const MOUSEEVENTF_ABSOLUTE = &H8000Pri... devamı...

Gösterim: 1646 - Yanıt: 0 - Başlatan:Bsekici
Visual Basic 6.0 Form Ekranına Desen Yapımı
[code]   Visual Basic 6.0 Form Ekranına Desen Yapımı     Form Ekranına Desen YapımıGerekenler:Yok*************************Option... devamı...

Gösterim: 1038 - Yanıt: 0 - Başlatan:Bsekici
Visual Basic 6.0 Animasyon Yapımı
[code]    Animasyon YapımıGerekenler:1 adet timer,1 adet label*************************Private Sub Form_Load()Timer1.Interval = ... devamı...

Gösterim: 1792 - Yanıt: 0 - Başlatan:Bsekici
Visual Basic 6.0 Hesap Makinesi
    Gerekenler:4 adet command,2 adet text, 1 adet label*************************[code]Private Sub Command1_Click()Label1.Caption... devamı...

Gösterim: 1188 - Yanıt: 0 - Başlatan:Bsekici
Visual Basic 6.0 Zıplayan Top
Visual Basic 6.0 Zıplayan Top    Gerekenler: 3 adet optionbutton,1 adet checkbox1 ,adet shape1 ,adet timer[code]Private Sub Chec... devamı...

Gösterim: 1334 - Yanıt: 0 - Başlatan:Bsekici