Visual Basic Dasar

Bagian pertama ini akan menguraikan hal-hal yang sifatnya
esensial dalam pemrograman Visual Basic. Meskipun
dikatakan esensial, namun kita tidak boleh menyepelekan
begitu saja. Pada kenyataannya, teknik-teknik dasar yang
mungkin dianggap sepele seringkali mampu menyelesaikan
berbagai persoalan pelik. Oleh karena itu, untuk memudahkan
pembuatan program tingkat lanjut, akan lebih baik
jika kita sudah memiliki bekal dasar.
lihat selengkapnya

Belajar VB

Visual Basic merupakan salah satu bahasa pemrograman
yang paling banyak digunakan saat ini. Penggunaannya
tidak hanya terbatas pada pembuatan
aplikasi-aplikasi baru saja, melainkan juga untuk
mengembangkan aplikasi-aplikasi yang sudah ada.
Dalam buku keempat ini, Anda akan menemukan
banyak sekali tip trik unik yang sangat menarik untuk
dipelajari. Sebagian besar dari tip trik tersebut bisa
Anda gunakan untuk melengkapi aplikasi-aplikasi
yang sudah Anda buat agar tampak lebih istimewa.
liat selengkapnya

Bermain Animasi Dengan VB

Dim FrameCount As Long

Private Sub Command1_Click()
Timer1.Enabled = False
If LoadGif(Text1, Image1) Then
FrameCount = 0
Timer1.Interval = CLng(Image1(0).Tag)
Timer1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

Text1.Text = App.Path & IIf(Right(App.Path, 1) = “\”, “”, “\”) & “clip.gif”
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If FrameCount < TotalFrames Then Image1(FrameCount).Visible = False FrameCount = FrameCount + 1 Image1(FrameCount).Visible = True Timer1.Interval = CLng(Image1(FrameCount).Tag) Else FrameCount = 0 For i = 1 To Image1.Count – 1 Image1(i).Visible = False Next i Image1(FrameCount).Visible = True Timer1.Interval = CLng(Image1(FrameCount).Tag) End If End Sub Dim opcolor As String Dim opcolor2 As String Private Sub cmdfolder_Click() folder = BrowseForFolder(folder, Me.hwnd, “&Select a directory:”) Command4_Click End Sub Private Sub Command1_Click() folder = BrowseForFolder(folder, Me.hwnd, “&Select a directory:”) If folder = “” Then Exit Sub End If wrt$ = “{BE098140-A513-11D0-A3A4-00C04FD706EC}” r% = WritePrivateProfileString(wrt$, “IconArea_Image”, vbNullString, (folder.Text) + “\desktop.ini”) r% = WritePrivateProfileString(wrt$, “IconArea_text”, vbNullString, (folder.Text) + “\desktop.ini”) If r% = 1 Then FileAttribHide folder.Text & “\desktop.ini” setFolderRead folder.Text Label18.Caption = “XXXXXXXXXXXXXXXXXXXXXXXXXXXXX” End If End Sub Private Sub Command2_Click() If Command2.Caption <> “&Finish” Then
If MsgBox(“Exit the wizard without completion !”, 64 + vbYesNo) = vbYes Then
End
End If
Else
MsgBox “This Wizard has been developed by Ramky for more goodies visit http://www.programmervb.wordpress.com “, 64
End
End If
End Sub

Private Sub Command3_Click()
If folder.Text = “” Then
cmdfolder_Click
Else
wrt$ = “{BE098140-A513-11D0-A3A4-00C04FD706EC}”
r% = WritePrivateProfileString(wrt$, “IconArea_Image”, (img.Text), (folder.Text) + “\desktop.ini”)
r% = WritePrivateProfileString(wrt$, “IconArea_text”, opcolor, (folder.Text) + “\desktop.ini”)
If r% = 1 Then
FileAttribHide folder.Text & “\desktop.ini”
setFolderRead folder.Text
Command3.Enabled = False
Command2.Caption = “&Finish”
Label14.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Label14.Visible = False
textcolor.Visible = False
img.Visible = False
folder.Visible = False
Command5.Visible = False
Command4.Visible = False
Line3.Visible = False
cmdfolder.Visible = False
Label18.Visible = True
Label19.Visible = True
Label13.Visible = True
End If
If r% <> 1 Then MsgBox “Error in writing”, vbCritical
GoTo nex
back = 1
nex:
If back = 1 Then
Command1.Enabled = True
cmdfolder.Enabled = True
Frame1.Visible = False
Frame2.Top = -120
Frame2.Left = -120
Frame2.Visible = True
back = 2
End If
End If
End Sub

Private Sub Command4_Click()
CommonDialog1.CancelError = False
CommonDialog1.DialogTitle = “Select Your Picture”
CommonDialog1.Filter = “jpeg(*.jpg)|*.jpg|png(*.png)|*.png|Gif(*.Gif)|*.Gif|Bitmap(*.bmp)|*.bmp” ‘|MID(*.mid)|*.mid|AU(*.au)|*.au|”
CommonDialog1.FileName = “”
CommonDialog1.ShowOpen
img = CommonDialog1.FileName
Command5_Click
End Sub

Private Sub Command5_Click()
CommonDialog1.CancelError = False
CommonDialog1.Flags = 3
CommonDialog1.ShowColor
opcolor = CommonDialog1.Color
textcolor.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command6_Click()
CommonDialog1.CancelError = False
CommonDialog1.Flags = 3
CommonDialog1.ShowColor
opcolor2 = CommonDialog1.Color
End Sub

Private Sub Form_Load()
Height = 6330
Width = 8160
End Sub

Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Visual basic