Membuat aplikasi internet browser sendiri

anda dapat membuat aplikasi internet dengan bantuan salah satu nya component Microsoft Internet Control (Download), ini lah cara cara penggunaanya:

1. Buka Visual Basic 6.0
2. click Project>Component atau click Ctrl+T
3. cari kata Microsoft Internet Control lalu centang seperti pada gambar
4. masukan component kedalam form anda
5. component siap digunakan

ini lah cara cara menggunakan  Microsoft Internet Control

Menentuka URL yg ingin dibuka

cara:

WebBrowser1.Navigate ([alamat web])

contoh:

WebBrowser1.Navigate ("www.google.com") 

'Back' dan 'Foward'

contoh untuk Back (kembali ke alamat sebelumnya):

WebBrowser1.GoBack

contoh untuk Foward (kembali ke alamat selanjutnya)

WebBrowser1.GoForward

'Stop' dan 'Refresh'

contoh untuk Stop (berhenti mengakses internet)

WebBrowser1.Stop

contoh untuk Refresh (mengulang akses internet)

WebBrowser1.Refresh

Status Battery Laptop

Semua laptop atau notebook kita bisa mengetahui info battery laptop yang kita pakai, tinggal berapa
persen battery kita, berapa jam lagi battery akan habis. Nah Kali ini kita akan mencoba membuat sendiri
program untuk menampilkan info battery pada laptop kita dengan menggunakan Visual Basic 6.0. caranya
sebagai berikut :


1. Langkah pertama sudah pasti buka dahulun Visual Basic nya kemudian pilih standard.exe

2. Pada program ini kita membutuhkan 4 komponen visual basic yaitu Timer,Label,ProgressBar dan
SysInfo. Komponen Timer dan Label secara default sudah terdapat pada toolbox, kita perlu
menambahkan komponen ProgressBar dan SysInfo ke dalam toolbox, caranya pilih menu ProjectComponents. Kemudian beri tanda centang pada komponen yang kita inginkan seperti yang
ditunjukkan pada gambar berikut :
Kemudian Klik OK. Aturlah user interface pada form menjadi seperti pada gambar berikut :

3. Selanjutnya copy paste kode program berikut ini :

Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
If SysInfo1.BatteryLifePercent <> 255 Then
ProgressBar1.Value = SysInfo1.BatteryLifePercent
Label1.Caption = "BatteryLifePercent = " & Format$(SysInfo1.BatteryLifePercent / 100,
"Percent")
Label2.Caption = "BatteryLifeTime = " & Format$(Val(SysInfo1.BatteryLifeTime) * (1 / 3600),
"#.##") & " Hours"
Select Case SysInfo1.BatteryStatus
Case 1
Label3.Caption = "BatteryStatus = HIGH"
Case 2
Label3.Caption = "BatteryStatus = LOW"
Case 4
Label3.Caption = "BatteryStatus = CRITICAL"
End Select
ProgressBar1.Enabled = True
Else
Label1.Caption = "No Battery Present"
ProgressBar1.Value = 0
ProgressBar1.Enabled = False
End If
End Sub

Mengganti style pada form

cara:

1. download Activex Control : vbskpro2.ocx (Download)
2. Buka Visual Basic 6
3. click Project>Component atau click Ctrl+T
4. clcik 'browse' lalu cari file yg tadi anda download, jika nama 'vbSkinner Pro 2 for VB6' sudah di centang maka click 'ok' (seperti pada gambar disamping)
5. tambahkan component pada form anda
6. untuk melihatnya anda tinggal run, untuk contoh nya anda bisa liat gambar samping

Cara Menginstal Visual Basic 6.0 ke Windows 7

Bagi yang ingin menginstall Visual basic 6.0 di Windows 7 namun karena ada bacaan tidak kompatibel dengan windows 7, kamu langsung kepikiran untuk install ulang / menginstall Windows Virtual Machine (XP MOde). berikut ini adalah tutorial menginstall VB 6 di Windows Seven ( Win 7)

