VB6 Code - Konfirmasi Sebelum Keluar Dari Aplikasi

Di bawah ini merupakan fungsi VB6 untuk melakukan konfirmasi sebelum keluar dari aplikasi. Mengapa dibuat menjadi fungsi? agar memiliki sifat mudah digunakan kembali, karena hampir tiap software yang dibuat, memerlukan fungsi di bawah ini:

Option Explicit

Public Function ConfirmExit(Optional Title As String = "Konfirmasi") As Boolean
    If MsgBox("Are you sure want to exit?", vbQuestion + vbYesNo, Title) = vbYes Then
        ConfirmExit = ConfirmExit
    Else
        ConfirmExit = True
    End If
End Function

Contoh penggunaan fungsi di atas:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = ConfirmExit
End Sub

Penggunaan fungsi di atas dapat kita tempatkan pada event Unload ataupun QueryUnload.

READ MORE - VB6 Code - Konfirmasi Sebelum Keluar Dari Aplikasi

VB6 Code - Memeriksa Bahasa dari Keyboard Digunakan

Di bawah ini merupakan procedure VB6 untuk mengetahui bahasa dari keyboard yang sedang digunakan.

Option Explicit

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Public Sub KeyBoardLanguage()

    Dim TheardId As Long
    Dim TheardLang As Long
    Dim processid As Long
 
    TheardId = GetWindowThreadProcessId(hwnd, processid)
    TheardLang = GetKeyboardLayout(ByVal TheardId)
    TheardLang = TheardLang Mod 10000

    Select Case TheardLang
        Case "9721"
            MsgBox "English"
        Case "5425"
            MsgBox "Arabic"
        Case Else
            MsgBox "I don't know atuh, cari weh ku anjeun sorangan", vbInformation, "Don't Know"
    End Select

End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub  Command1_Click()
    KeyBoardLanguage
End Sub

Demikian kode VB6 untuk memmeriksa bahasa dari keyboard yang sedang digunakan. Semoga bermanfaat.

READ MORE - VB6 Code - Memeriksa Bahasa dari Keyboard Digunakan

VB6 Code - Menjadikan Form Semi Transparan

Bagaimana cara membuat form semi transparan menggunakan Visual Basic 6.0?. Simaklah kode VB6 di bawah ini:

Option Explicit

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean

Const LWA_BOTH = 3
Const LWA_ALPHA = 2
Const LWA_COLORKEY = 1
Const GWL_EXSTYLE = -20
Const WS_EX_LAYERED = &H80000

Dim iTransparant As Integer

Sub MakeTransparan(hWndBro As Long, iTransp As Integer)
   On Error Resume Next
  
   Dim ret As Long
   ret = GetWindowLong(hWndBro, GWL_EXSTYLE)
  
   SetWindowLong hWndBro, GWL_EXSTYLE, ret Or  WS_EX_LAYERED
   SetLayeredWindowAttributes hWndBro, RGB(255, 255, 0), iTransp, LWA_ALPHA
   Exit Sub

End Sub

Contoh penggunaan fungsi VB6 di atas:

Option Explicit

Private Sub Form_Load()
   On Error Resume Next
   MakeTransparan Me.hWnd, 75
End Sub

Demikian mengenai cara membuat form menjadi semi transparant menggunakan VB6. Semoga bermanfaat.

READ MORE - VB6 Code - Menjadikan Form Semi Transparan

VB6 Code - Generate Nomor Secara Unik

Di bawah ini merupakan fungsi VB6 yang berlaku sebagai sebuah generator agar menampilkan nomor secara unik (tidak ada yang sama satu dengan yang lainnya). Adapun kode VB6 untuk melakukannya adalah sebagai berikut:

Option Explicit

Private Function GenRanUnix(MIN As Integer, MAX As Integer) As Collection

    Dim iMax As Integer
    Dim iRan As Integer
    Dim g As Integer
    Dim y As Integer
    Dim c As New Collection
    Dim k As New Collection
    Dim f As Integer
    Dim x As Integer
    
    For f = MIN To MAX
        c.Add f
    Next
    
    y = c.Count
    Randomize
    
    For x = 1 To y
        g = Int(y * Rnd + 1)
        k.Add c.Item(g)
        c.Remove g
        y = c.Count
    Next
    
    Set GenRanUnix = k
 
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Dim b As New Collection
    Dim i As Integer
    Dim msg As String
     List1.Clear
    Set b = GenRanUnix(0, 100)
    For i = 1 To b.Count
        List1.AddItem b.Item(i)
    Next
End Sub

Demikian mengenai cara membuat fungsi VB6 untuk men-generate nomor secara unik.

READ MORE - VB6 Code - Generate Nomor Secara Unik