Blog e Mas A'an

Do More Get More

Entries for June, 2008

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

Me Non Aktifkan Maximize di MDI Form

Blog Lain: Simple ActionScript 3 animation examples, a bunch of Words, punctuated – by Paul Robertson (http://probertson.com/) Requirement of Software Engineers at GWL Software Pvt Ltd … | Jobs in india YG Entertainment trainer celebrates Taeyang’s victory How to create MDI FORM in d2k? JURUS CERDAS BERINVESTASI YG TAK KENAL MASA KRISIS

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