Membaca File Ms Excel dengan VB6

Tabel pada Ms Excel sangat sering dipergunakan dalam laporan kerrja sehari-hari, tak jarang digunakan pula untuk keperluan lain dalam pengolahan database (Ms SQL, MS Access dll).

Dengan menggunakan Program sederhana VB6 berikut ini, data Ms Excel dapat dibaca sehingga dapat tersebut dapat dimasukkan kedalam database tersebut.

Selengkapnya bisa di donwload di sini...

Sliding Teks

Ide membuat Sliding teks ini terinspirasi dari iklan berbentuk banner yang sering muncul di halaman-halaman web. Dengan VB6 hal ini juga dapat dibuat, dengan memanfaatkan beberapa componen control, maka bentuk banner dapat dibuat dengan mudah.

Untuk membuat Sliding teks, dibutuhkan 3 komponen untuk proyek ini. Pertama picture box, label dan command Button.
1. Picture Box : digunakan untuk membuat frame teks, sehingga posisi teks sebagai fokus utama tidak berubah walaupun dipindahkan ke tempat lain.
2. Label1 : digunakan untuk fokus utama banner.
3. command button : Untuk menggerakan posisi banner

Pertama, buatlah satu projek di VB, lalu letakkan komponen picture box pada form tersebut.
Tambahkan komponen label didalam komponen picture box tadi. lalu tambahkan lima buah komponen. lihat gambar berikut :
selanjutnya tambahkan kode program untuk masing-masing command button.

Dim i As Integer, nT As Integer, nL As Integer, J As Integer
Private Sub cmdKanan_Click()
For i = Label1.Left To 8000
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub cmdKiri_Click()
For i = Label1.Left To -5500 Step -1
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub cmdNaik_Click()
For i = Label1.Top To -850 Step -1
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub



Private Sub cmdNormal_Click()
Label1.Top = 870
Label1.Left = 600
End Sub
Private Sub cmdTurun_Click()
For i = Label1.Top To 3000
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub Form_Load()
nT = 0
nL = 0
End Sub

Merubah Default Printer saat run time di VB

Untuk merubah default printer pada saat runtime di VB sangat sederhana. ikuti langkah berikut ini :
1. Buat satu file project di VB
2. Lalu tambahkan satu tombol button
3. reference ke c:\windows\system32\wshom.ocx
4. tambahkan kode Program berikut ini

Private Sub Command1_Click()
Dim MyPrinter As New WshNetwork
MsgBox "Printer yg aktif sekarang -> " & Printer.DeviceName
MyPrinter.SetDefaultPrinter ("hp color LaserJet 2550 PCL 6") '
MsgBox "Printer yg aktif sekarang ->" & Printer.DeviceName
End Sub