1.  Siapkan CD / File Installer nya, kemudian cari file Installer VB 6 (Setup.exe). lalu klik kanan > pilih Properties
2.  Pilih dan Klik Tab Compability, pada bagian Compability Mode, lalu (beri tenda checklist) pada Run this program in compability mode for:
3. Pilih Windows XP Service Pack 2
4. Klik (beri tanda checklist) pada Run this program as an administrator
5. Klik (beri tanda checklist) pada Disable Visual Themes
6. Kemudian kembali ke Folder VB tadi pilih Sub Folder VB98à kik kanan pilih properties .., dan ikuti seperti gambar 
7. Klik OK lalu, jalankan file instalasinya, dan jika peringatan berikut muncul pilih Run Program
8. Setelah VB 6 sukses diinstall pada Windows 7 ulangi langkah ke 2 sampai 4. Setiap sebelum program VB dibuka / dijalankan untuk pertama kali

Dasar-Dasar component Windows Media Player

ikuti lah langkah2 ini untuk menambah komponen:

1.buka program Visual basic 6
2.buka project>component atau click Ctrl+T
3.cari kata 'Windows Media Player' (seperti pada gambar)
4. centang, lalu klik 'ok'
5. tambah component kedalam form anda

ini lah printah2 dasar dalam penggunaan component Windows Media Player:

menentukan Object media:

cara:

windowsmediaplayer1.URL=[directory+nama file+format]

contoh:

WindowsMediaPlayer1.URL = "C:\Documents and Settings\dell\Desktop\lagu\peterpan\14 Peterpan - Ariel Made In\Peterpan - 10 Mimpi Yang Sempurna.mp3"

play

contoh:

WindowsMediaPlayer1.Controls.play

pause

contoh

WindowsMediaPlayer1.Controls.pause

stop

contoh

WindowsMediaPlayer1.Controls.stop

Membuat Popup

cara:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu [object]
End Sub

contoh

seandainya anda membuat menu seperti gambar disamping.. lalu anda buat coding seperti dibawah bawah ini:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu File
End Sub

maka yg akan muncul seperti gambar dibawah ini

Catatan: jika di menu editor anda buat File.Visible=False maka, ini tidak berpengaruh pada PopUp , di PopUp masih bisa muncul seperti biasa

Form Transparent

jika anda ingin membuat form anda menjadi Transparent , anda tinggal mengikuti cara ini:

buat lah module:

Option Explicit

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As _
Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal _
nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As _
Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Public Sub TransparentForm(frm As Form)
    frm.ScaleMode = vbPixels
    Const RGN_DIFF = 4
    Const RGN_OR = 2
    Dim outer_rgn As Long
    Dim inner_rgn As Long
    Dim wid As Single
    Dim hgt As Single
    Dim border_width As Single
    Dim title_height As Single
    Dim ctl_left As Single
    Dim ctl_top As Single
    Dim ctl_right As Single
    Dim ctl_bottom As Single
    Dim control_rgn As Long
    Dim combined_rgn As Long
    Dim ctl As Control
    If frm.WindowState = vbMinimized Then Exit Sub
    wid = frm.ScaleX(frm.Width, vbTwips, vbPixels)
    hgt = frm.ScaleY(frm.Height, vbTwips, vbPixels)
    outer_rgn = CreateRectRgn(0, 0, wid, hgt)
    border_width = (wid - frm.ScaleWidth) / 2
    title_height = hgt - border_width - frm.ScaleHeight
    inner_rgn = CreateRectRgn(border_width, title_height, wid - border_width, _
        hgt - border_width)
    combined_rgn = CreateRectRgn(0, 0, 0, 0)
    CombineRgn combined_rgn, outer_rgn, inner_rgn, RGN_DIFF
    For Each ctl In frm.Controls
        If ctl.Container Is frm Then
            ctl_left = frm.ScaleX(ctl.Left, frm.ScaleMode, vbPixels) _
                + border_width
            ctl_top = frm.ScaleX(ctl.Top, frm.ScaleMode, vbPixels) + title_height
            ctl_right = frm.ScaleX(ctl.Width, frm.ScaleMode, vbPixels) + ctl_left
            ctl_bottom = frm.ScaleX(ctl.Height, frm.ScaleMode, vbPixels) + ctl_top
            control_rgn = CreateRectRgn(ctl_left, ctl_top, ctl_right, ctl_bottom)
            CombineRgn combined_rgn, combined_rgn, control_rgn, RGN_OR
        End If
    Next ctl
    SetWindowRgn frm.hWnd, combined_rgn, True
End Sub





lalu anda tinggal menambah kan ini ke form anda:


Private Sub Form_Resize()
    TransparentForm Me
End Sub