Jumat, 21 Oktober 2016


houston mesothelioma lawyers mesothelioma attorneys los angeles malignant mesothelioma pleural rate survival delaware mesothelioma lawyers asbestos attorneys philadelphia missouri mesothelioma lawyers mesothelioma lawyers houston asbestos lawyers los angeles illinois mesothelioma lawyers houston mesothelioma attorney colorado mesothelioma lawyers mesothelioma attorneys san diego georgia mesothelioma lawyer asbestos law suits mesothelioma attorneys california california mesothelioma attorneys detroit personal injury attorney student loan consilidation fort worth dwi lawyer tennessee mesothelioma lawyer diffuse malignant pleural mesothelioma irs debt attorney applied foundation mesothelioma research dallas dwi lawyers oklahoma city personal injury attorney mesothelioma lawyers california hawaii car accident lawyer houston dwi attorney mesothelioma applied research foundation houston mesothelioma mesothelioma houston michigan personal injury lawyer ca car donations car donations ca california mesothelioma lawyers wrongful death attorney los angeles illinois mesothelioma attorney dui attorneys los angeles los angeles dui attorneys college student loan consolidation mesothelioma washington attorney washington mesothelioma attorney mesothelioma attorney ohio ohio mesothelioma attorney georgia mesothelioma lawyers colorado mesothelioma attorneys asbestos law firm oklahoma personal injury attorney colorado accident lawyers michigan personal injury attorney

Visual Basic: Membuat Teks/Label Berjalan Pada Form

Untuk membuat animasi text atau dalam hal ini adalah teks berjalan, kalian tepat sekali berkunjung ke IMANIAWAN.ID. Langsung saja ya, di bawah ini contoh form sederhana untuk membuat teks berjalan:

 Visual Basic: Membuat Teks/Label Berjalan Pada Form

Catatan: 
-Tambahkan satu komponen label pada form, lalu rubah properties namenya menjadi => textimaniawan
-Tambahkan 1 buah komponen timer. Rubah properties interval pada komponen timer menjadi => 100. 

Silahkan praktekkan cara di bawah tinggal pilih saja mau yang berjalan ke atas, bawah, kanan ataupun kiri.

1. Teks Berjalan Ke Atas

Private Sub Timer1_Timer()
textimaniawan.Top = textimaniawan.Top - 100
If textimaniawan.Top <= 0 Then
Timer1.Enabled = True
textimaniawan.Top = "3000"
End If
End Sub

2. Teks Berjalan Ke Bawah 

Private Sub Timer1_Timer()
textimaniawan.Top = textimaniawan.Top + 100
If textimaniawan.Top >= 3000 Then
Timer1.Enabled = True
textimaniawan.Top = "-3000"
End If
End Sub

3. Teks Berjalan Ke Kanan

Private Sub Timer1_Timer()
textimaniawan.Left = textimaniawan.Left + 100
If textimaniawan.Left >= 4500 Then
Timer1.Enabled = True
textimaniawan.Left = "-4500"
End If
End Sub

4. Teks Berjalan Ke Kiri

Private Sub Timer1_Timer()
textimaniawan.Left = textimaniawan.Left - 100
If textimaniawan.Left <= -4500 Then
Timer1.Enabled = True
textimaniawan.Left = "4500"
End If
End Sub

Semoga Bermanfaat

1 comments so far

Bisa dicoba ni gan buat referensi, ditunggu kunjungan baliknya
http://carakuvb6.blogspot.com


EmoticonEmoticon