Secara default untuk pengaturan alignment caption commandbutton (tulisan pada tombol) tidak ada jadi setiap komponen commandbutton kita tambahkan ke dalam form tulisan (caption) pada commandbutton tersebut tidak bisa dibuat posisi rata kiri, kanan, atas dan bawah sudah tetap seperti apa adanya. Pada kesempatan kali ini admin coba akan berbagi sebuah source code Visual Basic 6.0 (VB6) dimana source code ini dapat merubah posisi alignment pada komponen commandbutton.
Langkah Pertama
Buka Ms. Visual Basic 6.0, buatlah form dan tambahkan komponen commandbutton 4 (empat) buah
1. Command1, ubah property name cmdAtas dan Caption POSISI ATAS
2. Command2, ubah property name cmdBawah dan Caption POSISI BAWAH
3. Command3, ubah property name cmdKanan dan Caption POSISI KANAN
4. Command4, ubah property name cmdKiri dan Caption POSISI KIRI
Kurang lebihnya seperti gambar dibawah ini
Selanjutnya tambahkan juga sebuah modul dan copykan coding dibawah ini
Public Const A_CENTER = &H300&Public Const A_TOP = &H400&Public Const A_TOPLEFT = &H500&Public Const A_TOPRIGHT = &H600&Public Const A_BOTTOM = &H800&Public Const A_BOTTOMLEFT = &H900&Public Const A_BOTTOMRIGHT = &HA00&Public Const A_LEFT = &H100&Public Const A_RIGHT = &H200&Public Const GWL_STYLE& = (-16)Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _ByVal nIndex As Long)Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, _ByVal nIndex As Long, ByVal dwNewLong As Long)
Selanjutnya simpan terlebih dahulu project yang telah kita buat diatas diatas
Langkah Kedua
Untuk langkah yang kedua ini kita tinggal menerapkan function diatas yang telah kita copy ke dalam modul
1. cmdAtas
Double klik pada cmdAtas dan copykan coding dibawah ini
Dim TmpValue&Dim Align&Dim Ret&fAlignment& = A_TOPTmpValue& = GetWindowLong&(cmdAtas.hwnd, GWL_STYLE) And Not BS_RIGHTRet& = SetWindowLong&(cmdAtas.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)cmdAtas.Refresh
2. cmdBawah
Double klik pada cmdBawah dan copykan coding dibawah ini
Dim TmpValue&Dim Align&Dim Ret&fAlignment& = A_BOTTOMTmpValue& = GetWindowLong&(cmdBawah.hwnd, GWL_STYLE) And Not BS_RIGHTRet& = SetWindowLong&(cmdBawah.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)cmdBawah.Refresh
3. cmdKanan
Double klik pada cmdKanan dan copykan coding dibawah ini
Dim TmpValue&Dim Align&Dim Ret&fAlignment& = A_RIGHTTmpValue& = GetWindowLong&(cmdKanan.hwnd, GWL_STYLE) And Not BS_RIGHTRet& = SetWindowLong&(cmdKanan.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)cmdKanan.Refresh
4. cmdKiri
Double klik pada cmdKiri dan copykan coding dibawah ini
Dim TmpValue&Dim Align&Dim Ret&fAlignment& = A_LEFTTmpValue& = GetWindowLong&(cmdKiri.hwnd, GWL_STYLE) And Not BS_RIGHTRet& = SetWindowLong&(cmdKiri.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)cmdKiri.Refresh
Jika langkah demi langkah telah selesai sesuai dengan alur source code diatas, kemudian kita run/F5 dan klik pada (commandbutton) tombol-tombol maka secara otomatis caption yang terdapat pada commandbutton akan berubah posisinya seperti gambar dibawah ini
Cukup sekian pembahasan artikel Cara Mengatur Alignment Caption CommandButton | VB6 kali ini semoga dapat bermanfaat dan terima kasih banyak atas kunjungannya.
0 Response to "Cara Mengatur Alignment Caption CommandButton | VB6"
Post a Comment
1. Dilarang menjadikan referensi tanpa mencantumkan sumbernya
2. Berkomentar yang relevan sesuai artikel
3. Gunakan bahasa yang baik dan santun