Dasar- Dasar Visual Basic

Ini ada sebuah tip menarik untuk mempercantik tampilan aplikasi yang kita buat. Dimana caption dari form yang kita gunakan akan berjalan dari kanan kekiri secara terus menerus.

Jika anda berfikir kode yang digunakan akan ribet dan banyak, maka tidak demikian, kode yang digunakan sangat sederhana karena hanya melibatkan beberapa fungsi dasar saja diantaranya fungsi Left yang digunakian untuk mendapatkan karakter dari sebelah kiri, lau ada fungsi Right yang berfungsi untuk mencari karakter yang dimulai dari sebelah kanan serta fungsi Len yang dipakai untuk mendapatkan panjang karakter.
Mencari TextBox Kosong Dengan Perulangan
Listingnya :

Private Sub CekTextBoxKosong()
Dim ctrAs Control

For Each ctr In Me.Controls
If TypeOf ctr Is TextBox Then
If ctr.Text= vbNullString Then
MsgBox "Textbox ini kosong"

ctr.SetFocus

Exit Sub

End If
End If
Next ctr

End Sub

Perintah DOS pada Visual Basic 6.0
Listingnya :

Private sub command1_click()

sYourCommand="copy C:\vb.txt D:\vb.txt"
shell "cmd \c " & sYourCommand

End Sub

Marquee Form Caption
Listingnya :

Private Sub Form_Load()
Form1.Caption = " [ Belajar VB 6.0 ] "
End Sub

Private Sub Timer1_Timer()
a = Left(Form1.Caption, 1)
b = Len(Form1.Caption)
c = Right(Form1.Caption, b - 1)
Form1.Caption = c + a
End Sub


Tunggu Selengkapnya,.,.. Masih dalam Pembaharuan..