Visual Basic 6.0

Membuat Connection String VB 6.0 dengan Access

Public Conn As New ADODB.Connection               ————>> membuat variable koneksi baru
Public RSB As ADODB.Recordset            ———————–>> membuat variable recordset

Public Sub BukaDB()            ————————————–>> membuat metode pemanggilan
Set Conn = New ADODB.Connection
Set RSB = New ADODB.Recordset

Conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\DBBarang.mdb;Jet OLEDB:Database Password=Bismillah”
End Sub

Program Font Manipulasi

Program Font mensimulasikan pilihan huruf di mana Anda bisa
memilih berbagai macam huruf dengan atributnya. Program ini akan
menggunakan kontrol text box, combo box, label, frame, check box,
dan command button. Kesemua objek tersebut dibuat ha nya dengan
beberapa langkah singkat pada Visual Basic.
Ikuti langkah berikut untuk membuat program Font:

1. Jalankan Visual Basic lalu buka project Standard EXE baru.

Jika lingkungan pemrograman Visual Basic sudah berjalan,
pada menu File, klik New Project untuk membuka project
Standard EXE baru.

2. Tambahkan beberapa kontrol dan a tur lokasinya seperti
gambar di bawah ini :

Catatan: Untuk membuat kontrol combo box seperti gambar
di atas, Anda harus menarik pada bagian bawah dari kontrol
combo box.

3. Setting properti kontrol dengan nilai dalam tabel di bawah
ini :

4. Ketikkan kode program di bawah ini pada Form1:
Private Sub Form_Load()
Dim i As Integer
‘ Isi Combo1 dengan nama font
For i = 0 To Screen.FontCount – 1
Combo1.AddItem Screen.Fonts(i)
Next
‘ Pilih daftar item pertama
Combo1.ListIndex = 0
‘ Isi Combo2 dengan font style
With Combo2
.AddItem “Regular”
.AddItem “Italic”
.AddItem “Bold”
.AddItem “Bold Italic”
.ListIndex = 0
End With
‘ Isi Combo2 dengan ukuran font
For i = 8 To 24 Step 2
Combo3.AddItem i
Next
Combo3.ListIndex = 0
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()

Unload Me
End Sub
‘ Ubah nama font
Private Sub Combo1_Click()
Local_Change_Font
End Sub
Private Sub Combo2_Click()
Local_Change_Font
End Sub
Private Sub Combo3_Click()
Local_Change_Font
End Sub
‘ Rutin/Prosedur untuk merubah font
Private Sub Local_Change_Font()
‘ cek parameter size
If Not IsNumeric(Combo3) Then
Exit Sub
End If
‘ Ubah font
With Label4.Font
.Name = Combo1 ‘ Nama font
.Size = Val(Combo3) ‘ Ukuran font
‘ Attribut font
Select Case Combo2
Case “Regular”
.Italic = False
.Bold = False
Case “Italic”
.Italic = True
.Bold = False
Case “Bold”
.Bold = True
.Italic = False
Case “Bold Italic”
.Bold = True

.Italic = True
End Select
End With
End Sub
5. Kini simpan project Anda di folder c:\SES\Font dan jalankan
program Anda untuk melihat bagaimana cara kerja
program Font.
Klik tombol Start pada toolbar, atau dengan menekan
tombol F5. Program dijalankan pada lingkungan pemrog –
raman. Pilih nama, efek, dan ukuran font. Anda dapat
melihat perubahan font pada kotak Sample.

6. Tutup form dengan menekan tombol Close pada title bar
untuk menghentikan program.

Selamat Mencoba…