Cara Membuat Form Loading di Visual Basic

Langsung disimak caranya, siapkan hal berikut ini :

1. Siapkan komponen tambahan seprti gambar tersebut, caranya > tekan ctrl + T >ceklist/centang Microsoft Windows Common Controls 6.0

 2. Sisipkan Loading dan 1 buat timer kedalam form, hingga seperti gambar tersebut

3. Setelah itu masukan perintahnya dibawah

Private Sub Timer1_Timer()

If ProgressBar1.Value >= 100 Then

Unload Me

Form2.Show

Else

ProgressBar1.Value = ProgressBar1.Value + 10

End If

End Sub

Membuat text berjalan

//di taruh di main
Dim strTemp, LenTemp, n

//isi pada timer
Private Sub Timer1_Timer()
LenTemp = Len(strTemp)
    Dim Form As String
    LenTemp = Len(strTemp)
    Label1 = Left(strTemp, n) + "_"
    n = n + 1
    If n > LenTemp Then
        n = 1
    End If
End Sub

//isi pada sub form load
strTemp = Label1
    n = 1

pada properties timer,rubah interval menjadi 500

MENGHITUNG KATA DI DALAM TEXTBOX

Buka project baru Standard Exe, dan tempatkan 1 buah textbox dan 1 buah commandbutton, dan set dengan properti sbb :
TextBox
Name : Text1
Text : (kosongkan)
CommandButton
Name : cmdCount
Caption : &Count
Tekan F7 dan ketikkan kode berikut :
Private Sub cmdCount_Click()
     'Ketikkan beberapa buah kalimat yang cukup panjang
     'sehingga mengandung sampai puluhan bahkan ratusan
     'kata untuk mencoba fungsi menghitung kata di bawah.
     MsgBox GetWordCount(Text1.Text)
End Sub
Public Function GetWordCount(ByVal Text As String) As Long
'Definisikan sebuah tanda hubung pada setiap akhir
'baris yang merupakan bagian dari seluruh kata,
'jadi kombinasikan bersama.
    Text = Trim(Replace(Text, "-" & vbNewLine, ""))
    'Ganti baris baru dengan sebuah space tunggal
    Text = Trim(Replace(Text, vbNewLine, " "))
    'Ganti spasi yang lebih dari satu (jika ada)
    'menjadi spasi tunggal
    Do While Text Like "*  *"
        Text = Replace(Text, "  ", " ")
    Loop
    'Pisahkan string dan kembalikan kata yang dihitung
    GetWordCount = 1 + UBound(Split(Text, " "))
End Function 
Jalan kan project (tekan F5), dan lihat hasilnya

HANYA HURUF KECIL BOLEH DI-ENTRI KE TEXTBOX

Buka project baru Standard Exe, lalu tempat kan 2 buah textbox dengan properti sbb :
Name : Text1
Text : (kosongkan)

Name : Text2
Text : (kosongkan)

Tekan F7, atau pilih menu View -> Code, lalu ketikkan kode berikut :

Private Sub Text1_Change()
'Text1 menggunakan event Change
    Dim posisi As Integer
    posisi = Text1.SelStart
    Text1.Text = LCase(Text1.Text)
    Text1.SelStart = posisi
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'Text2 menggunakan KeyPress
    KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub
Jalan kan project (tekan F5), dan lihat hasilnya

HANYA HURUF BESAR BOLEH DI-ENTRI KE TEXTBOX

Buka project baru Standard Exe, lalu tempat kan 2 buah textbox dengan properti sbb :

Name : Text1

Text : (kosongkan)

Name : Text2

Text : (kosongkan)

Tekan F7, atau pilih menu View -> Code, lalu ketikkan kode berikut :

Private Sub Text1_Change()

'Text1 menggunakan event Change

Dim posisi As Integer

    posisi = Text1.SelStart

    Text1.Text = UCase(Text1.Text)

    Text1.SelStart = posisi

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

'Text2 menggunakan event KeyPress

    KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Jalan kan project (tekan F5), dan lihat hasilnya

Textbox hanya dapat di isi dengan data numerik / Angka

Agar di Textbox hanya dapat di isi dengan data numerik / Angka.

If Not (KeyAscii >= Asc("0") & Chr(13) _

     And KeyAscii <= Asc("9") & Chr(13) _

     Or KeyAscii = vbKeyBack _

     Or KeyAscii = vbKeyDelete _

     Or KeyAscii = vbKeySpace) Then

     Beep

     KeyAscii = 0

End If

Dengan Koding diatas, Selain hanya mengaktifkan Tombol 0 dan 9, tombol seperti Delete, BackSpace, ‘dan SpaceBar juga bisa diterima. Pada contoh disini saya menggunakan Event KeyPress.

Menghindari Input Karakter – Karakter tertentu
Dim sTemplate As String

    'Ganti '!@#$%^&*()_+=' dengan karakter yang Anda

    'inginkan untuk dihindari diinput pada Text1

    sTemplate = "!@#$%^&*()_+="

If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then _

   KeyAscii = 0

Dengan Koding diatas, Anda akan menghindari Input karakter “!@#$%^&*()_+=”, Jika ingin menambah karakternya, tinggal tambah saja karakter yang tidak di inginkan. Cara di atas juga menggunakan even Keypress.

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

semoga bisa membantu.

TUTORIAL MENGGABUNGKAN FLASH (SWF) KEDALAM FORM VISUAL BASIC 6.0

Tutorial ini membahas cara memasukan file flash swf (shock wave flash) kedalam form dalam visual basic 6.0, terkadang kita merasa butuh sedikit pemanis dalam suatu program, mungkin ini adalah salah satu solusinya, yaitu dengan membuat sebuah animasi interaktif dengan flash dan meleburkannya kedalam projek program yang kita buat,

Tanpa basa basi,

1. Buka Microsoft visual basic 6.0>>pilih standart exe

2. Kemudian tekan ctrl+T atau pilih tool>>component. Lalu akan muncul jendela components

3. Pada tab control centang/ceklis “shockwave Flash” lalu pilih” Aply” kemudian “close”

    Maka akan muncul component baru >>gambar

4. Setelah itu drag component shockwave flash tadi ke area form.

5. Save projek dengan mimilih  file>>save projeck. Buat lah folder baru untuk men-save projeknya dan beri nama sesuka anda untuk form dan projek barusan.

6. Pindahkan file SWF yang akan dimasukan kedalam program kedalam folder tempat men-save projek tadi dalam kasus ini saya menggunakan file swf dengan nama "tes.swf"

7. Masuk kembali kedalam Microsoft visual basic tadi dan klik dua kali pada form sehingga masuk kedalam jendela listing/coding/code

Ketik kode/listing berikut
With ShockwaveFlash1
.Top = 0
.Left = 0
.Width = Me.Width
.Height = Me.Height
.LoadMovie 0, App.Path & "\tes.swf"
End With
Tekan F5 untuk menjalankan program.

sekian.