ToolTip Custom

ToolTip ini berbeda dengan ToolTip yang biasa digunakan. ToolTip ini dapat berbentuk seperti balon dan juga dapat merubah warna tulisan maupun warna latarnya.
Download source code-nya disini.

Menonaktifkan Task Manager

Kode berikut ini berfungsi untuk menonaktifkan fasilitas Task Manager di Windows.

Buat sebuah Module baru dan ketikkan :

Public Sub DisableTaskManager(ByVal State As Boolean)
On Error Resume Next
Dim o As Object
Set o = CreateObject("wscript.shell")
o.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", CInt(State), "REG_DWORD"
End Sub

Untuk menonaktifkan Task Manager, tinggal menuliskan kode berikut :

DisableTaskManager True

Untuk mengaktifkan kembali Task Manager ketikkan :

DisableTaskManager False

Kamus

Aplikasi ini merupakan aplikasi kamus sederhana Inggris-Indonesia dan Indonesia-Inggris. Databasenya berformat text (*.txt) yang diambil dan diolah dari database aplikasi gKamus.
Download source code-nya disini.

Mengurutkan ListBox Angka

Jika anda mempunyai ListBox yang berisi angka-angka dan ingin mengurutkannya (mengubah property Sorted=True), maka yang terjadi ListBox akan mengurutkan item sebagai urutan string/teks bukan sebagai angka. Berikut kode yang digunakan untuk mengurutkan ListBox yang berisi angka-angka :

[ VB 6.0 ]

Dim m As Boolean, i As Integer, s As String

Do
m = False
For i = 0 To List1.ListCount - 2

If CDbl(List1.List(i)) > CDbl(List1.List(i + 1)) Then

m = True
s = List1.List(i)
List1.List(i) = List1.List(i + 1)
List1.List(i + 1) = s
End If
Next i
Loop Until m = False

[ VB .NET ]

Dim m As Boolean, i As Integer, s As String

Do
m = False
For i = 0 To ListBox1.Items.Count - 2
If CDbl(ListBox1.Items(i)) > CDbl(ListBox1.Items(i + 1)) Then
m = True
s = ListBox1.Items(i)
ListBox1.Items(i) = ListBox1.Items(i + 1)
ListBox1.Items(i + 1) = s
End If
Next i
Loop Until m = False

CATATAN :
Kode diatas akan mengurutkan ListBox secara ascending, untuk mengurutkan secara descending, gantikan operator ">" di kode warna merah, dengan operator "<".
Pastikan semua item dalam ListBox berupa nilai angka.

Status Koneksi Internet

Terkadang aplikasi memerlukan koneksi internet, entah untuk mengakses sebuah web atau memeriksa update aplikasi terbaru. Agar tidak terjadi bug/ error, maka perlu adanya pengetesan status ada atau tidaknya koneksi internet yang terhubung dengan komputer.

[ VB 6.0 ]
Buat sebuah Module dan ketikkan :

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Integer

Public Function IsConnected() As Boolean
IsConnected = InternetGetConnectedState(0, 0)
End Function

Untuk mencobanya Anda bisa mengetikkan kode berikut :

MsgBox IsConnected, , "Status Internet"

[ VB .NET ]
Untuk mencobanya Anda bisa mengetikkan langsung kode berikut :

Dim n As New Devices.Network
MsgBox(n.IsAvailable, , "Status Internet")

Mengubah urutan item ListBox dengan DragDrop

Buat sebuah Form dengan sebuah kontrol ListBox didalamnya. Sebagai bahan percobaan, isikan beberapa Item pada ListBox. Berikut kodenya :

Di bagian '(Declarations)' dari Form ketikkan :

Dim StartText As String, StartIndex As Integer

Di bagian 'List1_MouseDown' ketikkan :

If Button = vbLeftButton Then
StartIndex = List1.ListIndex
StartText = List1.Text
End If

Di bagian 'List1_MouseMove' ketikkan :

Dim SecondIndex As Integer

If Button = vbLeftButton And List1.ListIndex <> StartIndex Then

SecondIndex = List1.ListIndex

List1.RemoveItem (StartIndex)
List1.AddItem StartText, SecondIndex
List1.ListIndex = SecondIndex

StartText = List1.Text
StartIndex = List1.ListIndex
End If

Waktu Jalannya Prosedur

Biasanya programmer ingin mengetahui berapa lama waktu yang dibutuhkan untuk menjalankan serangkaian prosedur. Hal ini bermanfaat untuk mebandingkan cara / prosedur mana yang paling tepat untuk digunakan. Berikut ini adalah contoh kode-nya :

[ VB 6.0 ]

Dim t As Single

'memulai
t = Timer

'prosedur yang akan diuji
For i = 1 To 1000
Caption = i
Next

'menampilkan hasil
MsgBox Format(Timer - t, "0.00") & " detik"

[ VB .NET ]

Dim t As Double = Microsoft.VisualBasic.Timer

'prosedur yang akan diuji
For i = 1 To 1000
Text = i
Next

'menampilkan hasil
MsgBox(Format(Microsoft.VisualBasic.Timer - t, "0.00") & " detik")