Putra VB

Aplikasi Pinger

2012-02-10T00:26:00.000+07:00

Sesuai dengan namanya, aplikasi ini berguna untuk melakukan ping ke website. Aplikasi ini juga berguna untuk menyetabilkan koneksi internet yang lemah.

Aplikasi Penge-"Block" Website

2012-01-28T01:25:00.001+07:00

Ini merupakan aplikasi yang digunakan untuk menge-block atau memblokir Komputer untuk mengakses website / situs tertentu dari Browser.

Menata Form Child di Form MDI

2012-01-20T00:45:00.001+07:00

Jika Anda sedang membuat Project yang menggunakan Form MDI, ada baiknya ditambahkan kode untuk menata Form Child-nya agar terlihat rapi.

Cascade

Kode :
[ VB 6.0 ] Me.Arrange vbCascade
[ VB .NET ] Me.LayoutMdi(MdiLayout.Cascade)

Tile Horizontal

Kode :
[ VB 6.0 ] Me.Arrange vbTileHorizontal
[ VB .NET ] Me.LayoutMdi(MdiLayout.TileHorizontal)

Tile Vertical

Kode :
[ VB 6.0 ] Me.Arrange vbTileVertical
[ VB .NET ] Me.LayoutMdi(MdiLayout.TileVertical)

Untuk mempermudah User untuk menggunakannya, Anda bisa membuat menu khusus seperti ini :

Memblokir USB Drive

2012-01-18T00:17:00.001+07:00

Potongan kode ini berguna untuk memblokir USB Drive, seperti flash disk, memory card, dll. Tapi tidak memblokir hardware lain yang menggunakan USB yang tidak bersifat drive, seperti printer atau modem.

[ VB 6.0 ]

Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"

[ VB .NET ]

Dim Reg As Object = CreateObject("Wscript.Shell")
Reg.RegWrite("HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD")

[ VB Script ]

Dim Reg
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"

Untuk mengembalikan seperti semula, tinggal mengganti angka 4 menjadi 3.
Restart atau LogOff komputer untuk mensdapatkan perubahannya.

Membulatkan Bilangan Desimal

2012-01-16T23:35:00.002+07:00

Banyak cara dalam VB untuk membulatkan suatu bilangan/ angka desimal menjadi bilangan bulat. Jika Anda belum paham, berikut penjelasan singkatnya :

Pembulatan Otomatis
Pembulatan ini dilakukan secara otomatis tergantung bilangannya.
Jika angka utamanya adalah ganjil dan angka desimalnya >= 0,5 maka dilakukan pembulatan ke atas (angka utama ditambah 1) dan bila angka desimalnya < 0,5 maka dilakukan pembulatan ke bawah.
Namun jika angka utamanya adalah 0 atau genap dan angka desimalnya > 0,5 maka dilakukan pembulatan ke atas dan bila angka desimalnya <= 0,5 maka dilakukan pembulatan ke bawah.
i = CInt(0.4) , hasilnya 0
i = CInt(0.5) , hasilnya 0
i = CInt(0.6) , hasilnya 1
i = CInt(1.4) , hasilnya 1
i = CInt(1.5) , hasilnya 2
i = CInt(1.6) , hasilnya 2

Pembulatan Selalu ke Bawah
Pembulatan ini dilakukan selalu ke bawah berapapun angka desimalnya. Dengan kata lain akan menghilangkan angka desimalnya.
i = Int(1.1) , hasilnya 1
i = Int(1.5) , hasilnya 1
i = Int(1.8) , hasilnya 1

Pembulatan Selalu ke Atas
Pembulatan ini dilakukan selalu ke atas berapapun angka desimalnya.
i = -Int(-(1.1)) , hasilnya 2
i = -Int(-(1.5)) , hasilnya 2
i = -Int(-(1.8)) , hasilnya 2

Pembulatan Yang Ditentukan
Pembulatan ini dilakukan sesuai dengan Batas yang telah ditentukan.
Jadi bila angka desimalnya >= Batas maka dilakukan pembulatan ke atas dan bila angka desimalnya < Batas maka dilakukan pembulatan ke bawah.
Misalnya Batas yang ditentukan adalah 0,4 kodenya seperti ini :

Dim Nilai As Double, Hasil As Long

Nilai = 1.4 'bilangan yg akan dibulatkan

Hasil = Int(Nilai) + IIf(CDbl(CStr(Nilai - Int(Nilai))) >= 0.4, 1, 0) 'Batas = 0,4

MsgBox Hasil 'pesan Hasil = 2

Menghitung Selisih Tanggal

2012-01-15T02:13:00.000+07:00

Bila Anda membutuhkan kode untuk menghitung selisih antar 2 data Tanggal baik secara hari, bulan, atau tahun, berikut contohnya :

Fungsi : DateDiff( Jenis Interval, Tanggal Pertama, Tanggal Kedua )

Jenis Interval	Keterangan
d	`Day (Hari)`
m	`Month (Bulan)`
yyyy	`Year (Tahun)`
h	`Hour (Jam)`

n	`Minute (Menit)`
s	`Second (Detik)`
ww	`Week (Minggu)`
q	`Quater (4 Bulan)`

