Membuat Link dari Visual basic 6 ke internet

Link yang menghubungkan dari vb ke internet biasanya dibutuhkan ketika kita membuat form "about" yang didalamnya berisi tentang profil sang developer atau bahkan profil tentang diri kita sendiri di dunia maya seperti alamat FB, Twitter dll

untuk itu saya membuat sebuah tutorial cara membuat link ini,

langkah pertama tennunya buka Microsoft Visual basic 6 dan pilih standard.exe

tambahkan satu label dan tuliskan caption terserah anda

kemudian ketik/paste code berikut pada General

      Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function SetWindowPos Lib "user32" (ByVal h As Long, ByVal hb As Long, ByVal X As Long, _

    ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal F As Long) As Long

Const SWP_NOMOVE = 2

Const SWP_NOSIZE = 1

Const flags = SWP_NOMOVE Or SWP_NOSIZE

Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2

klik 2 kali pada label dan ketikan kode berikut

ShellExecute Me.hwnd, "Open", "http://twitter.com/yusuffirdaus293", vbNullString, vbNullString, 3

selanjutnya Run dngan menekan F5 pada keyboard

atau anda dapat mendownload projek program tersebut di
>>>sini<<<
semoga bisa membantu ^

Cara membuat animasi text seperti diketik di visual basic 6.0

Berikut adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik

1.       Pertama buka visual basic 6.0

2.       Pilih standar.exe

3.       Masukan 3 buah komponen berikut

a.       Label

b.      Timer dgn property è enabled = false, interval = 300

c.       Command buton dgn property è caption = mainkan

4.       Masukkan listing berikut

Private Sub Command1_Click()

If Command1.Caption = "mainkan" Then

    Timer1.Enabled = True

    Command1.Caption = "Stop"

Else

    Timer1.Enabled = False

    Command1.Caption = "mainkan"

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "A"

End Sub

Private Sub Timer1_Timer()

Select Case Label1

    Case "A"

    Label1.Caption = "AN"

    Case "AN"

    Label1.Caption = "ANI"

    Case "ANI"

    Label1.Caption = "ANIM"

    Case "ANIM"

    Label1.Caption = "ANIMA"

    Case "ANIMA"

    Label1.Caption = "ANIMAS"

    Case "ANIMAS"

    Label1.Caption = "ANIMASI"

    Case "ANIMASI"

    Label1.Caption = "A"

   

End Select

End Sub

Lalu jalankan dengan menekan tombol F5 pada keyboard, pelajari setiap logika yang di pakai pada program orang lain, maka anda akan mempunyai banyak penyelesaian masalah dalam pembuatan program.

 Terimakasi sudah membaca

Listing Visual basic 6.0 textbox yang tidak bisa dimasukkan huruf

Adakalanya sebuah textbox dalam visual basic hanya di perlukan untuk meng-input angka saja, atau tidak boleh di input dengan karakter lainnya, hal ini biasanya terjadi dalam kasus memasukkan harga atau memasukkan PIN, no ktp, no NIM dan sebagainnya yang memang tidak diperkenankan menggunakan karakter lain.

Tanpa basa- basi lagi, ini listingnya

Private Sub Command1_Click()

If Not IsNumeric(Text1.Text) Then

    MsgBox "Tolong input dengan angka"

    Else

    MsgBox "Nice"

End If

End Sub

Kata kunci

Textbox bukan huruf textbox hanya angka saja textbox tidak bisa dimasukan huruf textbox number

Numeric textbox textbox not font textbox angka saja textboxtidak bisa memasukan huruf