Membuat Caption Label Bergerak (VB)
:: Visual Basic
Halaman 1 dari 1
Membuat Caption Label Bergerak (VB)
by Agoeng_Jr Tue Dec 07, 2010 12:04 am
Temen - temen para programer VB ......terutama untuk yang masih awam seperti saya ini....hehe
Saya ingin berbagi sedikit tips untuk "Membuat Caption Label Bergerak"...maksud nya tu label nya bisa jalan - jalan.....tau deh jalan nya kemana..hehehe
Bagi yang berminat silahkan ikutin langkah ini, bagi yang sudah tau monggo di tambahin dan di benerin ....
- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- 1 Buah Control Label (Label1)
Ketik Coding dibawah ini pada Form Project
Udah deh...gitu aja kok script nya....Sekarang Coba fren jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian.Kalo ada salah mohon di konfirm ya...mohon di benerin ya....
Maklum namanya juga programmer kacangan...hehehe...Mudah-mudahan ada manfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya.
Semoga Sukses....
Saya ingin berbagi sedikit tips untuk "Membuat Caption Label Bergerak"...maksud nya tu label nya bisa jalan - jalan.....tau deh jalan nya kemana..hehehe
Bagi yang berminat silahkan ikutin langkah ini, bagi yang sudah tau monggo di tambahin dan di benerin ....
- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- 1 Buah Control Label (Label1)
Ketik Coding dibawah ini pada Form Project
- Spoiler:
- Dim ini As Integer, startini As Integer, panjang As Integer, text As Integer
Dim tulisanku As String
Private Sub Form_Load()
text= 1
End Sub
Private Sub Timer1_Timer()
ini= ini+ 1
If text= 1 Then
tulisanku= "Hei My Name is Agoeng_JR ..."
ElseIf text= 2 Then
tulisanku= " Siapa tuh yng bilang kalo gue gantang.. hahah.. pizz"
ElseIf text= 3 Then
tulisanku= "Thank you udah bilang gw ganteng.. heheheh"
End If
startini= Len(tulisanku)
Lengh = startini- ini
If Lengh = 0 Then
If text= 1 Then
text= 2
ElseIf text= 2 Then
text= 3
ElseIf text= 3 Then
text= 1
End If
ini= 0 - startini
End If
Label1 = Right(tulisanku, Lengh)
End Sub
Udah deh...gitu aja kok script nya....Sekarang Coba fren jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian.Kalo ada salah mohon di konfirm ya...mohon di benerin ya....
Maklum namanya juga programmer kacangan...hehehe...Mudah-mudahan ada manfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya.
Semoga Sukses....
Agoeng_Jr- Admin
- Jumlah posting : 142
Reputation : 9
Join date : 05.12.10
Age : 33
Lokasi : Macazzarct City -
Similar topics» tutor Membuat Injector + Picture
» Membuat Form Menjadi Transparant
» Tutorial membuat program trial pada Visual Basic
» Membuat Form Menjadi Transparant
» Tutorial membuat program trial pada Visual Basic
:: Visual Basic
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik|
|
|
