Senin, 14 April 2014
Browse Manual »
Wiring »
animasi
»
membuat
»
sederhana
»
text
»
trik
»
vb
»
Trik VB Membuat Animasi Text Sederhana
Trik VB Membuat Animasi Text Sederhana
Trik VB Membuat Animasi Text Sederhana - Trik VB kali ini aku akan berbagi informasi mengenai cara membuat animasi text sederhana. Berikut contoh form nya:
Keterangan :
Form1 Properties :
Back color = vb black
Border style = 0 – None
Label1 Properties
Caption = selamat datang di program sederhana untuk membuat animasi text sederhana dengan VB dari Blog Mini Indonesia
Backstyle = 0 - transparent
Atau sesuka anda saja, bebas gak ada undang undang nya kok.
Label2 Properties
Caption = WELCOME IN MY PROGRAM
Font size = 16 bold arial
Fore color = vbyellow
Autosize = true
Backstyle = 0- transparent
Label3 Properties
Caption = Klik Next Untuk Tutup Untuk Mengakiri
Font size 14 reguler MS sans serif
Autosize = true
Backstyle = 0- transparent
Label4 Properties
Caption = Tutup (ganti saja next dengan tutup)
Font size 12 Underline System
Autosize = true
Backstyle = 0- transparent
Timer1 dan Timer2 Properties
Interval = 100
Setelah mengubah semua properties masing masing silahkan anda masukan listing code berikut di form program dengan double klik pada form.
Listingnya sebagai berikut :
Private Sub Form_Load()
Label2.Height = 10
Label1.Visible = False
Label3.Visible = False
Label4.Visible = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label4.ForeColor = vbWhite
Label4.FontSize = 16
End Sub
Private Sub label3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label4.ForeColor = vbWhite
Label4.FontSize = 16
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label4.ForeColor = vbYellow
Label4.FontSize = 20
End Sub
Private Sub Label4_Click()
Unload me
End Sub
Private Sub label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label4.ForeColor = vbWhite
Label4.FontSize = 16
End Sub
Private Sub Timer1_Timer()
Label2.Height = Label2.Height + 100
Tengah
If Label2.Height >= 3500 Then
Timer1.Enabled = False
Tengah
Label1.Visible = True
End If
End Sub
Public Sub Tengah()
Label2.Left = (sambutan.Width - Label2.Width) / 2
Label2.Top = (sambutan.Height - Label2.Height)
End Sub
Private Sub Timer2_Timer()
If Label2.Height >= 3500 Then
Label4.Visible = True
If Label3.Visible = True Then
Label3.Visible = False
ElseIf Label3.Visible = False Then
Label3.Visible = True
End If
End If
End Sub
Selamat Mencoba dan Semoga Bermanfaat..
sumber: http://blog-mini-indo.blogspot.com/2010/10/membuat-animasi-text-sederhana-di.html
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar