VB6 Code - Mengunci Proses Program (LockWindowUpdate)

LockWindowUpdate merupakan sebagian fungsi API yang terdapat dalam dll inti (core) windows "user32". Kegunaannya adalah untuk mengunci program pada saat terjadi proses, yaitu proses yang tidak ingin kita perlihatkan kepada user. Disamping itu software yang sedang memproses akan memiliki kecepatan yang lebih tinggi dibandingkan tanpa menggunakan fungsi API LockWindowUpdate.

Untuk melihat kinerjanya, buatlah project kemudian copy paste source code dibawah ini:

'--------------------------------------------------------------------
'http://khoiriyyah.blogspot.com
'--------------------------------------------------------------------

Option Explicit

Private Declare Function LockWindowUpdate Lib "USER32" (ByVal hwndLock As Long) As Long

'Tanpa fungsi LockWindowUpdate
Private Sub Command1_Click()

    Dim i As Integer
    Label1.Caption = 1
    
    For i = 1 To 2000
        Label1.Caption = i
        DoEvents
    Next

End Sub

'Dengan fungsi LockWindowUpdate
Private Sub Command2_Click()

    Label1.Caption = 1
    MsgBox "Perhatikan sekarang label caption berubah menjadi angka 1"
    
    LockWindowUpdate Form1.hWnd
    
    'Ini identik dengan fungsi di atas Private Sub Command1_Click()
    'Hanya ditambahkan fungsi LockWindowUpdate pada line code sebelumnya
    Dim i As Integer
    For i = 1 To 2000
        Label1.Caption = i
        DoEvents
    Next
    
    LockWindowUpdate 0
    
    MsgBox "Tidak terjadi flicker (gambar berkedip) dan lebih cepat bukan?"

End Sub

READ MORE - VB6 Code - Mengunci Proses Program (LockWindowUpdate)

VB6 Code - Merubah Keyboard Dari Inggris Ke Arab

Bagaimanakah cara memindahkan layout keyboard (misalnya dari english ke arabic atau sebaliknya) melalui pengkodean Visual Basic 6.0? Berikut solusinya:

'------------------------------------------------------------------------------- 
'http://khoiriyyah.blogspot.com 
'Asep Hibban 
'------------------------------------------------------------------------------- 
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" ByVal pwszKLID As String, ByVal flags As Long) As Long 
Private Const KLF_ACTIVATE = &H1 
 
Private Sub Command1_Click() 
   LoadKeyboardLayout "00000401", KLF_ACTIVATE 'pindah ke arab 
   Text1.Alignment = vbRightJustify 
   Text1.SetFocus 
End Sub 
 
Private Sub Command2_Click() 
   LoadKeyboardLayout "00000409", KLF_ACTIVATE 'pindah ke inggris 
   Text1.Alignment = vbLeftJustify 
   Text1.SetFocus 
End Sub 
 
Private Sub Text2_GotFocus() 
   LoadKeyboardLayout "00000409", KLF_ACTIVATE 'pindah ke inggris 
   Text2.Alignment = vbLeftJustify 
End Sub 
 
Private Sub Text3_GotFocus() 
   LoadKeyboardLayout "00000401", KLF_ACTIVATE 'pindah ke arab 
   Text3.Alignment = vbRightJustify 
End Sub 

Kode di atas tentunya sangat berguna sekali pada membuat aplikasi-aplikasi arabic dengan Visual Basic 6.0, dengan demikian kalimat:

Ingat! sebelum Anda mengetik, pindahkah terlebih dahulu pada posisi arabic

sudah tidak diperlukan lagi.

Download: How To Change Keyboard Layout To Arabic

READ MORE - VB6 Code - Merubah Keyboard Dari Inggris Ke Arab

Menukar Caption CommandButton Melalui VB6 Code

Terkadang kita membutuhkan aksi tukar (toggle) property Caption dari sebuah object CommandButton. Misalnya menukar Caption CommandButton dari Start menjadi Stop atau sebaliknya dari Stop menjadi Start. Bagaimana hal tersebut bisa dilakukan melalui pemrograman Visual Basic 6.0?

Berikut ini contoh merubah menukar Caption CommandButton dari Start menjadi Stop dan sebaliknya dari Stop menjadi Start.

Option Explicit 
 
Private Sub Form_Load() 
    Command1.Caption = "Start" 'Set nilai awal Caption dengan start 
End Sub 
 
Private Sub Command1_Click() 
    If Command1.Caption = "Start" Then 
        Command1.Caption = "Stop" 
    Else 
        Command1.Caption = "Start" 
    End If 
End Sub 

Apabila kita terjemahkan logika di atas ke dalam bahasa manusia kira-kira seperti berikut: apabila Command1.Caption bernilai Start maka ganti Command1.Caption menjadi bernilai Stop, (Else) jika tidak Command1.Caption bernilai Start (alias Command1.Caption bernilai Stop) maka ganti Command1.Caption menjadi bernilai Start.

Demikian cara menukar Caption yang terdapat pada sebuah CommandButton menggunakan kode yang dibuat dalam bahasa pemrograman Visual Basic 6.0.

READ MORE - Menukar Caption CommandButton Melalui VB6 Code

VB6 - Menampilkan Sebuah Form Dari Form Yang Lain

Bagaimanakah cara menampilkan atau memanggil sebuah form dari form yang lain menggunakan kode Visual Basic 6.0? Misalnya kita membuat dua buah form, dan diberi nama Form1 dan Form2. Selanjutnya Form1 ingin menampilkan Form2, maka kodenya adalah sebagai berikut:

Private Sub Command1_Click() 
    Form2.Show 
End Sub 

Sederhana bukan? Nah, demikian mengenai cara menampilkan sebuah form dari form yang lain menggunakan VB6 Code. Semoga bermanfaat.

READ MORE - VB6 - Menampilkan Sebuah Form Dari Form Yang Lain