| Rabu, 17 Februari 2010 |
| Cara membuat tulisan bergerak dari atas ke bawah |
Buat Form baru, letakkan satu kontrol Label dan Timer. Set interval timer menjadi 10. Lalu ketik kode ini :
Kode:
Private Sub Timer1_Timer()
Static Atas As Boolean
Label1.Top = Label1.Top + IIf(Atas, -50, 50)
If Label1.Top < 0 Then
Atas = False
ElseIf Label1.Top > Me.Height - Label1.Height - 300 Then
Atas = True
End If
End Sub |
Slid down the rainbow at 22.27  |
|
|
|
|
| Where To? |
|
| Posts of Note |
|
|
| About me |
|
simpel ja,pendiem,ska ngemil,ska mlihara kucig,pling g ska d omelin,pkokny gni wes)...
|
| Links |
|
|
|
Posting Komentar