Blog e Mas A'an

Do More Get More

Entries Tagged ‘End’

Membuat Pop Up Menu Klik Kanan, Visual Basic 6.0

Apakah yang dimaksud dengan Pop Up menu ? Pop Up menu merupakan menu khusus yang ditampilkan untuk mempercepat akses ke menu, biasanya Pop Up dapat tampil saat mouse melintasi suatu obyek (event mouse over),atau saat kita mengklik kanan mouse. Tips kali ini membahas bagaimana membuat menu yang tampil ketika mouse mendapat event klik kanan (event [...]

Comments (1)

Melihat Mac Address VB

Oke Langsung Saja Klo kita ingin melihat cara melihat Mac Address Menggunakan Bahasa Pemrogaman Visual Basic 6 maka berikut langkah-langkah nya. 1. Buat Project Di Visual Basic 2. Buat Form 3. Buat Command Button bernama Command1 nah setelah itu copy script berikut ke form VB Option Explicit Private Const NCBASTAT = &H33 Private Const NCBNAMSZ [...]

Leave a Comment

Menampilkan daftar nama printer yang terinstall di suatu komputer

Apabila kita ingin menampilkan daftar printer yang ter install di komputer kita maka berikut contoh kodding nya : Keterangan ‘Set property Style ComboBox menjadi “2 – Dropdown List”. Dim Ptr As Printer ‘Deklarasi objek printer Private Sub Form_Load() If cboPrinter.ListCount = 0 Then For Each Ptr In Printers cboPrinter.AddItem Ptr.DeviceName Next End If cboPrinter.Text = [...]

Leave a Comment

Menampilkan daftar nama printer yang terinstall di suatu komputer

Apabila kita ingin menampilkan daftar printer yang ter install di komputer kita maka berikut contoh kodding nya : Keterangan ‘Set property Style ComboBox menjadi “2 – Dropdown List”. Dim Ptr As Printer ‘Deklarasi objek printer Private Sub Form_Load() If cboPrinter.ListCount = 0 Then For Each Ptr In Printers cboPrinter.AddItem Ptr.DeviceName Next End If cboPrinter.Text = [...]

Leave a Comment

Memeriksa Apakah Printer Terinstall di PC

Apablila kita ingin memeriksa apakah printer telah ter install di komputer kita atau belum, berikut contoh coddning nya: Public Function IsPrinterInstalled() As Boolean ‘coding ini shrsnya jika error lanjut saja, sengaja dihilangkan spy dapat diupload ke brinkster Dim strDummy As String strDummy = Printer.DeviceName If Err.Number Then PrinterInstalled = False Else PrinterInstalled = True End [...]

Leave a Comment

Menghitung Jumlah Substring dalam String

Biasanya kita ingin menhitung jumlah atau banyak sring dalam sauatu string tertentu, berikut ini merupakan contoh nya : ‘Contoh ini akan menunjukkan bahwa string ‘is’ muncul 2 kali dalam string ‘this is my string’. ‘Coding ini menggunakan fungsi ‘split’ yang hanya terdapat mulai Visual Basic 6.0 ke atas. Private Sub Form_Load() myString = “this is [...]

Leave a Comment