Membuat Caption Form Berjalan Di Visual Basic 6.0

Membuat caption form berjalan ini cukup sederhana namun sangat berharga, jhaha…, hasilnya seperti yang kita lihat di caption blog blog, yang berjalan kian kemari tak tentu arah. Ok, untuk membuat captionnya berjalan masukkan sebuah timer ke dalam form dan ubah intervalnya menjadi 100, lalu masukkan coding berikut ke jendela form :

Dim Bergerak As Integer

Dim Teks As String

Private Sub Form_Load()

Teks = Me.Caption

End Sub

Private Sub Timer1_Timer()

Me.Caption = Bergerak

Teks = Right(Teks, Len(Teks) - 1) & Left(Teks, 1)

Me.Caption = Teks

End Sub

Setelah itu jalankan program (F5)

Membuat Teks Dalam Label Berjalan Di Visual Basic 6.0

Untuk membuat teks berjalan dalam label ini, masukkan 2 buah label ke dalam form, yaitu label1 dan label2, ubahlah captionnya sesuka hati, sehabis itu masukkan juga 2 buah timer dan tukar intervalnya menjadi 100, lalu masuk pada jendela coding dan masukkan coding berikut :

Dim Bergerak1 As Integer

Dim Teks1 As String

Dim Bergerak2 As Integer

Dim Teks2 As String

Private Sub Form_Load()

Teks1 = Label1

Teks2 = Label2

End Sub

Private Sub Timer1_Timer()

Label1 = Bergerak1

Teks1 = Right(Teks1, Len(Teks1) - 1) & Left(Teks1, 1)

Label1 = Teks1

End Sub

Private Sub Timer2_Timer()

Label2 = Bergerak2

Teks2 = Right(Teks2, 1) & Left(Teks2, Len(Teks2) - 1)

Label2 = Teks2

End Sub

Setelah itu jalankan program (F5), maka 1 label akan berjalan ke kanan dan satu lagi ke kiri…!!!

Membuat Label Berkedip Di Visual Basic 6.0

Untuk membuat label berkedip ini kita membutuhkan 2 buah label dan sebuah timer dalam form, dan buat captionnya terserah saja, dan ubah interval timer menjadi 250, lalu masuk jendela coding dan buatkan coding berikut :

Private Sub Timer1_Timer()

If Label1.Visible = True Then

Label1.Visible = False

Label2.Visible = True

ElseIf Label1.Visible = False Then

Label1.Visible = True

Label2.Visible = False

End If

End Sub

Selanjutnya jalankan program, nah aturlah interval timernya sesuai kebutuhan, semakin besar intervalnya maka label pun berkedip semakin lambat.

Membuat Form Visual Basic 6.0 Unload Ke Bawah

Membuat form unload ke bawah itu sebagai sebuah animasi saja supaya kelihatan lebih keren, ini fungsinya jika kita menekan tombol close pada form, maka form akan berjalan ke arah bawah monitor, lalu baru menghilang dari peredaran, untuk membuatnya cukup sederhana saja, masuk pada jendela coding form dan ubah eventnya menjadi unload, lalu ketikkan coding program berikut :

Private Sub Form_Unload(Cancel As Integer)

Do

Me.Top = Me.Top + 40

Me.Move Me.Left, Me.Top

DoEvents

Loop Until Me.Top > Screen.Height – 500

End Sub

Setelah itu jalankan program dan coba tutup, maka form akan berjalan kearah kanan.

Membuat Form Visual Basic 6.0 Muncul Dari Tengah Monitor Ke Atas & Bawah Monitor

Membuat form muncul dari tengah ke atas & bawah monitor ini sebagai sebuah animasi saja supaya kelihatan lebih keren, cara kerjanya saat kita menjalankan program, maka form akan timbul dari tengah layar monitor dan melebar ke atas dan bawah,  untuk membuatnya cukup sederhana saja, masukkan komponen timer ke dalam form dan ubah intervalnya menjadi 10, lalu masuk pada jendela coding form dan ketikkan coding program berikut :

Private Sub Form_Load()

Me.Height = 10

End Sub

Private Sub Timer1_Timer()

Me.Height = Me.Height + 100

Tengah

If Me.Height >= 3000 Then

Timer1.Enabled = False

Tengah

End If

End Sub

Public Sub Tengah()

Me.Left = (Screen.Width - Me.Width) / 2

Me.Top = (Screen.Height - Me.Height) / 2

End SubEnd Sub

Public Sub Tengah()

Me.Left = (Screen.Width - Me.Width) / 2

Me.Top = (Screen.Height - Me.Height) / 2

End Sub

Setelah itu jalankan program (F5)…!!!