Cara Menampilan Daftar/List Printer yang Terinstall Di Komputer VB6

Berikut ini adalah cara menampilkan daftar nama printer yang terinstall di komputer ke dalam combobox dan menampilkan nama printer default-nya di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 ComboBox.
2. Set property Style ComboBox menjadi "2 - Dropdown List".
3. Copy-kan coding berikut ke dalam editor form yang bertalian.

          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 = Printer.DeviceName  'Tampilkan printer defaultnya.
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Cara Menampilkan Semua Menu Control Panel (CPL) dan Cara Membukanya VB6

Berikut ini adalah cara menampilkan semua menu control panel dan membukanya di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 22 commandbutton.
2. Copy-kan source code berikut ke dalam editor form ybt.

          Private Sub Command1_Click
            'Menampilkan Control Panel
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)
          End Sub

          Private Sub Command2_Click
            'Menampilkan Accessibility Properties
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl", vbNormalFocus)

          End Sub

          Private Sub Command3_Click
            'Menampilkan Add/Remove Programs
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)
          End Sub

          Private Sub Command4_Click
            'Menampilkan Display Settings (Background)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)
          End Sub

          Private Sub Command5_Click
            'Menampilkan Display Settings (Screensaver)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)
          End Sub

          Private Sub Command6_Click

            'Menampilkan the Display Settings (Appearance)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)
          End Sub

          Private Sub Command7_Click
            'Menampilkan the Display Settings (Settings)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)
          End Sub


          Private Sub Command8_Click
            'Menampilkan Internet Properties
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", vbNormalFocus)
          End Sub

          Private Sub Command9_Click
            'Menampilkan Regional Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)

          End Sub

          Private Sub Command10_Click
            'Menampilkan Joystick Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)
          End Sub

          Private Sub Command11_Click
            'Menampilkan Mouse Settings

            Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)
          End Sub

          Private Sub Command12_Click
            'Menampilkan Keyboard Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)
          End Sub

          Private Sub Command13_Click
            'Menampilkan Printers
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)
          End Sub

          Private Sub Command14_Click
            'Menampilkan Fonts

            Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)
          End Sub

          Private Sub Command15_Click

            'Menampilkan Multimedia Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus)
          End Sub

          Private Sub Command16_Click
            'Menampilkan Modem Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
          End Sub

          Private Sub Command17_Click
            'Menampilkan Dial-Up Networking Wizard (pada Win9x)
            Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)
          End Sub

          Private Sub Command18_Click
            'Menampilkan System Properties
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)
          End Sub

          Private Sub Command19_Click
            'Menjalankan 'Add New Hardware' Wizard (pada Win9x)
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)
          End Sub

          Private Sub Command20_Click
            'Menampilkan 'Add New Printer' Wizard (pada Win9x)
            Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus)
          End Sub

          Private Sub Command21_Click
            'Menampilkan Themes Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL themes.cpl", vbNormalFocus)
          End Sub

          Private Sub Command22_Click
            'Menampilkan Time/Date Settings
            Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Memeriksa Tombol Keyboard Saat KeyDown, KeyPress dan KeyUp VB6

Berikut ini adalah cara memeriksa tombol keyboard saat event KeyDown, KeyPress dan KeyUp di Form di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form.
2. Copy-kan coding berikut ke editor form yang bertalian.

          Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

              Dim msg As String
              frmForm1.Cls
              frmForm1.CurrentX = 100
              frmForm1.CurrentY = 100

              msg = "Mendapat event KeyDown.    KeyCode = " & KeyCode
              msg = msg & "    Shift = " & Shift
              frmForm1.Print msg
          End Sub

          Private Sub Form_KeyPress(KeyAscii As Integer)
              Dim msg As String
              frmForm1.CurrentX = 100
              frmForm1.CurrentY = 500

              msg = "Mendapat event KeyPress.    KeyAscii = " & KeyAscii
              frmForm1.Print msg
          End Sub

          Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
              Dim msg As String
              frmForm1.CurrentX = 100
              frmForm1.CurrentY = 900

              msg = "Mendapat event KeyUp.    KeyCode = " & KeyCode
              msg = msg & "    Shift = " & Shift
              frmForm1.Print msg
          End Sub

          Private Sub Form_Load()
              frmForm1.FontTransparent = False
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Membuat Garis (Line) Saat Print/Cetak Data VB6

