Source code berikut untuk mengoneksikan MySQL dengan VB 6.
Menggunakan MySQL ODBC 3.51 Driver sebagai penghubung antara VB dan
MySQL nya.
Simpan source code berikut di Module :
Simpan source code berikut di Module :
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontUnderline = Check2.Value
End Sub
Private Sub Check4_Click()
Label2.FontItalic = Check3.Value
End Sub
Private Sub Check3_Click()
Label2.FontItalic = Check3.Value
End Sub
Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
Label2.Caption = Clear
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Option1_Click()
Label2.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbYellow
End Sub
Private Sub Option3_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option4_Click()
Label2.ForeColor = vbBlack
End Sub
Private Sub Option5_Click()
Label2.ForeColor = vbGreen
End Sub
Private Sub VScroll1_Change()
Label2.AutoSize = VScroll1.Value
End Sub