Membuat Animasi Text Sederhana di Visual Basic

Ya sobat BM, kali ini saya akan berbagi bagaimana cara nya membuat animasi text pada VB tanpa flash atau juga tanpa membuat animasi gif. Cukup dengan sedikit script.

Oke langsung saja siapkan program Visual Basic anda dan mulai lah buat tampilan seperti dibawah ini.

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

Silahkan jalankan dan enjoy...!!

Cukup mudah kan??? Selamat mencoba ya.....  see u next post.

Artikel Yang mungkin  anda Cari :

·           Konversi Suhu Pada C++

·           Konsef IF Else dan Case
*       5 Tipe Data Dasaar Dalam Pemrograman