Berikut ini adalah cara untuk menambahkan garis atau mencetak garis saat melakukan cetak/print data di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Public Sub PrintLine(Width As Single)
              Printer.Line (0, Printer.CurrentY)-(Printer.ScaleWidth, _
                 Printer.CurrentY + Width), , BF
              'Gunakan perintah EndDoc jika garis ini adalah garis terakhir
              'yang akan Anda cetak ke dalam kertas
              Printer.EndDoc
          End Sub

          Private Sub Command1_Click()
              'Ganti 40 di bawah dengan lebar garis yang Anda inginkan.
              PrintLine (40)
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Print All Data In RichTextBox VB6

Berikut ini adalah cara menge-print semua data pada richtextbox di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton
2. Copy-kan coding berikut ke dalam editor form yang bertalian

          Private Sub Command1_Click()
            Printer.FontName = "Courier New"   'Jenis huruf
            Printer.FontSize = "9"             'Ukuran huruf
            Printer.Print RichTextBox1.Text    'Cetak seluruhnya ke printer
            Printer.EndDoc                     'Akhir pencetakan
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Print Text Only In RichTextBox VB6

Berikut ini adalah cara untuk menge-print isi dari richtextbox (print hanya text nya saja, tidak print gambar atau garis) di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, dan 1 RichTextBox.
2. RichTextBox dapat Anda ambil dari Components:  "Microsoft Rich TextBox Control X.0"

          Private Sub Command1_Click()
              Call RichTextBox1.SelPrint(Printer.hdc)
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Membuat AutoClose Jika Form Tidak Digunakan VB6

Berikut ini adalah cara memeriksa apakah aplikasi sedang digunakan (aktif) atau tidak (tidak aktif). Jika tidak sedang digunakan selama sekian detik, maka aplikasi langsung keluar.(seperti ScreenSaver Windows). di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 project baru dengan 1 form.
2. Tambahkan 1 Timer dan 2 Textbox
3. Copy-kan source code ini ke dalam editor form yang betalian

          Dim awal As Date
          Dim Gerak As Boolean
          Dim Aksi As Boolean

          Private Sub Form_Load()
            'Inisialisasi semua variabel dan Timer
            Gerak = False
            Aksi = False

            Timer1.Interval = 500
            Timer1.Enabled = True
            awal = Time
          End Sub

          Private Sub Form_MouseMove(Button As Integer, _
                                     Shift As Integer, _
                                     X As Single, Y As Single)
             'Jika ada pergerakan mouse di form, set waktu mulai
             'utk perhitungan durasi dengan waktu saat itu
             awal = Time
             'Update status...
             Aksi = True

          End Sub

          Private Sub Timer1_Timer()
          Dim durasi As Date

            Aksi = False
            'Periksa...
            If Aksi = False Then
               Gerak = False
               Timer1.Enabled = True

            Else 'Jika ada perubahan di Mouse_Move
               Gerak = True
               Timer1.Enabled = False
            End If

            Text1.Text = awal
            Text2.Text = Time
            'Jika tidak ada pergerakan, aktifkan perhitungan durasi
            If Gerak = False Then

              durasi = Time - awal
              'Dalam contoh ini, jika 5 detik aplikasi tidak
              'mengalami kegiatan, maka langsung keluar...
              If Format(durasi, "hh:mm:ss") = "00:00:05" Then
                 'Sebelum keluar, bebaskan semua variabel di form ini

                 Set Form1 = Nothing
                 Unload Me
              End If
            End If

          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module