Misalnya Anda ingin menghitung selisih hari antara tanggal 15 Jan 2012 (ditulis #1/15/2012#) dan 20 Jan 2012, yang berarti akan menggunakan jenis interval "d".
t = DateDiff("d", #1/15/2012#, #1/20/2012#) , hasilnya 5

Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya :
t = DateDiff("d", DateTimePicker1.Value, DateTimePicker2.Value)

Menambah dan Mengurangi Tanggal

2012-01-15T01:23:00.001+07:00

Untuk menambah dan mengurangi data bertipe Date/Tanggal tidak semudah dengan data bertipe Angka yang hanya menggunakan operator + dan -. Karena itu ada fungsi khusus untuk melakukannya, berikut contoh penggunaannya :

Fungsi : DateAdd( Jenis interval, Besar perubahan, Tanggal yang dihitung )

Jenis Interval	Keterangan
d	`Day (Hari)`
m	`Month (Bulan)`
yyyy	`Year (Tahun)`

h	`Hour (Jam)`
n	`Minute (Menit)`
s	`Second (Detik)`
ww	`Week (Minggu)`
q	`Quater (4 Bulan)`

Misalnya Anda ingin menghitung 2 hari setelah tanggal 15 Jan 2012 (ditulis #1/15/2012#), yang berarti akan menggunakan jenis interval "d" dan besar perubahannya adalah 2
t = DateAdd("d", 2, #1/15/2012#) , hasilnya 17 Jan 2012

Sekarang jika Anda ingin menghitung 3 bulan sebelumnya, yang berarti akan menggunakan jenis interval "m" dan besar perubahaanya adalah -3.
t = DateAdd("m", -3, #1/15/2012#) , hasilnya 15 Okt 2011

Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya :
DateTimePicker2.Value = DateAdd("m", -3, DateTimePicker1.Value)

Fungsi-fungsi Date/Time

2012-01-13T02:24:00.001+07:00

Berikut ini merupakan Fungsi-fungsi dasar untuk mengolah data jenis Date/Time atau Tanggal/Waktu di Visual Basic

Now, digunakan untuk mendapatkan Tanggal dan Waktu sekarang.
d = Now , hasilnya 13/01/2012 1:22:42

Date, digunakan untuk mendapatkan Tanggal sekarang.
[ VB 6.0 ] d = Date , hasilnya 13/01/2012
[ VB .NET ] d = Now.Date , hasilnya 13/01/2012

Time, digunakan untuk mendapatkan Waktu sekarang.
[ VB 6.0 ] d = Time , hasilnya 1:22:42
[ VB .NET ] d = Now.ToLongTimeString , hasilnya 1:22:42

Day(x), digunakan untuk mengambil nilai Tanggal saja dari x.
[ VB 6.0 ] d = Day(#1/13/2012#) , hasilnya 13
[ VB .NET ] d = #1/13/2012#.Day , hasilnya 13

Month(x), digunakan untuk mengambil nilai Bulan saja dari x.
[ VB 6.0 ] d = Month(#1/13/2012#) , hasilnya 1
[ VB .NET ] d = #1/13/2012#.Month , hasilnya 1

Year(x), digunakan untuk mengambil nilai Tahun saja dari x.
[ VB 6.0 ] d = Year(#1/13/2012#) , hasilnya 2012
[ VB .NET ] d = #1/13/2012#.Year , hasilnya 2012

Hour(x), digunakan untuk mengambil nilai Jam saja dari x.
[ VB 6.0 ] d = Hour(#1:22:42 AM#) , hasilnya 1
[ VB .NET ] d = #1:22:42 AM#.Hour , hasilnya 1

Minute(x), digunakan untuk mengambil nilai Menit saja dari x.
[ VB 6.0 ] d = Minute(#1:22:42 AM#) , hasilnya 22
[ VB .NET ] d = #1:22:42 AM#.Minute, hasilnya 22

Second(x), digunakan untuk mengambil nilai Detik saja dari x.
[ VB 6.0 ] d = Second(#1:22:42 AM#) , hasilnya 42
[ VB .NET ] d = #1:22:42 AM#.Second, hasilnya 42

DateSerial(x, y, z), digunakan untuk menghasilkan Tanggal dari kombinasi x, y, z.
d = DateSerial(2012, 1, 13) , hasilnya 13/01/2012

TimeSerial(x, y, z), digunakan untuk menghasilkan Waktu dari kombinasi x, y, z.
d = TimeSerial(1, 22, 42) , hasilnya 1:22:42

MonthName(x), digunakan untuk mendapatkan nama Bulan dari x.
d = MonthName(2) , hasilnya Februari

WeekdayName(x), digunakan untuk mendapatkan nama Hari dari x.
d = WeekdayName(2, , vbSunday) , hasilnya Senin

Untuk kegunaan Fungsi-fungsi Date/Time yang lain, Anda bisa melihat postingan ini :
Nama Hari dari Tanggal
Menambah dan Mengurangi Tanggal
Menghitung Selisih Tanggal

CrystalReport Tanpa Database

2012-01-10T01:35:00.000+07:00

Tidak selamanya penggunaan CrystalReport harus menggunakan Database. Berikut ini contoh penerapannya dalam aplikasi pembuatan Kartu Nama.

TextBox Angka Class

2012-01-07T01:18:00.002+07:00

Biasanya ketika Anda ingin membuat TextBox yang hanya bisa diisi angka maka dibuat prosedur di setiap TextBox-nya. Jika TextBox-nya hanya 1 atau 2 mungkin tidak masalah,
tapi bagaimana bila 10 buah. Maka akan kurang efisien karena terjadi duplikasi kode yang banyak. Karena itu perlu dibuat Class khusus TextBox angka untuk menghemat kode.

Text Berjalan di Desktop

2012-01-03T00:48:00.000+07:00

Berikut ini contoh dasar untuk membuat Text yang berjalan di Desktop komputer. Source code ini merupakan pengembangan dari aplikasi desktop sebelumnya.

Mengganti Warna Border dari Kontrol

2011-12-25T01:01:00.003+07:00

Kontrol-kontrol yang ada di VB tidak menyediakan properti untuk mengganti warna bordernya. Jadi jika Anda ingin mengubah warna bordernya diperlukan kode tambahan.
Cara pembuatannya seperti di bawah ini :

Buat Project baru dengan sebuah Form dan sebuah Module didalamnya.
Di Module ketikkan kode berikut :

[ VB 6.0 ]

Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long
Private Declare Function FrameRgn Lib "gdi32.dll" (ByVal hDC As Long, ByVal hRgn As Long, ByVal hBrush As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Public Sub BorderColor(ByVal Ctl As Control, ByVal lColor As OLE_COLOR, Optional ByVal BorderWidth As Integer = 2)
    Dim l As Long

    l = CreateRectRgn(BorderWidth, BorderWidth, (Ctl.Width / Screen.TwipsPerPixelX) - BorderWidth, (Ctl.Height / Screen.TwipsPerPixelY) - BorderWidth)
    SetWindowRgn Ctl.hwnd, l, False

    l = CreateRectRgn(Ctl.Left / Screen.TwipsPerPixelX, Ctl.Top / Screen.TwipsPerPixelY, Ctl.Width / Screen.TwipsPerPixelX + (Ctl.Left / Screen.TwipsPerPixelX), Ctl.Height / Screen.TwipsPerPixelY + (Ctl.Top / Screen.TwipsPerPixelY))
    FrameRgn Ctl.Container.hDC, l, CreateSolidBrush(lColor), BorderWidth, BorderWidth
End Sub

[ VB .NET ]

Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Integer, ByVal hRgn As Integer, ByVal bRedraw As Boolean) As Integer
Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Integer) As Integer
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Integer) As Integer
Private Declare Function FrameRgn Lib "gdi32.dll" (ByVal hdc As Integer, ByVal hRgn As Integer, ByVal hBrush As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

Public Sub BorderColor(ByVal Ctl As Control, ByVal lColor As Color, Optional ByVal BorderWidth As Integer = 1)
        Dim i As Integer

        i = CreateRectRgn(BorderWidth, BorderWidth, Ctl.Width - BorderWidth, Ctl.Height - BorderWidth)
        SetWindowRgn(Ctl.Handle, i, False)

        i = CreateRectRgn(Ctl.Left, Ctl.Top, Ctl.Width + Ctl.Left, Ctl.Height + Ctl.Top)
        FrameRgn(GetDC(Ctl.Parent.Handle), i, CreateSolidBrush(CInt(ColorTranslator.ToWin32(lColor))), BorderWidth, BorderWidth)
End Sub

Sekarang buatlah sebuah TextBox di Form1 dan misalnya Anda ingin diubah warna bordernya menjadi warna biru, maka tuliskan kode berikut ini di bagian 'Form_Paint' dari Form1 :
[ VB 6.0 ]

BorderColor Text1, vbBlue

[ VB .NET ]

BorderColor(TextBox1, Color.Blue)

CATATAN :
- Bagi pengguna VB 6.0, apabila Kontrol yang akan diganti warna bordernya ditempatkan di PictureBox, maka properti "AutoRedraw" dari PicturBox tersebut harus bernilai "True".
- Bagi pengguna VB 6.0, apabila Kontrol yang akan diganti warna bordernya ditempatkan di Frame atau Tab, maka cara diatas tidak dapat digunakan. Solusinya buatlah sebuah PictureBox (properti AutoRedraw=True; BorderStyle=0) ke dalam Frame atau Tab tersebut, baru Kontrol yang akan diganti warna bordernya ditempatkan di PictureBox tersebut.

Menghilangkan Border dari Kontrol

2011-12-23T02:11:00.001+07:00

Tidak semua Kontrol yang ada di VB menyediakan properti untuk menghilangkan border / pinggiran-nya. Karena itu perlu dibuat kode khusus untuk menghilangkan border tersebut. Berikut contoh pembuatannya :

Buat Project baru dengan sebuah Form dan sebuah Module didalamnya.
Di Module ketikkan kode berikut :

[ VB 6.0 ]

[ VB .NET ]

Sekarang untuk percobaanya buat beberapa Kontrol ke dalam Form. Lalu ketikkan kode sesuai dengan nama Kontrol-nya di bagian 'Form_Load' dari Form seperti ini :

NoBorder TextBox1 'nama kontolnya adlh TextBox1

Fungsi Semua Terisi

2011-12-19T01:15:00.002+07:00

Fungsi Semua Terisi ini adalah fungsi untuk memudahkan Anda apakah User telah mengisi seluruh kontrol isian (seperti TextBox atau ComboBox) dalam suatu Form. Agar lebih jelas, berikut cara membuatnya :

Buat Project baru dengan sebuah Form dan sebuah Module didalamnya.
Di Module ketikkan kode berikut :

Public Function SemuaTerisi(ByVal Frm As Form) As Boolean
    Dim c As Control
    Dim b As Boolean

    b = True

    For Each c In Frm.Controls
        If (TypeOf c Is TextBox) Or (TypeOf c Is ComboBox) Then 'utk TextBox dan ComboBox
           b = Not (Trim(c.Text) = "")
        End If

        If b = False Then
            c.SetFocus
            Exit For
        End If
    Next

    SemuaTerisi = b
End Function

(bagi pengguna VB .NET gantikan kode yang berwarna merah dengan kode "c.Focus()"

Untuk percobaan, buatlah 3 buah Textbox dan 1 Tombol/ Button ke dalam Form. Lalu ketikkan kode berikut di Tombol/ Button_Click :

If SemuaTerisi(Me) Then
MsgBox "Data sudah lengkap", vbInformation
Else
MsgBox "Data belum lengkap", vbCritical
End If

Jalankan, kemudian tes dengan mengisi atau mengosongkan TextBox.

Form Ber-Icon Animasi

2011-12-15T02:11:00.001+07:00

Secara default, properti Icon di Form hanya bisa diisi file gambar *.ico dan tidak bisa diisi file gambar gerak / animasi seperti *.gif. Tapi dengan sedikit trik, hal ini bisa dilakukan.

BindingSource + BindingNavigator + DataGridView

2011-12-13T02:26:00.001+07:00

Mungkin masih jarang yang mengkombinasikan BindingSource, BindingNavigator, dan DataGridView, padahal cara ini dapat mempermudah pembuatan aplikasi database.
Masing-masing kontrol memiliki fungsi sendiri-sendiri, DataGridView sebagai tampilan tabelnya, BindingNavigator sebagai tombol-tombol navigasi, dan BindingSource sebagai penghubungnya.

Menyimpan DataGridView

2011-12-13T02:13:00.000+07:00

Seperti diketahui secara umum bahwa data yang ditampilkan di kontrol DataGridView tidak ter-link / terhubung langsung dengan data yang ada di databasenya.
Berikut ini contoh bagaimana menyimpan data di DataGridView ke databasenya sehingga saling terhubung.

Awal Kapital Otomatis di TextBox

2011-12-11T01:57:00.001+07:00

Yang dimaksud disini adalah dimana ketika User mengetikkan suatu kalimat di TextBox, maka secara otomatis huruf pertama setiap kata dalam kalimat tersebut diubah menjadi huruf kapital / besar. Cara ini berguna untuk mempermudah pengisian dan mengurangi resiko kesalahan pengetikan pada TextBox tertentu, seperti TextBox untuk mengisi nama orang.
Caranya buat sebuah kontrol TextBox ke dalam Form. Lalu ketikkan kode berikut :

[ VB 6.0 ]
Di bagian 'Text1_Change' :

Dim i As Integer
i = Text1.SelStart
Text1.Text = StrConv(Text1.Text, vbProperCase)
Text1.SelStart = i

[ VB .NET ]
Di bagian 'TextBox1_TextChanged' :

Dim i As Integer = TextBox1.SelectionStart
TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.ProperCase)
TextBox1.SelectionStart = i

Jalankan, kemudian ketikkan beberapa kata dalam TextBox tersebut.

Performance Counter

2011-12-01T01:16:00.003+07:00

Aplikasi ini adalah aplikasi penghitung performance atau kinerja komputer secara real-time yang akan menghitung performance meliputi processor, memory, dan network.
Dalam pembuatannya menggunakan kontrol PerformanceCounter sebagai kontrol utamanya dan tanpa menggunakan Fungsi API. Kontrol PerformanceCounter itu sendiri adalah kontrol yang digunakan untuk mendapatkan nilai kinerja bagian-bagian komputer, seperti processor, memory, local disk, server, network, process, dll.

FileSystemWatcher

2011-11-28T00:39:00.002+07:00

FileSystemWatcher adalah sebuah kontrol yang digunakan untuk me-monitor / memantau aktifitas yang terjadi di suatu Folder, seperti membuat, merubah, menghapus File maupun Folder. Penggunaannya sangat mudah, berikut contoh caranya :

Buat Project baru dengan sebuah Form didalamnya. Masukkan 1 kontrol FileSystemWatcher ke dalam Form tersebut.
Pilih Folder mana yang akan di monitor dengan mengubah properti "Path"-nya.
Jika proses monitor ingin dilakukan juga pada Folder di dalam Folder terpilih, ubah properti "IncludeSubdirestories" menjadi "True".
Sekarang untuk menampung hasilnya, tambahkan 1 kontrol ListBox ke dalam Form.

Ketikkan kode :
Di bagian 'FileSystemWatcher1_Changed'

ListBox1.Items.Add("Dirubah > " & e.FullPath)
Di bagian 'FileSystemWatcher1_Created'

ListBox1.Items.Add("Dibuat > " & e.FullPath)
Di bagian 'FileSystemWatcher1_Deleted'

ListBox1.Items.Add("Dihapus > " & e.FullPath)
Di bagian 'FileSystemWatcher1_Renamed'

ListBox1.Items.Add("Diganti namanya > " & e.FullPath)

Sekarang jalankan Project, lalu buat percobaan dengan melakukan aktifitas seperti membuat dan menghapus File atau Folder.

Menjalankan dan Menunggu Aplikasi Ditutup

2011-11-26T04:50:00.002+07:00

Yang dimaksud disini adalah proses dimana aplikasi Anda menjalankan sebuah aplikasi lain (dengan kode), lalu aplikasi Anda berhenti dan menunggu sampai aplikasi yang dijalankan tadi ditutup / diakhiri. Berikut ini contoh pembuatannya.
Buat Project baru dengan sebuah Form didalamnya, lalu tambahkan sebuah kontrol Tombol / Button ke Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Const SYNCHRONIZE = &H100000

Di bagian 'Command1_Click' ketikkan :

Dim l As Long

l = Shell("notepad.exe", vbNormalFocus) 'menjalankan aplikasi notepad
l = OpenProcess(SYNCHRONIZE, 0, l)

Me.Hide 'menyembunyikan form

WaitForSingleObject l, -1 'proses menunggu

Me.Show 'memunculkan form kembali

Untuk kelancaran prosesnya, buatlah Project menjadi aplikasi (*.exe)

[ VB .NET ]
Di bagian 'Button1_Click' ketikkan :

Dim p As New Diagnostics.Process
p = Diagnostics.Process.Start("notepad.exe") 'menjalankan aplikasi notepad

Me.Hide() 'menyembunyikan form

p.WaitForExit(-1) 'proses menunggu

Me.Show() 'memunculkan form kembali

Splash Screen

2011-11-21T02:48:00.004+07:00

Splash Screen merupakan suatu istilah bagi Form hiasan yang ditampilkan sebelum Form utama ditampilkan. Proses pembuatannya sangat mudah, berikut caranya :

Buat Project baru dengan dua buah Form didalamnya (Form1 dan Form2). Dalam hal ini Form1 dianggap sebagai Form splash screen-nya, dan Form2 sebagai Form utamanya.

Atur properti dari Form1, yaitu :
[ VB 6.0 ] / [ VB .NET ]
BorderStyle / FormBorderStyle = None
StartUpPosition / StartPosition = CenterScreen
ShowInTaskbar = False

Untuk mempercantik tampilan, tambahkan gambar dan informasi aplikasi ke dalam Form1 seperti gambar diatas.

[ VB 6.0 ]
Lalu didalam Form1 masukkan sebuah kontrol Timer(properti Enabled=True; Interval=2000), dan ketikkan kode ini di bagian 'Timer1_Timer'

Form2.Show 'memunculkan form utama
Unload Me 'menutup form splash

[ VB .NET ]
Buka jendela Properties dari Project (klik menu Project > NamaProject Properties).
Atur nilai "Startup Form" menjadi Form2, dan "Splash Screen" menjadi Form1.

Sekarang untuk mengatur ulang waktu lamanya, di jendela "Solution Explorer" klik tombol "Show All Files" lalu cari dan buka file Application.Designer.vb.

Lalu gantikan kode (area paling bawah) yang tadinya seperti ini :
Protected Overrides Sub OnCreateSplashScreen()
    Me.SplashScreen = Global.WindowsApplication1.Form1
End Sub
Menjadi seperti ini :
Protected Overrides Sub OnCreateSplashScreen()
    Me.MinimumSplashScreenDisplayTime = 3000 '3 detik
    Me.SplashScreen = Global.WindowsApplication1.Form1
End Sub

Informasi Regional

2011-11-20T03:03:00.000+07:00

Setiap komputer memiliki pengaturan regional yang berbeda (Control Panel > Regional and Language Options). Jika Anda membutuhkan informasi regional tersebut untuk kebutuhan aplikasi, berikut contoh penggunaannya.
Buat Project baru dengan sebuah Form didalamnya. Di dalam Form buatlah sebuah kontrol TextBox (Multiline=True). Lalu di bagian 'Form_Load' ketikkan kode berikut :

[ VB 6.0 ]

Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")

Dim s As String
s = "Negara = " & Reg.RegRead("HKCU\Control Panel\International\sCountry") & vbCrLf
s = s & "Simbol Mata Uang = " & Reg.RegRead("HKCU\Control Panel\International\sCurrency") & vbCrLf
s = s & "Pemisah Ribuan = " & Reg.RegRead("HKCU\Control Panel\International\sThousand") & vbCrLf
s = s & "Pemisah Desimal = " & Reg.RegRead("HKCU\Control Panel\International\sDecimal") & vbCrLf
s = s & "Pemisah Tanggal = " & Reg.RegRead("HKCU\Control Panel\International\sDate") & vbCrLf
s = s & "Pemisah Jam = " & Reg.RegRead("HKCU\Control Panel\International\sTime") & vbCrLf

Text1.Text = s

[ VB .NET ]

Dim Reg As Object = CreateObject("WScript.Shell")

Dim s As String
s = "Negara = " & Reg.RegRead("HKCU\Control Panel\International\sCountry") & vbCrLf
s &= "Simbol Mata Uang = " & Reg.RegRead("HKCU\Control Panel\International\sCurrency") & vbCrLf
s &= "Pemisah Ribuan = " & Reg.RegRead("HKCU\Control Panel\International\sThousand") & vbCrLf
s &= "Pemisah Desimal = " & Reg.RegRead("HKCU\Control Panel\International\sDecimal") & vbCrLf
s &= "Pemisah Tanggal = " & Reg.RegRead("HKCU\Control Panel\International\sDate") & vbCrLf
s &= "Pemisah Jam = " & Reg.RegRead("HKCU\Control Panel\International\sTime") & vbCrLf

TextBox1.Text = s

Animasi Fade Form

2011-11-18T00:30:00.000+07:00

Animasi Fade Form adalah animasi fade / transparasi / opacity yang ditampilkan ketika suatu Form dibuka dan ditutup. Berikut cara membuatnya :

[ VB 6.0 ]
Buat Project baru dengan sebuah Form dan sebuah Module didalamnya. Di Module ketikkan kode Module yang ada disini. Lalu di Form di bagian 'Form_Load' ketikkan :

FadeForm Me, 0
Me.Show

Dim i As Integer
For i = 1 To 255 Step 1
FadeForm Me, i
DoEvents
Next

FadeForm Me, 255

Dan di bagian 'Form_Unload' ketikkan :

Dim i As Integer
For i = 255 To 1 Step -1
FadeForm Me, i
DoEvents
Next

[ VB .NET ]
Buat Project baru dengan sebuah Form didalamnya. Di bagian 'Form1_Load' ketikkan :

Me.Opacity = 0
Me.Show()

Dim i As Integer
For i = 1 To 100 Step 1
Me.Opacity = i / 100
Application.DoEvents()
Next

Me.Opacity = 1

Dan di bagian 'Form1_FormClosed' ketikkan :

Dim i As Integer
For i = 100 To 1 Step -1
Me.Opacity = i / 100
Application.DoEvents()
Next

CATATAN : Kecepatan animasi tergantung besar nilai angka yang berwarna merah dan ukuran Form itu sendiri.

Membuat Template Sendiri

2011-11-17T01:57:00.003+07:00

Jika Anda adalah seorang Programmer yang mempunyai banyak Project, ada baiknya membuat Template sendiri untuk lebih mempercepat dan mempermudah pembuatan suatu aplikasi. Sebut saja aplikasi-aplikasi database, pasti ada kesamaannya yaitu ada sebuah Module atau Class khusus untuk pengaturan koneksi ke database-nya. Disinilah fungsi Template sangat berguna, dimana jika Anda ingin menambahkan sebuah Module khusus koneksi database, akan semudah menambahkan Module biasa.
Cara membuat Template (sebagai contoh untuk membuat Module) sebagai berikut :

[ VB 6.0 ]

Buat Project baru, lalu tambahkan Module (sebagai contoh beri nama "modKoneksiDB").
Didalam Module tersebut, ketikkan beberapa baris kode sebagai contoh saja.
Lalu simpan Project-nya seperti biasa. Kemudian tutup program VB 6.0.
Buka lokasi penyimpanan Project tadi, kemudian copy-kan file Module-nya ("modKoneksiDB.bas") ke lokasi instalasi VB 6.0. Karena ini berupa Module, maka copy-kan ke folder khusus Template Module yaitu di "C:\Program Files\Microsoft Visual Studio\VB98\Template\Modules". Jika folder tersebut tidak ada, maka buatlah sendiri foldernya.
Sekarang Module tersebut sudah siap dipakai sebagai Template untuk penambahan / add Module untuk berbagai Project.

[ VB .NET ]

Buat Project baru, lalu tambahkan Module.
Didalam Module tersebut, ketikkan beberapa baris kode sebagai contoh saja.
Lalu klik menu File > Export Template. Jika muncul perintah penyimpanan klik saja Save.
Kemudian akan muncul jendela langkah-langkah pembuatan Template.
Di halaman pertama akan muncul pilihan tipe Template-nya. Karena yang ingin dijadikan Template hanya Module-nya saja, pilih "Item template". Lalu klik Next.
Di halaman ke-2 pilih file Module-nya saja. Lalu klik Next.
Di halaman ke-3 pilih Reference apa saja yang dibutuhkan untuk Module tersebut. Jika tidak perlu, tidak usah dipilih. Lalu klik Next.
Di halaman ke-4 / terakhir sesuaikan sendiri Icon, Nama Template, Deskripsi. Sebagai contoh beri Nama Template-nya dengan nama "modKoneksiDB". Lalu klik Finish.
Sekarang Module tersebut sudah siap dipakai sebagai Template untuk penambahan item Module untuk berbagai Project.

CATATAN : Selain bisa diterapkan untuk Module, cara ini juga bisa diterapkan untuk object yang lain seperti Form, Class, User Control, dll.

Menyembunyikan File dan Folder

2011-11-15T00:19:00.001+07:00

Terkadang seorang programmer ingin membuat sebuah File atau Folder yang tersembunyi (hidden) dengan tujuan agar lebih aman dan tidak mudah diutak atik oleh user. Berikut ini cara menyembunyikan File dan Folder sesuai tingkat ke-hidden-annya.

Tingkat 1 (Hidden)
[ VB 6.0 ]

SetAttr "Lokasi File atau Folder", vbHidden
[ VB .NET ]

SetAttr("Lokasi File atau Folder", FileAttribute.Hidden)

Tingkat 2 (Super Hidden)
[ VB 6.0 ]

SetAttr "Lokasi File atau Folder", vbHidden Or vbSystem
[ VB .NET ]

SetAttr("Lokasi File atau Folder", FileAttribute.Hidden Or FileAttribute.System)

Ketika File atau Folder di hidden / disembunyikan, maka File atau Folder tersebut tidak dapat di olah /di proses. Maka dari itu File atau Folder tersebut harus dimunculkan terlebih dulu. Contoh kode pemrosesan file :

[ VB 6.0 ]

SetAttr "Lokasi File atau Folder", vbNormal 'memunculkan file

'pemrosesan file
'kode-kode pemrosesan file
'kode-kode pemrosesan file

SetAttr "Lokasi File atau Folder", vbHidden 'disembunyikan lagi

[ VB .NET ]

SetAttr("Lokasi File atau Folder", FileAttribute.Normal) 'memunculkan file

'pemrosesan file
'kode-kode pemrosesan file
'kode-kode pemrosesan file

SetAttr("Lokasi File atau Folder", FileAttribute.Hidden) 'disembunyikan lagi

Aplikasi Facebook Mini

2011-11-13T03:31:00.001+07:00

Sebenarnya aplikasi Facebook Mini hanyalah merupakan aplikasi sejenis web browser yang dikhususkan untuk mengakses halaman Facebook saja.
Tapi bagi para Facebooker, pasti akan tertarik dengan aplikasi ini. Karena aplikasi ini menggunakan halaman Facebook versi ponsel, maka waktu loadingnya lebih cepat daripada versi normalnya. Selain itu juga dilengkapi beragam shortcut menu untuk memudahkan navigasi antar halaman.
Perlu diingat sebelum menggunakan aplikasi ini, pastikan di komputer sudah ter-install Internet Explorer 8.

Drive Icon Maker

2011-11-09T01:30:00.000+07:00

Ini merupakan source code aplikasi Drive Icon Maker yang merupakan aplikasi untuk membuat ikon untuk drive-drive di komputer.

All-In-One Toolbar

2011-11-07T03:06:00.001+07:00

All-In-One Toolbar bukanlah sebuah kontrol Toolbar baru atau buatan sendiri, tetapi hanya konsep / cara bagaimana lebih memanfaatkan kontrol Toolbar biasa,
khususnya aplikasi yang menggunakan tampilan MDI.

Mengenal LINQ

2011-11-02T01:27:00.000+07:00

LINQ adalah fitur baru yang ditambahkan sejak pada Visual Basic 2008 (9.0) yang berguna untuk lebih mempermudah dalam proses pembuatan aplikasi.

Lampu Lalu Lintas

2011-11-01T02:15:00.000+07:00

Berikut ini merupakan contoh source code membuat simulasi lampu lalu lintas / traffic light, cocok untuk mengasah kemampuan logika Anda.

Dasar Pemrograman

2011-10-29T03:09:00.001+07:00

Jika Anda membutuhkan artikel yang membahas tentang dasar pemrograman visual basic, mungkin artikel ini bisa menjadi solusinya.

Seni Rekursif

2011-10-29T02:36:00.000+07:00

Rekursif merupakan teknik pengulangan kode, yang biasa digunakan untuk menghemat jumlah kode. Ingin tahu cara membuatnya ?

Pengacakan Nomer Undian

2011-10-13T03:35:00.000+07:00

Anda pasti pernah melihat acara kuis di TV yang seringkali melakukan pengacakan serangkaian nomer undian untuk mendapatkan pemenangnya.
Berikut ini contoh source code VB yang prosesnya mirip dengan hal tersebut.

Cepat Mahir Visual Basic

2011-10-12T01:21:00.001+07:00

Artikel ini sangat berguna bagi Anda yang ingin mempelajari Visual Basic (VB 6.0 dan VB .NET) secara cepat dan juga mahir.

Step-By-Step VB .NET

2011-10-08T03:26:00.002+07:00

Ini merupakan artikel yang membahas VB .NET secara step-by-step (langkah demi langkah), dimana isinya jarang ditemukan di buku-buku di pasaran.

Buku Migrasi VB 6.0 ke VB .NET

2011-10-07T05:08:00.000+07:00

Jika Anda selama ini adalah programmer VB 6.0 yang ingin berpindah ke VB .NET, tapi masih canggung antara perbedaannya, mungkin buku ini bisa sangat membantu.

Koneksi VB .NET dengan MySQL

2011-10-06T23:42:00.000+07:00

Masih bingung bagaimana menggunakan MySQL sebagai database untuk aplikasi VB .NET Anda ?. Jika iya, silahkan langsung download saja artikel singkat ini.

Aplikasi Pengatur Fitur Windows

2011-10-04T02:24:00.002+07:00

Aplikasi sederhana ini dibuat unuk mempermudah pengaturan fitur-fitur windows mana saja yang boleh dijalankan dalam komputer.

Aplikasi Penge-"Block" Aplikasi Lain

2011-09-30T02:33:00.000+07:00

Aplikasi ini dibuat untuk menge-block aplikasi-aplikasi lain yang tidak ingin dijalankan. Aplikasi ini sangat berguna untuk komputer yang berisifat publik, seperti di warnet.

Aplikasi Pengambil Warna

2011-09-26T00:47:00.001+07:00

Aplikasi pengambil warna atau sering disebut color picker, merupakan aplikasi yang digunakan untuk mengambil warna beserta rinciannya pada area tertentu.

Permainan MouseMotion

2011-09-23T03:59:00.000+07:00

Ini merupakan permainan dimana mengharuskan user untuk menggerakkan mouse/ cursor sesuai area jalan yang telah ditentukan.

Permainan Tebak Kata

2011-09-22T04:48:00.000+07:00

Permainan ini merupakan permainan menebak kata sederhana. Dimana user diharuskan memasukkan huruf demi huruf untuk mendapatkan jawaban / kata yang benar.

Aplikasi Desktop

2011-09-19T02:59:00.000+07:00

Aplikasi Desktop adalah jenis aplikasi yang dikhususkan untuk ditampilkan di desktop saja.
Untuk membuatnya, diperlukan tambahan kode khusus agar Form dari aplikasi dapat "menempel" di desktop. Berikut ini contoh souce code yang sederhana.

Informasi Hardware

2011-09-16T00:09:00.000+07:00

Ini merupakan aplikasi yang dibuat untuk menampilkan hardware-hardware yang terpasang di komputer. Seperti processor, memory, hdd, cd-rom, dll.

Informasi Drive

2011-09-06T02:04:00.001+07:00

Aplikasi ini digunakan untuk mengetahui informasi drive-drive yang terdapat / terpasang di komputer, seperti tipe, format, nomer serial-nya.

Mengetahui Versi Windows

2011-09-04T03:21:00.002+07:00

Berikut ini adalah kode sederhana untuk mengetahui versi dari Windows di komputer.
Buat Project baru dengan sebuah Form didalamnya, kemudian tambahkan kontrol Label (untuk menampung hasilnya) ke dalam Form tersebut. Lalu ketikkan kode berikut di bagian 'Form_Load' :

[ VB 6.0 ]

Dim Win As Object
For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next

[ VB .NET ]

For Each Win As Object In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next

Start Button Kedip

2011-08-27T01:05:00.000+07:00

Kode berikut ini digunakan untuk membuat Start Button di Taskbar bisa berkedip.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim b As Boolean

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), Abs(CInt(b))
b = Not b

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
Dim b As Boolean

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

ShowWindow(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), System.Math.Abs(CInt(b)))
b = Not b

Clipboard

2011-08-19T01:51:00.001+07:00

Secara awam, Clipboard adalah tempat di komputer untuk menyimpan data sementara ketika melakukan proses cut/copy-paste, baik data tersebut berupa teks, gambar, file atau yang lain. Dalam VB terdapat fungsi / prosedur khusus untuk mengoperasikan Clipboard secara sederhana. Berikut ini contoh penggunaannya :

[ VB 6.0 ]

Meng-copy Teks
Clipboard.Clear
Clipboard.SetText "Teks yang akan di-copy", vbCFText
Meng-copy Gambar (gambar diambil dari kontrol Picture1)
Clipboard.Clear
Clipboard.SetData Picture1.Picture, vbCFBitmap
Meng-paste Teks (ditampung di kontrol Text1)
Text1.Text = Clipboard.GetText(vbCFText)
Meng-paste Gambar (ditampung di kontrol Picture1)
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
Memeriksa apakah berisi data Teks (pesan MsgBox)
MsgBox Clipboard.GetFormat(vbCFText)
Memeriksa apakah berisi data Gambar (pesan MsgBox)
MsgBox Clipboard.GetFormat(vbCFBitmap)
Menghapus data
Clipboard.Clear

[ VB .NET ]

Meng-copy Teks
Clipboard.SetText("Teks yang akan di-copy")
Meng-copy Gambar (gambar diambil dari kontrol PictureBox1)
Clipboard.SetImage(PictureBox1.Image)
Meng-paste Teks (ditampung di kontrol TextBox1)
TextBox1.Text = Clipboard.GetText
Meng-paste Gambar (ditampung di kontrol PictureBox1)
PictureBox1.Image = Clipboard.GetImage
Memeriksa apakah berisi data Teks (pesan MsgBox)
MsgBox(Clipboard.ContainsText)
Memeriksa apakah berisi data Gambar (pesan MsgBox)
MsgBox(Clipboard.ContainsImage)
Menghapus data
Clipboard.Clear

ComboBox Kombinasi

2011-08-12T02:30:00.000+07:00

Dengan sedikit kreatfitas sebenarnya kontrol ComboBox bisa dikombinasikan dengan kontrol lain, semisal ListView (seperti gambar diatas), TreeView, bahkan DataGrid.
Sehingga tampilan ComboBox lebih variatif dari biasanya yang hanya menampilkan list saja.

Pencari Ayat Al Qur'an

2011-08-05T01:42:00.000+07:00

Aplikasi ini merupakan aplikasi yang digunakan untuk mencari ayat Al Qur'an. Aplikasi ini membutuhkan koneksi internet (online) untuk menampilkan ayat-nya.

Penghitungan Mundur

2011-08-03T00:32:00.001+07:00

Bila Anda membutuhkan contoh prosedur untuk melakukan proses penghitungan mundur / countdown, berikut ini cara membuatnya. Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 1 kontrol Tombol / Button, dan 1 buah kontrol Timer (Enabled=False; Interval=1000), lalu ketikkan kode-kode berikut

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00:00:00"

Di bagian 'Command1_Click' ketikkan :

'nilai awal (0 s/d 59)

Jam = 0

Menit = 1
Detik = 10

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

Timer1.Enabled = True
Command1.Enabled = False

Di bagian 'Timer1_Timer' ketikkan :

Detik = Detik - 1
If Detik < 0 Then
Detik = 59

Menit = Menit - 1

If Menit < 0 Then

Menit = 59

Jam = Jam - 1

End If

End If

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Command1.Enabled = True

MsgBox "Waktu Habis !!!"
End If

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00:00:00"

Di bagian 'Button1_Click' ketikkan :

'nilai awal (0 s/d 59)

Jam = 0

Menit =1
Detik = 10

Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

Timer1.Enabled = True
Button1.Enabled = False

Di bagian 'Timer1_Tick' ketikkan :

Detik -= 1
If Detik < 0 Then
Detik = 59

Menit -= 1

If Menit < 0 Then

Menit = 59

Jam -= 1

End If

End If

Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Button1.Enabled = True

MsgBox("Waktu Habis !!!")
End If

CATATAN : Kode diatas mencakup Jam, Menit, dan Detik. Namun bila Anda menginginkan hanya Menit dan Detik saja, tinggal menghapus kode-kode yang berwarna merah.

Stopwatch

2011-08-01T01:39:00.003+07:00

Berikut ini cara membuat aplikasi stopwatch atau aplikasi penghitung waktu yang sederhana menggunakan Visual Basic.
Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 2 kontrol Tombol / Button (utk Start dan Reset), dan 1 buah kontrol Timer (Enabled=False; Interval=10). Kemudian atur seperti gambar diatas, dan bagian kodenya adalah :

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00 : 00 : 00,00"

Di bagian 'Command1_Click' ketikkan : (Start)

Timer1.Enabled = (Command1.Caption = "Start")
Command1.Caption = IIf(Command1.Caption = "Start", "Stop", "Start")

Di bagian 'Command2_Click' ketikkan : (Reset)

Timer1.Enabled = False
Command1.Caption = "Start"
Label1.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Timer' ketikkan :

mDetik = mDetik + 1
If mDetik = 100 Then
mDetik = 0

Detik = Detik + 1
If Detik = 60 Then
Detik = 0

Menit = Menit + 1
If Menit = 60 Then
Menit = 0
Jam = Jam + 1
End If

End If
End If

Label1.Caption = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik, mDetik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00 : 00 : 00,00"

Di bagian 'Button1_Click' ketikkan : (Start)

Timer1.Enabled = (Button1.Text = "Start")
Button1.Text = IIf(Button1.Text = "Start", "Stop", "Start")

Di bagian 'Button2_Click' ketikkan : (Reset)

Timer1.Enabled = False
Button1.Text = "Start"
Label1.Text = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Tick' ketikkan :

mDetik += 1
If mDetik = 100 Then
mDetik = 0

Detik += 1
If Detik = 60 Then
Detik = 0

Menit += 1
If Menit = 60 Then
Menit = 0
Jam += 1
End If

End If
End If

Label1.Text = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

Aplikasi Belajar Mewarnai

2011-07-24T02:32:00.000+07:00

Aplikasi ini dibuat untuk digunakan anak-anak sebagai media dalam belajar mewarnai suatu gambar. Aplikasi ini sejenis aplikasi Paint yang dibuat lebih sederhana.

Filter Data Berdasarkan Tanggal

2011-07-19T02:13:00.000+07:00

Mungkin banyak yang belum tahu bagaimana cara mem-filter / menyeleksi data berdasarkan tanggal tertentu, berikut ini contoh souce code-nya.

Tanggal Akhir Bulan

2011-07-16T23:06:00.001+07:00

Tanggal akhir bulan biasanya digunakan untuk melengkapi title / judul data laporan keuangan di akhir periode (misal, Laporan Neraca per . . . . . . . . . . . . ). Untuk mengetahui tanggal akhir bulan, tidak diperlukan kode yang terlalu banyak. Berikut ini contohnya :

Dim Bulan As Integer, Tahun As Integer, d As Date

Bulan = 7 'JULI

Tahun = 2011

d = DateSerial(Tahun, Bulan + 1, 0) 'menampung hasil
MsgBox d 'memunculkan pesan

Jika Anda ingin mengetahui tanggal akhir bulan dari bulan sekarang dan tahun sekarang, gantikan kode yang berwarna merah dengan kode berikut :

Bulan = Month(Now)
Tahun = Year(Now)

Menyembunyikan TaskBar dan Desktop Icon

2011-07-14T03:14:00.001+07:00

Berikut ini adalah contoh kode yang digunakan untuk menyembunyikan TaskBar dan Desktop Icon. Buat Project baru dengan sebuah Form didalamnya.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Dan di bagian Form_Load ketikkan :

ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 0 'taskbar
ShowWindow FindWindow("Progman", vbNullString), 0 'desktop icon

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer

Dan di bagian Form1_Load ketikkan :

ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 0) 'taskbar
ShowWindow(FindWindow("Progman", vbNullString), 0) 'desktop icon

CATATAN : Jika Anda ingin mengembalikannya seperti semula, gantikan nilai 0 yang berwarna merah, menjadi nilai 1.

Menambahkan Tab dalam Form MDI

2011-07-12T02:07:00.000+07:00

Penambahan kontrol Tab ke dalam Form MDI, berguna untuk mempermudah User ketika berpindah-pindah antar Form Child-nya.

Menghilangkan DoubleClick Mouse

2011-07-07T23:37:00.003+07:00

Kode ini berguna untuk menghilangkan / meniadakan perintah double click pada mouse.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

SetDoubleClickTime 1

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

SetDoubleClickTime(1)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, pilih tab "Buttons". Lalu sesuaikan kembali Double-click speed-nya.

Resource

2011-07-07T03:10:00.001+07:00

Dalam istilah yang sederhana, Resource dapat diartikan sebagai tempat untuk menyimpan file-file yang dibutuhkan atau diakses aplikasi. File-file yang dimasukkan ke dalam Resource akan dijadikan satu atau ikut ter-compile ketika aplikasi dijadikan *.exe.
Sebagai percobaan, langkah berikut ini akan mengatur gambar dari Form dimana gambar tersebut diambil dari Resource. Jadi sebelumnya siapkan sebuah file gambar *.jpg, kemudian ikuti langkah selanjutnya berikut ini :

[ VB 6.0 ]
Secara default, VB 6.0 tidak mengaktifkan fitur untuk membuat Resource. Untuk mengaktifkannya klik menu Add-Ins >> Add-In Manager. Dalam daftar pilih item dengan nama "VB 6 Resource Editor", lalu centang pilhan / checkbox "Loaded/Unloaded" dan "Load on Startup" kemudian klik tombol OK untuk menutupnya. Selanjutnya klik menu Tools >> Resource Editor, maka akan muncul jendela seperti berikut :

Dalam toolbar-nya, pilih "Add Custom Resource", kemudian buka file gambar *.jpg yang sudah disiapkan tadi. Setelah itu maka secara otomatis muncul item folder baru "CUSTOM" dan item "101" dibawahnya. Penjelasanya adalah file gambar *.jpg tadi, tersimpan dibagian "CUSTOM" dengan nomor index atau ID = 101 (dapat dirubah). Kemudian klik toolbar "Save" untuk menyimpannya.
Sekarang langkah kode untuk memanggil gambar tersebut dari Resource yang akan dijadikan gambar untuk Form. Di bagian 'Form_Load' ketikkan :

Dim b() As Byte

Open "tmp" For Binary As #1
b() = LoadResData(101, "CUSTOM") '101 adlh ID dr gambar
Put #1, 1, b()
Close #1

Me.Picture = LoadPicture("tmp")

[ VB .NET ]
Klik menu Project >> "Nama Project" Properties, kemudian pilih tab "Resources". Selanjutnya pilih menu combo box Add Resouce >> Add Existing File, lalu pilih file gambar *.jpg yang sudah disiapkan tadi. Kemudian simpan / save project tersebut.
Sekarang langkah kode untuk memanggil gambar tersebut dari Resource yang akan dijadikan gambar untuk Form. Di bagian 'Form1_Load' ketikkan :

Me.BackgroundImage = My.Resources.Gambar 'sesuaikan kembali

Menampilkan Gambar GIF atau PNG

2011-06-25T23:23:00.002+07:00

Kontrol PictureBox dan Image yang terdapat dalam VB 6.0 tidak dapat menampilkan gambar yang berformat GIF (secara gerak / animasi) dan PNG. Solusi yang paling mudah untuk melakukannya adalah menggunakan kontrol WebBrowser, berikut langkah-langkahnya :

Buat Project baru dengan sebuah Form didalamnya. Lalu tambahkan Component baru dengan nama "Microsoft Internet Controls", kemudian tempatkan kontrol WebBrowser. Untuk menampilkan gambar ke dalam WebBrowser, tambahkan kode berikut di bagian 'Form_Load'

WebBrowser1.Navigate "LOKASI FILE GAMBAR"

Bila Anda menginginkan agar kontrol WebBrowser tampak seperti kontrol PictureBox, gunakan kode berikut :

Dim s As String, h As String

s = "LOKASI FILE GAMBAR"

h = "<html>" & vbCrLf & "<body scroll=" & Chr(34) & "no" & Chr(34)
h = h & " TOPMARGIN=" & Chr(34) & "0" & Chr(34)
h = h & " LEFTMARGIN=" & Chr(34) & "0" & Chr(34) & ">" & vbCrLf

h = h & "<img src=" & Chr(34) & s & Chr(34) & ">" & vbCrLf & "</body>" & vbCrLf & "</html>"

Open App.Path & "\temp.tmp" For Output As #1
Print #1, h
Close #1

WebBrowser1.Navigate App.Path & "\temp.tmp"

Jika ingin diubah posisi gambarnya ke tengah, gantikan kode yang berwarna merah dengan kode berikut :

h = h & "<center><img src=" & Chr(34) & s & Chr(34) & "></center>" & vbCrLf & "</body>" & vbCrLf & "</html>"

Jika ingin gambar ditampilkan secara stretch, gantikan kode yang berwarna merah dengan kode berikut :

h = h & "<img src=" & Chr(34) & s & Chr(34) & " width =" & Chr(34) & "100%" & Chr(34)
h = h & " height =" & Chr(34) & "100%" & Chr(34) & " >" & vbCrLf & "</body>" & vbCrLf & "</html>"

Untuk menghilangkan PopupMenu dari kontrol WebBrowser, ikuti langkah-langkah berikut :
Tambahkan References "Microsoft HTML Object Library"
Di bagian '(Declarations)' dari Form ketikkan :

Dim WithEvents Hdoc As HTMLDocument

Lalu di bagian 'WebBrowser1_DocumentComplete' ketikkan :

Set Hdoc = WebBrowser1.Document

Terakhir di bagian 'Hdoc_oncontextmenu()' ketikkan :

Hdoc_oncontextmenu = False

CATATAN :
Selain dapat diterapkanuntuk gambar berformat GIF atau PNG, cara ini juga bisa diterapkan untuk format yang lain seperti JPG, BMP, ICO, dll
Karena cara ini menggunakan kontrol WebBrowser maka bisa digunakan untuk men-load gambar dari internet.

Penomoran Data Otomatis

2011-06-22T23:41:00.002+07:00

Penomoran data secara otomatis berguna untuk mempermudah User ketika melakukan penambahan data. Biasanya cara ini diterapkan pada field ID atau primary key.

CrystalReport Dinamis

2011-06-21T02:52:00.000+07:00

Berikut ini adalah contoh source code yang menggunakan laporan data berbasis CrystalReport secara dinamis, atau dapat dirubah-rubah datanya ketika aplikasi dijalankan.
Download source code-nya disini.

InputBox Buatan Sendiri

2011-06-18T01:59:00.001+07:00

Kurang puas dengan tampilan InputBox bawaan VB? Jika iya, sebenarnya Anda bisa membuat InputBox sendiri sesuai dengan selera dan kebutuhan seperti gambar diatas.
Download source code-nya disini.

Menempatkan DataReport Sebagai Kontrol

2011-06-15T01:24:00.001+07:00

Jika Anda pernah atau sedang menggunakan DataReport sebagai laporan untuk database, maka mau tidak mau DataReport tersebut akan tampil sebagai form / jendela baru.
Dengan sedikit trik, sebenarnya DataReport bisa ditempatkan sebagai kontrol seperti menggunakan CrystalReport (dengan kontrol viewer).
Download source code-nya disini.

Mengisi AutoComplete TextBox dengan Data

2011-06-13T00:35:00.003+07:00

Dalam kontrol TextBox di VB .NET, terdapat properti AutoComplete yang berguna untuk memudahkan pengisian teks dengan menampilkan kemungkinan teks yang akan diketik.
Dengan sedikti kreatifitas, Anda bisa memanfaatkan properti AutoComplete tersebut sebagai fitur untuk mempermudah penginputan data, dengan cara mengisinya dengan data yang diperlukan. Download contoh source code-nya disini.

Media Player

2011-06-11T02:55:00.004+07:00

Ini merupakan aplikasi media player sederhana yang mampu memutar file audio, video, bahkan playlist. Didalamnya tersedia fasilitas fullscreen, loop, shuffle, dll.
Media player ini menggunakan kontrol Windows Media Player (wmp.dll) sebagai kontrol utamanya. Yang mungkin membedakan dengan souce code media player lain, terletak dimana daftar file media yang diputar terintegrasi dengan playlist dari kontrol, sehingga lebih mudah dikembangkan dan dikendalikan.
Download source code-nya disini.

Membatasi Karakter Input TextBox

2011-06-10T22:55:00.002+07:00

Mungkin Anda pernah menginginkan agar sebuah TextBox hanya boleh atau bisa diisi dengan karakter input tertentu, seperti hanya karakter "R" dan "A" saja, atau mungkin hanya karakter "I" dan karakter angka saja, atau yang lain.
Berikut ini satu baris kode yang bisa Anda gunakanuntuk melakukannya. Sebagai contoh, buatlah sebuah kontrol TextBox di dalam Form. Lalu ketikkan kode berikut di bagian 'TextBox1_KeyPress' -nya :

[ VB 6.0 ]

If (InStr("RTAB", Chr(KeyAscii)) = 0) And (KeyAscii <> 8) Then KeyAscii = 0

[ VB .NET ]

If (InStr("RTAB", e.KeyChar) = 0) And (e.KeyChar <> Chr(8)) Then e.KeyChar = Chr(0)

Contoh diatas menunjukkan bagaimana TextBox hanya bisa diisi karakter "R", "T", "A", dan "B" saja. Jika Anda menginginkan karakter yang lain, tinggal menggati teks yang berwarna merah dengan karakter-karakter yang hanya boleh diinputkan. Misalnya Anda ingin hanya krakter "J" dan karakter angka saja, tinggal menggantikannya dengan "J0123456789".

Grafik Data

2011-06-07T02:01:00.003+07:00

Pembuatan grafik untuk mempresentasikan data, bertujuan agar user lebih mudah dalam memahami perbandingan data yang satu dengan data yang lain.
Pembuatan grafiknya dibuat menggunakan kontrol Microsoft Chart (MSCHRT20.ocx), yang memiliki berbagai bentuk mulai dari batang sampai dengan pie.

Manipulasi Data Sederhana

2011-06-05T23:48:00.002+07:00

Source code berikut ini menunjukkan bagaimana memanipulasi data yang bersifat sederhana, seperti mencari data terbesar atau terkecil, menghitung jumlah total, dll.
Download source code-nya disini.

Menyimpan Gambar dalam Database

2011-06-04T00:11:00.001+07:00

Berikut ini adalah contoh source code yang menunjukkan bagaimana cara menyimpan gambar ke dalam database dan menampilkannya kembali dari database.

Tab IDE

2011-06-01T02:07:00.000+07:00

Dalam IDE / lembar kerja Visual Basic 6.0, tidak terdapat kontrol Tab yang berguna untuk mempermudah berpindah antar jendela / form yang terbuka.
Solusinya adalah dengan menginstall Add-In khusus yang bisa Anda download disini.

Menampilkan Data di ComboBox dan ListBox

2011-06-01T01:12:00.002+07:00

Menampilkan data di kontrol ComboBox atau ListBox, biasanya diterapkan dalam Form inputan untuk tabel yang be-relathionship / berhubungan dengan tabel lain.
Sehingga dapat mengurangi resiko kesalahan dan mempermudah penginputan data.

Menampilkan Data di ListView

2011-05-28T02:47:00.000+07:00

Kontrol ListView sering digunakan sebagai alternatif selain kontrol DataGrid, bilamana suatu data ingin ditampilkan secara readonly serta terlihat lebih simpel dan rapi.
Download source code-nya disini.

Mendeteksi Cara Penutupan Form

2011-05-25T03:10:00.002+07:00

Dalam VB ketika sebuah Form ditutup / di-close, maka Anda bisa mendeteksi cara bagaimana Form tersebut ditutup. Apakah ditutup secara normal, atau ditutup lewat TaskManager, atau mungkin ditutup ketika komputer di-shutdown.
Berikut ini bagaimana cara penerapannya.

[ VB 6.0 ]
Nilai yang dideteksi adalah nilai variabel 'UnloadMode' yang terdapat di event 'Form_QueryUnload'. Berikut ini nilai-nilai nya :

vbFormControlMenu atau 0, nilai ketika Form ditutup melalui tombol close-nya (tombol x merah).
vbFormCode atau 1, nilai ketika Form ditutup melalui kode VB. Contoh :
Unload Form1
vbAppWindows atau 2, nilai ketika Form ditutup dikarenakan komputer di-shutdown.
vbAppTaskManager atau 3, nilai ketika Form ditutup melalui TaskManager.
vbFormMDIForm atau 4, nilai ketika Form (sbg Form Child) ditutup karena Form MDI-nya ditutup.
vbFormOwner atau 5, nilai ketika Form ditutup karena Form Owner-nya ditutup. Misalnya ada dua Form (Form1 dan Form2). Kemudian Form2 di-load melalui Form1 dengan kode :
Form2.Show , Me
sehingga ketika Form1 ditutup (Form2 belum ditutup), maka nilai ini dideteksi ketika Form2 ditutup.

Contoh, ketikkan kode berikut di bagian 'Form_QueryUnload' dari Form.

If UnloadMode = vbAppTaskManager Then
MsgBox "Form ditutup melalui TaskManager !"
End If

[ VB .NET ]
Nilai yang dideteksi adalah nilai properti 'e.CloseReason' yang terdapat di event 'Form1_FormClosing' atau di 'Form1_FormClosed'. Berikut ini nilai-nilai nya :

None atau 0, nilai ketika Form ditutup tanpa diketahui sebabnya.
WindowsShutDown atau 1, nilai ketika Form ditutup dikarenakan komputer di-shutdown.
MdiFormClosing atau 2, nilai ketika Form (sbg Form Child) ditutup karena Form MDI-nya ditutup.
UserClosing atau 3, nilai ketika Form ditutup melalui tombol close-nya (tombol x merah) atau ditutup melalui kode VB. Contoh :
Form1.Close
TaskManagerClosing atau 4, nilai ketika Form ditutup melalui TaskManager.
FormOwnerClosing atau 5, nilai ketika Form ditutup karena Form Owner-nya ditutup. Misalnya ada dua Form (Form1 dan Form2). Kemudian Form2 di-load melalui Form1 dengan kode :
Form2.Show(Me)
sehingga ketika Form1 ditutup (Form2 belum ditutup), maka nilai ini dideteksi ketika Form2 ditutup.
ApplicationExitCall atau 6, nilai ketika Form ditutup melalui kode berikut :
Application.Exit()

Contoh, ketikkan kode berikut di bagian 'Form1_FormClosed' dari Form.

If e.CloseReason = CloseReason.TaskManagerClosing Then
MsgBox("Form ditutup melalui TaskManager !")
End If

Karakter Password Unik

2011-05-19T03:59:00.003+07:00

Ketika membuat Form Login untuk aplikasi database, pasti terdapat kontrol TextBox yang digunakan sebagai input Password-nya.
Dan untuk menyamarkan tulisan password yang diketik, programmer biasanya mengisi properti PasswordChar dari kontrol TextBox dengan karakter asterix (*).
Berikut ini adalah tips sederhana untuk menjadikan TextBox password agar terkesan lebih unik. Caranya cukup mengatur properti Font dan PasswordChar dari TextBox itu sendiri. Semisal seperti gambar diatas, Anda cukup mengatur properti Font-nya menjadi "MS Outlook" dan PasswordChar menjadi "B".

Daftar karakter lain yang bisa Anda coba :

Bentuk	Font	PasswordChar
Titik besar	`Webdings`	=
Listrik	`Webdings`	~
Tools	`Webdings`	@
Tengkorak	`Wingdings`	N
Menulis	`Wingdings`	?
Smiley	`Wingdings`	J
Jempol	`Wingdings 2`	<
Contreng	`Wingdings 2`	P

Jika menginginkan bentuk karakter yang lain, Anda bisa memanfaatkan aplikasi Character Map (Start > All Programs > Accessories > System Tools > Character Map). Pilih salah satu karakter yang diinginkan, kemudian copy-paste ke dalam properti PasswordChar lalu sesuaikan properti Font dengan nama Font yang telah dipilih dari aplikasi Character Map.

CATATAN : Jika karakter tidak jelas karena terlalu kecil, Anda tinggal mengubah ukuran / size dari properti Font-nya.

Load Gambar dari Internet

2011-05-18T00:47:00.000+07:00

Kode berikut ini digunakan untuk me-load gambar dari internet ke dalam sebuah kontrol semisal kontrol PictureBox.

[ VB 6.0 ]
Buat sebuah Form dengan sebuah kontrol PictureBox dan sebuah kontrol CommandButton didalamnya. Lalu ketikkan kode berikut di bagian 'Command1_Click' :

Dim b() As Byte
Dim whr As Object
Set whr = CreateObject("WinHttp.WinHttpRequest.5.1")

whr.Open "GET", "http://www.google.com/intl/id/images/logo.gif", False
whr.Send

Open "temp.tmp" For Binary As #1
b() = whr.ResponseBody
Put #1, 1, b()
Close #1

Picture1.Picture = LoadPicture("temp.tmp")

[ VB NET ]
Buat sebuah Form dengan sebuah kontrol PictureBox dan sebuah kontrol Button didalamnya. Lalu ketikkan kode berikut di bagian 'Button1_Click' :

PictureBox1.ImageLocation = "http://www.google.com/intl/id/images/logo.gif"

CATATAN : Gambar dapat diubah dengan mengganti kode yang berwarna merah dengan alamat lokasi gambar yang baru.

Fungsi-fungsi Angka

2011-05-13T05:43:00.002+07:00

Berikut ini adalah fungsi-fungsi yang sering digunakan untuk mengolah data bertipe angka (integer, long, double, dll). Sebelumnya khusus untuk VB .NET, ketikkan kode berikut dibagian paling atas dari jendela kode dari Form.

Imports System.Math

Abs(n), digunakan untuk mencari nilai absolut dari n. Contoh :
a = Abs(5) , nilai a adalah 5
a = Abs(-5) , nilai a adalah 5

CInt(n) dan Int(n), digunakan untuk mengubah nilai n menjadi nilai bertipe integer / bulat. Perbedaannya adalah jika CInt bila desimalnya bernilai lebih besar dari 0,5 , maka nilai akan dibulatkan 1 ke atas. Sedangkan Int tidak. Contoh :
a = CInt(3.4) , nilai a adalah 3
a = CInt(3.6) , nilai a adalah 4
a = Int(3.4) , nilai a adalah 3
a = Int(3.6) , nilai a adalah 3

CDbl(n) dan Val(n), digunakan untuk menkonversi nilai n yang bertipe string ke nilai bertipe double / angka. Perbedaannya adalah jika Val nilai n harus berformat Inggris (karakter desimal adalah tanda titik), sehingga muncul permasalahan jika settingan komputer menggunakan format Indonesia (karakter desimal adalah tanda koma) yang akan menghasilkan nilai berbeda. Sedangkan bila CDbl mampu menyesuaikan nilai sesuai dengan setting format komputer.
Berikut contoh yang diterapkan di komputer dengan setting format Indonesia.
a = Val("2,5") , nilai a adalah 2
a = CDbl("2,5") , nilai a adalah 2,5

Randomize dan Rnd() * n, kedua fungsi ini sering dikombinasikan untuk mencari angka acak antara 0 sampai dengan n. Contoh :

Randomize
a = Rnd() * 4
nilai a bisa bernilai antara 0 sampai dengan 4

Namun jika Anda ingin angka bertipe bulat saja, berikut contohnya :

Randomize
a = CInt(Rnd() * 4)

Dan jika Anda menginginkan acak dalam tipe boolean (True atau False),
berikut contohnya :

Randomize
a = CBool(CInt(Rnd() * 1))
nilai a bisa bernilai True atau False

Log(n), digunakan untuk mencari nilai logaritma natural dari n. Contoh :
a = Log(5) , nilai a adalah 1,60943791243
Jika Anda ingin mencari nilai logaritma standar dari n gunakan fungsi berikut :
VB 6.0 a = Log(n) / Log(10)
VB .NET a = Log10(n)

Exp(n), merupakan fungsi kebalikan dari Log(n). Contoh :
a = Exp(1,60943791243) , nilai a adalah 5

Round(n, x), digunakan untuk menyesuaikan jumlah angka desimal dari n sebanyak x. Contoh :
a = Round(5.3784, 2) , nilai a adalah 5,38

Sgn(n), digunakan untuk mencari tanda angka dari n. Fungsi ini menghasilkan nilai 1 jika n adalah positif, nilai -1 jika n adalah negatif, dan nilai 0 jika n adalah nol. Contoh:
VB 6.0 a = Sgn(-9)
VB .NET a = Sign(-9)
nilai a adalah -1

Sqr(n), digunakan untuk mencari akar kuadrat dari n. Contoh :
VB 6.0 a = Sqr(9)
VB .NET a = Sqrt(9)
nilai a adalah 3

Sin, Cos, Tan
VB 6.0

Nama	Fungsi
Sin	`a = Sin(n * Angle)`
Cosin	`a = Cos(n * Angle)`
Tangen	`a = Tan(n * Angle)`
Inv. Sin	`a = Atn(n / Sqr(-n * n + 1)) / Angle`
Inv. Cosin	`a = (Atn(-n / Sqr(-n * n + 1)) + 2 * Atn(1)) / Angle`
Inv. Tangen	`a = Atn(n) / Angle`
Sin Hyp.	`a = (Exp(n) - Exp(-n)) / 2`
Cosin Hyp.	`a = (Exp(n) + Exp(-n)) / 2`
Tangen Hyp.	`a = (Exp(n) - Exp(-n)) / (Exp(n) + Exp(-n))`
Inv. Sin Hyp.	`a = Log(n + Sqr(n * n + 1))`
Inv. Cosin Hyp.	`a = Log(n + Sqr(n * n - 1))`
Inv. Tangen Hyp.	`a = Log((1 + n) / (1 - n)) / 2`

VB NET

Nama	Fungsi
Sin	`a = Sin(n * Angle)`
Cosin	`a = Cos(n * Angle)`
Tangen	`a = Tan(n * Angle)`
Inv. Sin	`a = Asin(n) / Angle`
Inv. Cosin	`a = Acos(n) / Angle`
Inv. Tangen	`a = Atan(n) / Angle`
Sin Hyp.	`a = Sinh(n)`
Cosin Hyp.	`a = Cosh(n)`
Tangen Hyp.	`a = Tanh(n)`
Inv. Sin Hyp.	`a = Log(n + Sqrt(n * n + 1))`
Inv. Cosin Hyp.	`a = Log(n + Sqrt(n * n - 1))`
Inv. Tangen Hyp.	`a = Log((1 + n) / (1 - n)) / 2`

Dalam beberpa fungsi diatas terdapat variabel dengan nama Angel, yang bisa digantikan dengan nilai berikut :
Degress (DEG), gantikan dengan (3.14159265358979 / 180)
Radians (RAD), gantikan dengan 1
Grads (GRAD), gantikan dengan (3.14159265358979 / 200)
Contoh menghitung Sin dari 5 dengan ukuran DEG :
a = Sin(5 * (3.14159265358979 / 180))

Bilangan Genap, Ganjil, dan Prima

2011-05-12T05:47:00.000+07:00

Jika Anda membutuhkan kode untuk mengetahui bilangan itu genap, ganjil, atau prima,
berikut contoh potongan kodenya :

Bilangan Genap atau Ganjil

Dim a As Integer
a = 12 'contoh

If a Mod 2 = 0 Then
MsgBox "Nilai a adalah Genap"
Else
MsgBox "Nilai a adalah Ganjil"
End If

Bilangan Prima atau tidak
Ketikkan fungsi berikut di bagian '(Declarations)' dari Form.

Function Prima(ByVal Angka As Integer) As Boolean
If Angka < 2 Then Exit Function
Dim i As Integer
Prima = True
For i = 2 To (Angka - 1)
If Angka Mod i = 0 Then
Prima = False
Exit For
End If
Next
End Function

Contoh penggunaan

Dim a As Integer
a = 11 'contoh

If Prima(a) Then
MsgBox "Nilai a adalah Prima"
Else
MsgBox "Nilai a adalah Tidak Prima"
End If

Operator

2011-05-06T03:54:00.002+07:00

Operator dalam Visual Basic memiliki banyak jenis dan fungsi penggunaan.
Berikut ini adalah penjelasan singkat beberapa operator yang sering digunakan.

OPERATOR ARITMATIKA
Operator ini digunakan untuk mendapatkan hasil dari perpaduan dua buah data.

Operator	Keterangan	Contoh	Hasil
+	`Penambahan`	5 + 2	7
-	`Pengurangan`	5 - 2	3
*	`Perkalian`	5 * 2	10
/	`Pembagian`	5 / 2	2,5
\	`Pembagian dgn hasil bulat`	5 \ 2	2
Mod	`Sisa pembagian`	5 Mod 2	1
^	`Pemangkatan`	5 ^ 2	25
&	`Penggabungan string`	"Aku " & "Dia"	"Aku Dia"

Proses urutan perhitungan :
h = 5 * 7 + 3 ^ 2 / 3 - ( 2 + 3 )
   = 5 * 7 + 3 ^ 2 / 3 - 5
   = 5 * 7 + 9 / 3 - 5
   = 35 + 9 / 3 - 5
   = 35 + 3 - 5
   = 38 - 5
   = 33

OPERATOR PERBANDINGAN
Operator ini digunakan untuk membandingkan dua buah data yang akan menghasilkan nilai True jika benar, dan menghasilkan nilai False jika salah.

Operator	Keterangan
=	`Sama dengan`
<>	`Tidak sama dengan`
>	`Lebih besar`
<	`Lebih kecil`
>=	`Lebih besar atau sama dengan`
<=	`Lebih kecil atau sama dengan`
Like	`Kriteria`

Contoh perbandingan yang akan menghasilkan nilai True.
h = (2 = 2)
h = ("aku" = "aku")
h = (3 <> 2)
h = ("aku" <> "dia")
h = (3 > 2)
h = ("dia" > "aku") 'berdasarkan urutan abjad
h = (2 <= 3)

h = ("a5a" Like "a#a")
h = ("a123a" Like "a###a")
'tanda # sbg pembanding pengganti satu karakter angka

h = ("aua" Like "a?a")
h = ("a6u7a" Like "a???a")
'tanda ? sbg pembanding pengganti satu karakter sembarang

h = ("at63d346ra" Like "a*a")
h = ("aa" Like "a*a")
'tanda * sbg pembanding pengganti satu atau lebih karakter sembarang atau
tidak ada karakter

OPERATOR LOGIKA
Operator ini digunakan untuk membandingkan dua ekspresi atau lebih (khusus untuk Xor hanya bisa membandingkan dua ekspresi) yang akan menghasilkan nilai True atau False.

And
- True jika semua ekspresinya bernilai True
h = ((2 = 2) And (3 > 2) And (5 <> 1))
- False jika salah satu atau semua ekpresinya bernilai False
h = ((2 = 2) And (3 < 2) And (5 <> 1))

Or
- True jika salah satu atau semua ekpresinya bernilai True
h = ((2 = 2) Or (3 < 2) Or (5 = 1))
- False jika semua ekspresinya bernilai False
h = ((2 > 2) Or (3 < 2) Or (5 = 1))

Xor
- True jika salah satu ekpresinya bernilai True atau False
h = ((2 = 2) Xor (3 < 2))
- False jika semua ekspresinya bernilai True atau semua ekspresinya bernilai False
h = ((2 <> 2) Xor (3 < 2))

Selain ketiga operator diatas, terdapat juga operator Not yang digunakan untuk membalikkan nilai. Jika nilainya True akan menjadi False, dan bila nilainya False akan menjadi True
h = Not ((2 > 2) And (3 < 2)) 'menghasilkan True
h = Not ((2 = 2) And (3 > 2)) 'menghasilkan False

Mengganti Semua Judul Aplikasi

2011-05-03T02:44:00.005+07:00

Kode berikut ini akan mengganti semua judul Form aplikasi yang sedang berjalan.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Dim l As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

l = GetWindow(GetDesktopWindow(), 5)
Do While l <> 0
SetWindowText l, "Aplikasi Virus"
l = GetWindow(l, 2)
Loop

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As Integer
Private Declare Function GetDesktopWindow Lib "user32" () As Integer
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String) As Integer
Dim i As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

i = GetWindow(GetDesktopWindow(), 5)
Do While i <> 0
SetWindowText(i, "Aplikasi Virus")
i = GetWindow(i, 2)
Loop

Shortcut HotKey

2011-05-02T01:33:00.001+07:00

Berbeda dengan shortcut yang bisa dibuat pada menu, shortcut hotkey merupakan shortcut yang bersifat global di komputer. Dengan kata lain shortcut ini berlaku meskipun aplikasi Anda tidak sedang dalam keadaan focus. Berikut ini contoh cara membuatnya.

[ VB 6.0 ]
Buat Project baru dengan sebuah Form dan sebuah Module.
Di Module ketikkan :

Declare Function RegisterHotKey Lib "user32.dll" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Declare Function UnregisterHotKey Lib "user32.dll" (ByVal hwnd As Long, ByVal id As Long) As Long
Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public lHotKey As Long

Public Const WM_HOTKEY = &H312
Public Const GWL_WNDPROC = -4

Public Const MOD_ALT = &H1
Public Const MOD_CTRL = &H2
Public Const MOD_SHIFT = &H4
Public Const MOD_WIN = &H8

'id dari masing2 shortcut
Public Const idPerintah1 = 101
Public Const idPerintah2 = 102
Public Const idPerintah3 = 103

Public Function CallbackMsgs(ByVal wHwnd As Long, ByVal wMsg As Long, ByVal wp_id As Long, ByVal lp_id As Long) As Long
If wMsg = WM_HOTKEY Then

Form1.Show 'set focus
Select Case wp_id
Case idPerintah1
Form1.Caption = "Perintah Pertama"
Case idPerintah2
Form1.Caption = "Perintah Kedua"
Case idPerintah3
Form1.Caption = "Perintah Ketiga"
End Select

CallbackMsgs = 1
Else
CallbackMsgs = CallWindowProc(lHotKey, wHwnd, wMsg, wp_id, lp_id)
End If
End Function

Di bagian 'Form_Load' ketikkan :

RegisterHotKey Me.hwnd, idPerintah1, MOD_CTRL + MOD_SHIFT, Asc("P") 'Ctrl + Shift + P
RegisterHotKey Me.hwnd, idPerintah2, MOD_CTRL + MOD_SHIFT + MOD_ALT, Asc("Q") 'Ctrl + Shift + Alt + Q
RegisterHotKey Me.hwnd, idPerintah3, MOD_WIN, Asc("G") 'WinKey + G

lHotKey = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf CallbackMsgs)

Di bagian 'Form_Unload' ketikkan :

UnregisterHotKey Me.hwnd, idPerintah1
UnregisterHotKey Me.hwnd, idPerintah2
UnregisterHotKey Me.hwnd, idPerintah3

[ VB . NET ]
Buat Project baru dengan sebuah Form.
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function RegisterHotKey Lib "user32.dll" (ByVal hwnd As Integer, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
Private Declare Function UnregisterHotKey Lib "user32.dll" (ByVal hwnd As Integer, ByVal id As Integer) As Integer
Const WM_HOTKEY = &H312

Const MOD_ALT = &H1
Const MOD_CTRL = &H2
Const MOD_SHIFT = &H4
Const MOD_WIN = &H8

'id dari masing2 shortcut
Const idPerintah1 = 101
Const idPerintah2 = 102
Const idPerintah3 = 103

Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
If m.Msg = WM_HOTKEY Then
AppActivate(System.Diagnostics.Process.GetCurrentProcess.Id) 'set focus
Select Case m.WParam.ToInt32
Case idPerintah1
Me.Text = "Perintah Pertama"
Case idPerintah2
Me.Text = "Perintah Kedua"
Case idPerintah3
Me.Text = "Perintah Ketiga"
End Select
End If
End Sub

Di bagian 'Form1_Load' ketikkan :

RegisterHotKey(Me.Handle.ToInt32, idPerintah1, MOD_CTRL + MOD_SHIFT, Asc("P")) 'Ctrl + Shift + P
RegisterHotKey(Me.Handle.ToInt32, idPerintah2, MOD_CTRL + MOD_SHIFT + MOD_ALT, Asc("Q")) 'Ctrl + Shift + Alt + Q
RegisterHotKey(Me.Handle.ToInt32, idPerintah3, MOD_WIN, Asc("G")) 'WinKey + G

Di bagian 'Form1_FormClosed' ketikkan :

UnregisterHotKey(Me.Handle.ToInt32, idPerintah1)
UnregisterHotKey(Me.Handle.ToInt32, idPerintah2)
UnregisterHotKey(Me.Handle.ToInt32, idPerintah3)

CATATAN : Jika shortcut tidak berjalan, maka terjadi error yang bisa dikarenakan karena shortcut tersebut telah dipakai Windows atau ada aplikasi lain yang terlebih dulu memakainya.

Membuat Aplikasi Trial

2011-05-01T01:57:00.004+07:00

Aplikasi trial adalah aplikasi yang mempunyai batasan waktu penggunaan berdasarkan lama hari atau berapa kali aplikasi dijalankan.
Pembuatanya biasanya digunakan pada aplikasi shareware (berbayar) yang bertujuan agar user dapat menikmati aplikasi (demo) sebelum membeli aplikasi.
Berikut ini adalah contoh pembuatan aplikasi trial yang menggunakan lama hari penggunaan, lengkap dengan prosedur input kode registrasinya.

[ VB 6.0 ]
Buat Project baru dengan sebuah Form. Di bagian '(Declarations)' dari Form ketikkan :

Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" 'kode kunci registrasi

Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
On Error GoTo Ero
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Exit Function
Ero:
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", Format(Now, "short date") 'memasukkan tgl sekarang
GetInfoReg = Format(Now, "short date")
End Function

Function SuccessReg() As Boolean 'fungsi utk prosedur pemasukan kode registrasi
Dim s As String
Lagi:
s = InputBox("Masukkan kode registrasi", "Registrasi")
If s = PasswordReg Then
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", "Registered" 'mendaftarkan k registry
MsgBox "Terima kasih telah melakukan registrasi", vbInformation, "Registrasi Sukses"
SuccessReg = True

ElseIf s = "" Then
SuccessReg = False

Else
If MsgBox("Maaf kode registrasi salah, coba lagi ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then GoTo Lagi
SuccessReg = False
End If
End Function

Lalu di bagian 'Form_Load' ketikkan :

Dim s As String, l As Long

s = GetInfoReg
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - (CDate(Format(Now, "short date")) - CDate(s)) 'max penggunaan trial 30 hari

If l > 0 And l <= 30 Then 'jika masih ada sisa hari
If MsgBox("Aplikasi ini hanya dapat digunakan sampai " & l & " hari lagi." & vbCrLf & _
"Jika ingin menggunakan tanpa batasan waktu, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbInformation, "Registrasi") = vbYes Then SuccessReg

Else 'jika kadaluarsa
If MsgBox("Aplikasi ini sudah tidak dapat digunakan lagi." & vbCrLf & _
"Jika ingin menggunakannya kembali, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then

If SuccessReg = False Then End 'mengakhiri aplikasi
Else
End 'mengakhiri aplikasi
End If

End If
End If

[ VB .NET ]
Buat Project baru dengan sebuah Form. Di bagian '(Declarations)' dari Form ketikkan :

Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" 'kode kunci registrasi

Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
Dim Reg = CreateObject("WScript.Shell")
Try
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Catch
Reg.RegWrite("HKEY_CLASSES_ROOT\" & LocationReg & "\", Now.Date) 'memasukkan tgl sekarang
GetInfoReg = Now.Date
End Try
End Function

Function SuccessReg() As Boolean 'fungsi utk prosedur pemasukan kode registrasi
Dim s As String
Lagi:
s = InputBox("Masukkan kode registrasi", "Registrasi")
If s = PasswordReg Then
Dim Reg = CreateObject("WScript.Shell")
Reg.RegWrite("HKEY_CLASSES_ROOT\" & LocationReg & "\", "Registered") 'mendaftarkan k registry
MsgBox("Terima kasih telah melakukan registrasi", vbInformation, "Registrasi Sukses")
SuccessReg = True

ElseIf s = "" Then
SuccessReg = False

Else
If MsgBox("Maaf kode registrasi salah, coba lagi ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then GoTo Lagi
SuccessReg = False
End If
End Function

Lalu di bagian 'Form1_Load' ketikkan :

Dim s As String, l As Long

s = GetInfoReg()
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - CType(Now.Date - CDate(s), TimeSpan).TotalDays 'max penggunaan trial 30 hari

If l > 0 And l <= 30 Then 'jika masih ada sisa hari
If MsgBox("Aplikasi ini hanya dapat digunakan sampai " & l & " hari lagi." & vbCrLf & _
"Jika ingin menggunakan tanpa batasan waktu, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbInformation, "Registrasi") = vbYes Then SuccessReg()

Else 'jika kadaluarsa
If MsgBox("Aplikasi ini sudah tidak dapat digunakan lagi." & vbCrLf & _
"Jika ingin menggunakannya kembali, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then

If SuccessReg() = False Then End 'mengakhiri aplikasi
Else
End 'mengakhiri aplikasi
End If

End If
End If

Mengetahui Ukuran File dan Folder

2011-04-27T01:39:00.002+07:00

Jika Anda membutuhkan kode untuk mengetahui ukuran / size dari file maupun folder, berikut ini contoh potongan kodenya :

Mengetahui ukuran file

Dim l As Long
l = FileLen("LOKASI FILE")
MsgBox l

Mengetahui ukuran folder

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFolder("LOKASI FOLDER").Size

Nilai output yang dihasilkan merupakan nilai dengan satuan Byte (B). Perbandingannya :
1024 Byte (B) = 1 KiloByte (KB)
1024 KiloByte (KB) = 1 MegaByte (MB)
1024 MegaByte (MB) = 1 GigaByte (GB)
Jadi misalnya Anda ingin mengetahui ukuran file dalam satuan MegaByte (MB) , contohnya sebagai berikut :

Dim l As Long
l = ((FileLen("LOKASI FILE") / 1024) / 1024)
MsgBox l & " MB"

ListBox Dengan ScrollBar Horisontal

2011-04-26T02:38:00.003+07:00

Kontrol Listbox di VB 6.0 tidak menyediakan property untuk memunculkan scrollbar horisontal. Scrollbar horisontal berguna agar Listbox dapat menampilkan secara utuh item / teks yang mempunyai panjang melebihi dari panjang ListBox itu sendiri.

Buat Project dengan sebuah Form dan sebuah Module didalamnya.
Di Module ketikkan :

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Sub AddItemLB(ByVal Lst As ListBox, ByVal Item As String)
Dim l As Long
l = IIf(IsNumeric(Lst.Tag), Lst.Tag, 0)
Lst.AddItem Item

If l < Lst.Parent.TextWidth(Item & " ") Then
l = Lst.Parent.TextWidth(Item & " ")
SendMessage Lst.hwnd, &H194, IIf(Lst.Parent.ScaleMode = vbTwips, l / Screen.TwipsPerPixelX, l), 0
Lst.Tag = l
End If
End Sub

Di Form buat sebuah kontrol ListBox sebagai contoh. Lalu ketikkan kode berikut di bagian 'Form _Load' :

AddItemLB List1, "Ini adalah text puanjannnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnng"
AddItemLB List1, "Ini adalah text pendek"
AddItemLB List1, "Ini adalah text lebiiiiiiiiiiiiiiiiiiiihhhhhhhhhhhh puanjannnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnng"
AddItemLB List1, "Ini adalah text pendek"

CATATAN : Pastikan properti Font dari ListBox sama dengan property Font dari Form.

Menambahkan Menu Klik Kanan TaskBar

2011-04-24T01:00:00.000+07:00

Berikut ini contoh bagaimana menambahkan item ke menu system dari Form (menu yang muncul ketika Title Form di TaskBar di klik kanan).
Download source code-nya disini.

Mencontreng Menu

2011-04-22T01:43:00.000+07:00

Berikut ini contoh-contoh bagaimana cara men-contreng / centang / check sebuah Menu.

1. Mencontreng 1 menu.
[ VB 6.0 ]
Buat rangkaian Menu seperti ini :

Caption	Name	Posisi
Contoh	`mnuContoh`	`Contoh`
Tes	`mnuTes`	`**** Tes`

Di bagian 'mnuTes_Click' ketikkan :

mnuTes.Checked = Not mnuTes.Checked

If mnuTes.Checked = True Then
' jika menu tercontreng
Else
' jika tidak
End If

[ VB .NET ]
Tambahkan kontrol MenuStrip, isikan 1 MenuItem (Name=mnuContoh). Kemudian di MenuItem tersebut, tambahkan 1 MenuDropDown (Name = mnuTes). Lalu Di bagian 'mnuTes_Click' ketikkan :

mnuTes.Checked = Not mnuTes.Checked

If mnuTes.Checked = True Then
' jika menu tercontreng
Else
' jika tidak
End If

2. Mencontreng 2 menu sebagai pilihan.
[ VB 6.0 ]
Buat rangkaian Menu seperti ini :

Caption	Name	Posisi
Contoh	`mnuContoh`	`Contoh`
Pilihan Pertama	`mnuPilihan1`	`**** Pilihan Pertama`
Pilihan Kedua	`mnuPilihan2`	`**** Pilihan Kedua`

Di bagian 'Form_Load' ketikkan :

mnuPilihan1_Click 'default menu yang tercontreng

Di bagian 'mnuPilihan1_Click' ketikkan :

mnuPilihan1.Checked = True
mnuPilihan2.Checked = False
'kode jika pilihan 1 tercontreng

Di bagian 'mnuPilihan2_Click' ketikkan :

mnuPilihan1.Checked = False
mnuPilihan2.Checked = True
'kode jika pilihan 2 tercontreng

[ VB .NET ]
Tambahkan kontrol MenuStrip, isikan 1 MenuItem (Name=mnuContoh). Kemudian di MenuItem tersebut, tambahkan 2 MenuDropDown dengan rincian :

Text	Name
Pilihan Pertama	`mnuPilihan1`
Pilihan Kedua	`mnuPilihan2`

Di bagian 'Form1_Load' ketikkan :

mnuPilihan1.PerformClick() 'default menu yang tercontreng

Di bagian 'mnuPilihan1_Click' ketikkan :

mnuPilihan1.Checked = True
mnuPilihan2.Checked = False
'kode jika pilihan 1 tercontreng

Di bagian 'mnuPilihan2_Click' ketikkan :

mnuPilihan1.Checked = False
mnuPilihan2.Checked = True
'kode jika pilihan 2 tercontreng

3. Mencontreng banyak menu sebagai pilihan dengan tekhnik array.
[ VB 6.0 ]
Buat rangkaian Menu seperti ini :

Caption	Name	Index	Posisi
Contoh	`mnuContoh`		`Contoh`
Pilihan ke 1	`mnuPilihan`	`0`	`**** Pilihan ke 1`
Pilihan ke 2	`mnuPilihan`	`1`	`**** Pilihan ke 2`
Pilihan ke 3	`mnuPilihan`	`2`	`**** Pilihan ke 3`
Pilihan ke 4	`mnuPilihan`	`3`	`**** Pilihan ke 4`
Pilihan ke 5	`mnuPilihan`	`4`	`**** Pilihan ke 5`

Di bagian 'Form_Load' ketikkan :

mnuPilihan_Click (0) 'default menu yang tercontreng

Di bagian 'mnuPilihan_Click' ketikkan :

Dim i As Integer
For i = 0 To mnuPilihan.Count - 1
mnuPilihan(i).Checked = (i = Index)
Next

MsgBox mnuPilihan(Index).Caption 'menampilkan teks pilihan

[ VB .NET ]
Tambahkan kontrol MenuStrip, isikan 1 MenuItem (Name=mnuContoh). Kemudian di MenuItem tersebut, tambahkan beberapa MenuDropDown dengan rincian :

Text	Name
Pilihan ke 1	`mnuPil1`
Pilihan ke 2	`mnuPil2`
Pilihan ke 3	`mnuPil3`
Pilihan ke 4	`mnuPil4`
Pilihan ke 5	`mnuPil5`

Di bagian 'Form1_Load' ketikkan :

mnuPil1.PerformClick() 'default menu yang tercontreng

Tambahkan prosedur berikut sebagai pengganti handle click-nya.

Private Sub Pilihan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPil1.Click, mnuPil2.Click, mnuPil3.Click, mnuPil4.Click, mnuPil5.Click
For Each c As ToolStripMenuItem In mnuContoh.DropDownItems
c.Checked = (c.GetHashCode = sender.GetHashCode)
Next

MsgBox(CType(sender.Text, String)) 'menampilkan teks pilihan
End Sub

Multi Bahasa

2011-04-21T03:20:00.001+07:00

Dukungan multi bahasa digunakan agar teks dari menu atau kontrol yang ditampilkan dapat disesuaikan dengan keinginan user, sehingga lebih terkesan user-friendly.
Download source code-nya disini.

Cut, Copy, Delete, dan Rename

2011-04-17T03:10:00.001+07:00

Kegiatan seperti Cut, Copy, Delete, dan Rename adalah kegiatan yang rutin dilakukan bila berhadapan dengan File maupun Folder. Kode-kode berikut ini akan menunjukkan bagaimana kegiatan tersebut dijalankan dalam VB. Kode ini menggunakan fungsi API yang lebih baik bila dibandingkan dengan fungsi bawaan / default.

Buat Module baru dan ketikkan :
[ VB 6.0 ]

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Long

Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type

[ VB .NET ]

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer

Structure SHFILEOPSTRUCT
Dim hWnd As Integer
Dim wFunc As Integer
Dim pFrom As String
Dim pTo As String
Dim fFlags As Integer
Dim fAborted As Boolean
Dim hNameMaps As Integer
Dim sProgress As String
End Structure

Lalu tambahkan kode berikut ini tepat setelah kode diatas.

Enum ffAction
FO_MOVE = &H1
FO_COPY = &H2
FO_DELETE = &H3
FO_RENAME = &H4
End Enum

Enum ffFlags
FOF_ALLOWUNDO = &H40 'menghapus ke recycle bin
FOF_NOCONFIRMATION = &H10 'menghilangkan pesan konfirmasi
FOF_NOCONFIRMMKDIR = &H200 'menghilangkan pesan pembuatan folder jika folder tidak ada
FOF_NOERRORUI = &H400 'menghilangkan pesan kesalahan
FOF_RENAMEONCOLLISION = &H8 'otomatis rename file jika ganda
FOF_SILENT = &H4 'menghilangkan dialog proses
End Enum

Public Sub FFOperation(ByVal Source As String, ByVal Destination As String, ByVal Action As ffAction, ByVal Flags As ffFlags)
Dim SO As SHFILEOPSTRUCT
With SO
.wFunc = Action
.pFrom = Source & Chr(0) & Chr(0)
.pTo = Destination
.fFlags = Flags
End With
SHFileOperation SO
End Sub

Berikut ini contoh penggunaannya :

1. CUT
VB 6.0 FFOperation "C:\Sumber.txt", "C:\Tujuan.txt", FO_MOVE, 0
VB .NET FFOperation("C:\Sumber.txt", "C:\Tujuan.txt", ffAction.FO_MOVE, 0)
Jika Anda ingin menghilangkan dialog proses-nya, ketikkan :
VB 6.0 FFOperation "C:\Sumber.txt", "C:\Tujuan.txt", FO_MOVE, FOF_SILENT
VB .NET FFOperation("C:\Sumber.txt", "C:\Tujuan.txt", ffAction.FO_COPY, ffFlags.FOF_SILENT)

2. COPY
VB 6.0 FFOperation "C:\Sumber.txt", "C:\Tujuan.txt", FO_COPY, 0
VB .NET FFOperation("C:\Sumber.txt", "C:\Tujuan.txt", ffAction.FO_MOVE, 0)
Jika Anda ingin menghilangkan dialog proses-nya, ketikkan :
VB 6.0 FFOperation "C:\Sumber.txt", "C:\Tujuan.txt", FO_COPY, FOF_SILENT
VB .NET FFOperation("C:\Sumber.txt", "C:\Tujuan.txt", ffAction.FO_COPY, ffFlags.FOF_SILENT)

3. DELETE
VB 6.0 FFOperation "C:\Sumber.txt", "", FO_DELETE, 0
VB .NET FFOperation("C:\Sumber.txt", "", ffAction.FO_DELETE, 0)
Jika Anda ingin menghilangkan dialog proses-nya, ketikkan :
VB 6.0 FFOperation "C:\Sumber.txt", "", FO_DELETE, FOF_SILENT
VB .NET FFOperation("C:\Sumber.txt", "", ffAction.FO_DELETE, ffFlags.FOF_SILENT)
Jika Anda ingin menghapus ke RecycleBin, ketikkan :
VB 6.0 FFOperation "C:\Sumber.txt", "", FO_DELETE, FOF_SILENT + FOF_ALLOWUNDO
VB .NET FFOperation("C:\Sumber.txt", "", ffAction.FO_DELETE, ffFlags.FOF_SILENT + ffFlags.FOF_ALLOWUNDO)

4. RENAME
VB 6.0 FFOperation "C:\NamaLama.txt", "C:\NamaBaru.txt", FO_RENAME, 0
VB .NET FFOperation("C:\NamaLama.txt", "C:\NamaBaru.txt", ffAction.FO_RENAME, 0)

Form Mengikuti Mouse

2011-04-13T02:51:00.001+07:00

Yang dimaksud Form mengikuti mouse, adalah Form yang posisinya mengikuti posisi kursor mouse. Berikut ini cara membuatnya.

[ VB 6.0 ]
Buat Form baru (BorderStyle=None) dengan sebuah Timer (Enabled=True; Interval=10).
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type

Di bagian 'Form_Load' ketikkan :

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2 'selalu di depan

Di bagian 'Timer1_Timer' ketikkan :

Dim p As POINTAPI
GetCursorPos p
Me.Left = (p.X * Screen.TwipsPerPixelX) + 100
Me.Top = (p.Y * Screen.TwipsPerPixelY) + 100

[ VB .NET ]
Buat Form baru (FormBorderStyle=None; TopMost=True) dengan sebuah Timer (Enabled=True; Interval=10).
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Integer
Private Structure POINTAPI
Dim X As Integer
Dim Y As Integer
End Structure

Di bagian 'Timer1_Tick' ketikkan :

Dim p As POINTAPI
GetCursorPos(p)
Me.Left = p.X + 5
Me.Top = p.Y + 5

Mendapatkan dan Mengubah Posisi Mouse

2011-04-13T00:55:00.002+07:00

Kode-kode berikut ini akan menunjukkan bagaimana cara mendapatkan dan mengubah posisi kursor mouse.

[ VB 6.0 ]
Buat Form baru dengan 2 buah TextBox, 2 buah CommandButton, dan 1 buah Timer (Enabled=True; Interval=10) didalamnya.
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Berikut ini cara untuk mendapatkan posisi mouse, dimana nilai posisinya akan ditampilkan ke TextBox. Ketikkan kode berikut di bagian 'Timer1_Timer'.

Dim p As POINTAPI
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y

Jalankan aplikasi.

Untuk megubah posisi mouse gunakan kode :

SetCursorPos x, y

Gantikan x sesuai dengan ukuran panjang layar. Misal panjangnya 1024, Anda bisa gantikan dengan nilai 0 s/d 1023. dan Gantikan y sesuai dengan ukuran lebar layar. Misal lebarnya 768, Anda bisa gantikan dengan nilai 0 s/d 767.

Sedangkan bila Anda ingin mengubah posisi mouse ke kontrol tertentu, ikuti langkah berikut. Sebagai contoh posisi mouse akan diubah ke tengah kontrol Command1, ketikkan kode berikut di bagian 'Command2_Click' :

Dim p As POINTAPI
ClientToScreen Command1.hwnd, p
SetCursorPos p.x + ((Command1.Width \ 2) \ Screen.TwipsPerPixelX), p.y + ((Command1.Height \ 2) \ Screen.TwipsPerPixelY)

Jalankan aplikasi dan klik Command2.

[ VB .NET ]
Buat Form baru dengan 2 buah TextBox, 2 buah Button, dan 1 buah Timer (Enabled=True; Interval=10) didalamnya.
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Integer
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Integer, ByVal y As Integer) As Integer
Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Integer, ByRef lpPoint As POINTAPI) As Integer
Private Structure POINTAPI
Dim x As Integer
Dim y As Integer
End Structure

Berikut ini cara untuk mendapatkan posisi mouse, dimana nilai posisinya akan ditampilkan ke TextBox. Ketikkan kode berikut di bagian 'Timer1_Tick'.

Dim p As POINTAPI
GetCursorPos(p)
TextBox1.Text = p.x
TextBox2.Text = p.y

Jalankan aplikasi.

Untuk megubah posisi mouse gunakan kode :

SetCursorPos(x, y)

Gantikan x sesuai dengan ukuran panjang layar. Misal panjangnya 1024, Anda bisa gantikan dengan nilai 0 s/d 1023. dan Gantikan y sesuai dengan ukuran lebar layar. Misal lebarnya 768, Anda bisa gantikan dengan nilai 0 s/d 767.

Sedangkan bila Anda ingin mengubah posisi mouse ke kontrol tertentu, ikuti langkah berikut. Sebagai contoh posisi mouse akan diubah ke tengah kontrol Button1, ketikkan kode berikut di bagian 'Button2_Clickk' :

Dim p As POINTAPI
ClientToScreen(Button1.Handle.ToInt32, p)
SetCursorPos(p.x + (Button1.Width \ 2), p.y + (Button1.Height \ 2))

Jalankan aplikasi dan klik Button2.

Date/Time Label

2011-04-09T22:16:00.001+07:00

Berikut ini cara yang digunakan agar kontrol Label menampilkan Date/Time atau tanggal dan waktu sesuai dengan yang ada di komputer.

[ VB 6.0 ]
Buat Form baru dengan sebuah kontrol Label (AutoSize=True; Alignment=Center) dan Timer (Interval=1000). Lalu ketikkan kode berikut di bagian 'Form_Load' dan 'Timer1_Timer'.

Label1.Caption = Format(Now, "dddd" & vbCrLf & "dd MMMM yyyy" & vbCrLf & "hh : mm : ss")

[ VB .NET ]
Buat Form baru dengan sebuah kontrol Label (TextAlign=TopCenter) dan Timer (Enabled=True; Interval=1000). Lalu ketikkan kode berikut di bagian 'Form1_Load' dan 'Timer1_Tick'.

Label1.Text = Format(Now, "dddd" & vbCrLf & "dd MMMM yyyy" & vbCrLf & "HH : mm : ss")

Link Label

2011-04-09T00:29:00.002+07:00

Link label adalah sebuah kontrol Label apabila di klik mouse akan membuka alamat web melalui browser atau mengirimkan e-mail melalui aplikasi e-mail.

[ VB 6.0 ]
Buat sebuah Form dengan sebuah kontrol Label didalamnya.
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
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

Di bagian 'Form_Load' ketikkan :

Label1.ForeColor = vbBlue
Label1.FontUnderline = True

Di bagian 'Form_MouseMove' ketikkan :

If Label1.ForeColor <> vbBlue Then Label1.ForeColor = vbBlue

Di bagian 'Label1_MouseDown' ketikkan :

SetCursor (LoadCursor(0, 32649))
ShellExecute Me.hwnd, "", "http://www.google.com", "", "", vbMaximizedFocus
Label1.ForeColor = vbBlue

Di bagian 'Label1_MouseMove' ketikkan :

SetCursor (LoadCursor(0, 32649))
If Label1.ForeColor <> vbRed Then Label1.ForeColor = vbRed

[ VB .NET ]
Buat Form baru dengan sebuah kontrol LinkLabel didalamnya.
Di bagian 'LinkLabel1_LinkClicked' ketikkan :

System.Diagnostics.Process.Start("http://www.google.com")

CATATAN : Anda bisa mengganti alamat web-nya dengan mengganti kode yang berwarna merah. Jika ingin digunakan untuk mengirimkan e-mail, gantikan kode berwarna merah dengan "mailto:AlamatEmailAnda@yahoo.com"

Scan File

2011-04-06T01:06:00.004+07:00

Proses scan file biasanya digunakan aplikasi antivirus untuk mendapatkan seluruh lokasi file dalam suatu folder atau drive tertentu. Sebenarnya scan file juga bisa digunakan sekedar sebagai pencarian file tertentu. Misalnya Anda mempunyai aplikasi MP3 player, bisa ditambahkan fitur yang dapat mencari seluruh file *.mp3 yang terdapat dalam folder atau drive tertentu. Berikut ini cara membuat scan file yang sederhana.

[ VB 6.0 ]
Tambahkan Reference "Microsoft Scripting Runtime". Buat sebuah Form baru dengan sebuah ListBox dan sebuah CommandButton (Caption=Scan).
Di bagian '(Declarations)' dari Form ketikkan :

Dim Berhenti As Boolean

Sub ScanFile(ByVal Fol As Scripting.Folder)
If Berhenti = True Then Exit Sub

On Error Resume Next
Dim fi As Scripting.File
Dim fo As Scripting.Folder

For Each fi In Fol.Files
DoEvents
If Berhenti = True Then Exit Sub
List1.AddItem fi.Path 'menambahkan ke daftar
Next

For Each fo In Fol.SubFolders
ScanFile fo
Next
End Sub

Dan di bagian 'Command1_Click' ketikkan :

If Command1.Caption = "Scan" Then
List1.Clear
Berhenti = False
Command1.Caption = "Stop"
Dim fso As New FileSystemObject
ScanFile fso.GetFolder("D:\") 'gantikan D:\ dgn lokasi folder atau drive yg lain
Command1.Caption = "Scan"
Else 'stop
Berhenti = True
Command1.Caption = "Scan"
End If

Jika Anda ingin scan file tertentu semisal hanya file *.mp3 saja, tinggal gantikan kode berwarna merah dengan kode berikut :

If LCase(Right(fi.Path, 4)) = ".mp3" Then List1.AddItem fi.Path

Dan jika Anda ingin men-scan file yang ada di folder utamanya saja (tanpa file di folder-folder didalamnya), tinggal menghapus kode-kode yang berwarna biru.

[ VB NET ]
Buat sebuah Form baru dengan sebuah ListBox dan sebuah Button (Text=Scan).
Di bagian '(Declarations)' dari Form ketikkan :

Dim Berhenti As Boolean

Sub ScanFile(ByVal d As IO.DirectoryInfo)
If Berhenti = True Then Exit Sub
On Error Resume Next

Dim fi As IO.FileInfo
Dim di As IO.DirectoryInfo

For Each fi In d.GetFiles
Application.DoEvents()
If Berhenti = True Then Exit Sub
ListBox1.Items.Add(fi.FullName) 'menambahkan ke daftar
Next

For Each di In d.GetDirectories
ScanFile(di)
Next
End Sub

Dan di bagian 'Button1_Click' ketikkan :

If Button1.Text = "Scan" Then
ListBox1.Items.Clear()
Berhenti = False
Button1.Text = "Stop"
Dim di As IO.DirectoryInfo
di = FileIO.FileSystem.GetDirectoryInfo("D:\") 'gantikan D:\ dgn lokasi folder atau drive yg lain
ScanFile(di)
Button1.Text = "Scan"
Else 'stop
Berhenti = True
Button1.Text = "Stop"
End If

Jika Anda ingin scan file tertentu semisal hanya file *.mp3 saja, tinggal gantikan kode berwarna merah dengan kode berikut :

For Each fi In d.GetFiles("*.mp3")

Dan jika Anda ingin men-scan file yang ada di folder utamanya saja (tanpa file di folder-folder didalamnya), tinggal menghapus kode-kode yang berwarna biru.

Atribut File dan Folder

2011-04-05T03:07:00.008+07:00

Berikut ini contoh kode-kode yang digunakan untuk mendapatkan dan mengubah informasi atribut (readonly, hidden, archive, dll) dari File maupun Folder.

[ VB 6.0 ]
Kode untuk mendapatkan atribut

If (GetAttr("Lokasi File atau Folder") And vbReadOnly) <> 0 Then
'kode jika ber-atribut ReadOnly
End If

Kode untuk mengubah atribut

SetAttr "Lokasi File atau Folder", vbReadOnly Or vbHidden 'set atribut ReadOnly + Hidden

Jika Anda ingin mengubah atribut seluruh File dan Folder dalam suatu Folder tertentu, caranya sebagai berikut :
Tambahkan Reference "Microsoft Scripting Runtime"
Lalu tambahkan Module baru dan ketikkan :

Sub SetAllAttribute(ByVal Fol As Folder, ByVal Att As FileAttribute)
On Error Resume Next
Dim fi As File, fo As Folder

Fol.Attributes = Att
For Each fi In Fol.Files
fi.Attributes = Att
Next

For Each fo In Fol.SubFolders
SetAllAttribute fo, Att
Next
End Sub

Kode untuk menggunakannya :

Dim fso As New FileSystemObject
SetAllAttribute fso.GetFolder("Lokasi Folder"), vbReadOnly Or vbHidden

[ VB .NET ]
Kode untuk mendapatkan atribut

If (GetAttr("Lokasi File atau Folder") And FileAttribute.ReadOnly) <> 0 Then
'kode jika ber-atribut ReadOnly
End If

Kode untuk mengubah atribut

SetAttr("Lokasi File atau Folder", FileAttribute.ReadOnly Or FileAttribute.Hidden) 'set atribut ReadOnly + Hidden

Jika Anda ingin mengubah atribut seluruh File dan Folder dalam suatu Folder tertentu, tambahkan Module baru dan ketikkan :

Sub SetAllAttribute(ByVal Fol As IO.DirectoryInfo, ByVal Att As IO.FileAttributes)
On Error Resume Next
Dim fi As IO.FileInfo, di As IO.DirectoryInfo

Fol.Attributes = Att
For Each fi In Fol.GetFiles
fi.Attributes = Att
Next

For Each di In Fol.GetDirectories
SetAllAttribute(di, Att)
Next
End Sub

Kode untuk menggunakannya :

Dim di As IO.DirectoryInfo
di = FileIO.FileSystem.GetDirectoryInfo("Lokasi Folder")
SetAllAttribute(di, IO.FileAttribute.ReadOnly Or IO.FileAttribute.Hidden)

Memperlambat Gerakan Mouse

2011-03-28T02:32:00.006+07:00

Kode ini berguna untuk memperlambat gerakan pointer mouse.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
MsgBox "Maaf mouse anda sudah lanjut usia, jadi gerakannya pelan-pelan !"

Lalu di bagian 'Timer1_Timer' ketikkan :

SystemParametersInfo 113, 0, ByVal 1, 0

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As Integer, ByVal fuWinIni As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()
MsgBox("Maaf mouse anda sudah lanjut usia, jadi gerakannya pelan-pelan !")

Lalu di bagian 'Timer1_Tick' ketikkan :

SystemParametersInfo(113, 0, 1, 0)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, pilih tab "Pointer Options". Lalu sesuaikan kembali pointer speednya.

Memilih Beberapa File Dalam Kotak Dialog

2011-03-26T01:52:00.007+07:00

Berikut ini adalah tips bagaimana agar user dapat memilih beberapa file sekaligus dalam kotak dialog.

[ VB 6.0 ]
Buat Form baru dan tambakan didalamnya 1 CommandButton, 1 ListBox, dan 1 CommonDialog (Microsoft Common Dialog Control). Lalu di bagian 'Command1_Click' ketikkan :

On Error GoTo Ero
Dim sFile() As String, i As Integer

With CommonDialog1
.FileName = ""
.CancelError = True
.MaxFileSize = 30000
.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect + cdlOFNHideReadOnly
.ShowOpen

sFile = Split(.FileName, vbNullChar)

List1.Clear 'meghapus isi listbox

If UBound(sFile) = 0 Then 'jika hanya 1 file yang dipilih
List1.AddItem sFile(0)
Else 'jika lebih dari 1 file yang dipilih
For i = 1 To UBound(sFile)
List1.AddItem Replace(sFile(0) & "\" & sFile(i), "\\", "\")
Next
End If

End With

Ero:

[ VB .NET ]
Buat Form baru dan tambakan didalamnya 1 Button, 1 ListBox, dan 1 OpenFileDialog. Lalu di bagian 'Button1_Click' ketikkan :

Dim i As Integer
With OpenFileDialog1
.Multiselect = True
.FileName = ""

If .ShowDialog = 1 Then
ListBox1.Items.Clear() 'meghapus isi listbox

For i = 0 To UBound(.FileNames)
ListBox1.Items.Add(.FileNames(i)) 'memasukkan ke listbox
Next
End If
End With

ComboBox Terbuka Ketika Focus

2011-03-25T02:32:00.004+07:00

Biasanya ketika ingin melihat isi dari ComboBox harus meng-klik tanda panahnya terlebih dulu. Berikut ini adalah trik kode agar ComboBox terbuka secara otomatis ketika focus.

Buat sebuah Form baru dengan sebuah ComboBox dan beberapa kontrol lain.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Lalu tambahkan kode berikut di bagian 'Combo1_GotFocus'.

SendMessage Combo1.hWnd, 335, 1, 0

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Lalu tambahkan kode berikut di bagian 'ComboBox1_GotFocus'.

SendMessage(ComboBox1.Handle.ToInt32, 335, 1, 0)

Membuat Teks di Layar

2011-03-23T03:28:00.001+07:00

Kode berikut ini akan membuat atau memunculkan teks di area layar secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Const s = "Virus Layar Aneh"

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim l As Long
l = GetWindowDC(GetDesktopWindow)

Randomize
TextOut l, Rnd * (Screen.Width / Screen.TwipsPerPixelX), Rnd * (Screen.Height / Screen.TwipsPerPixelY), s, Len(s)

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer
Private Declare Function GetDesktopWindow Lib "user32" () As Integer
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
Const s = "Virus Layar Aneh"

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer = GetWindowDC(GetDesktopWindow)

Randomize()
TextOut(i, Rnd() * Screen.PrimaryScreen.Bounds.Width, Rnd() * Screen.PrimaryScreen.Bounds.Height, s, Len(s))

CATATAN : Isi teks yang muncul dapat dirubah dengan mengganti kode yang berwarna merah.

Menukar Klik Mouse

2011-03-22T03:17:00.004+07:00

Windows menyediakan pilihan menukar klik Mouse yang ditujukan untuk orang yang bertangan kidal. Dengan sedikit kreatifitas, Anda bisa menggunakannya untuk menjahili komputer orang lain. Tentu saja cara ini bisa membuat orang bingung dan kerepotan, karena yang biasa dilakukan dengan klik kiri dialihkan ke klik kanan, begitu juga sebaliknya.

Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SwapMouseButton Lib "user32.dll" (ByVal bSwap As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

SwapMouseButton 1

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

SwapMouseButton (1)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, lalu hilangkan tanda centang pada pilihan "Switch primary and secondary buttons".