Fungsi Encrypt Dan Decrypt Sederhana

Option Explicit 
 
Public Function Encrypt(sText As String) As String 
    Dim i As Integer 
    Dim msg As String 
    For i = 1 To Len(sText) 
        msg = msg & Chr(Asc(Mid(sText, i, 1)) + 9) 
    Next 
    Encrypt = msg 
End Function 
 
Public Function Decrypt(sText As String) As String 
    Dim i As Integer 
    Dim msg As String 
    For i = 1 To Len(sText) 
        msg = msg & Chr(Asc(Mid(sText, i, 1)) - 9) 
    Next 
    Decrypt = msg 
End Function 

Contoh penggunaan fungsi encrypt dan decrypt sederhana

Private Sub Command1_Click() 
    Text2.Text = Encrypt(Text1.Text) 
End Sub 
 
Private Sub Command2_Click() 
    Text3.Text = Decrypt(Text2.Text) 
End Sub 

READ MORE - Fungsi Encrypt Dan Decrypt Sederhana

Fungsi Untuk Mengetahui Apakah Ganjil Atau Genap

Di bawah ini merupakan fungsi yang sangat sederhana untuk mengetahui sebuah bilangan, apakah ia genap atau ganjil?

Option Explicit 
 
Public Function IsEven(Number As Double) As Boolean 
    IsEven = IIf(Number Mod 2 = 0, True, False) 
End Function 

Sample usage

Private Sub Command1_Click() 
    MsgBox IsEven(20) 'return true 
End Sub 
 
Private Sub Command1_Click() 
    MsgBox IsEven(21) 'return false 
End Sub 

READ MORE - Fungsi Untuk Mengetahui Apakah Ganjil Atau Genap

Memilih Item ListBox Secara Otomatis

Bagaimana cara memilih item yang terdapat pada ListBox secara otomatis pada saat mouse berada di atasnya.

Option Explicit 
 
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long 
Private Declare Function LBItemFromPt Lib "COMCTL32.DLL" (ByVal hLB As Long, ByVal ptX As Long, ByVal ptY As Long, ByVal bAutoScroll As Long) As Long 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long 
 
Private Const LB_SETCURSEL = &H186 
Private Const LB_GETCURSEL = &H188 
 
Private Type POINTAPI 
    X As Long 
    Y As Long 
End Type 
 
Private Sub HightLightListBox(ByVal hwndLB As Long, ByVal X As Single, ByVal Y As Single) 
 
    Dim IndexItem As Long 
    Dim Point As POINTAPI 
 
    Point.X = X \ Screen.TwipsPerPixelX   
    Point.Y = Y \ Screen.TwipsPerPixelY 
 
    Call ClientToScreen(hwndLB, Point) 
 
    IndexItem = LBItemFromPt(hwndLB, Point.X, Point.Y, False) 
 
    If IndexItem <> SendMessage(hwndLB, LB_GETCURSEL, 0, 0) Then 
        Call SendMessage(hwndLB, LB_SETCURSEL, IndexItem, 0) 
    End If 
 
End Sub 

Contoh penggunaan kode di atas:

Private Sub Form_Load() 
    Dim i As Long 
    For i = 0 To 100 
        List1.AddItem 1234567 + i 
      Next 
End Sub 
 
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    HightLightListBox List1.hwnd, X, Y 
End Sub 

READ MORE - Memilih Item ListBox Secara Otomatis

Membuat Label Yang Berkedip-Kedip

Bagaimana cara membuat label yang berkedip-kedip, simak kodenya di bawah ini:

Private Sub Form_Load() 
    Label1.Caption = "http://4basic-vb.blogspot.com" 
    Timer1.Interval = 300 
End Sub 
 
Private Sub Timer1_Timer() 
    Label1.Visible = Not Label1.Visible 
End Sub 

READ MORE - Membuat Label Yang Berkedip-Kedip