Secara standar untuk pengaturan perataan teks caption pada commandbutton adalah tidak ada atau apa adanya artinya tulisan tersebut tidak bisa di buat rata kiri, rata kanan, atas dan bawah.
Nah pada pertemuan kali Admin akan berbagi trik membuat source code yang dapat merubah alignment posisi teks CommandButton.
Berikut adalah langka-langkah cara pembuatan untuk mengatur Margin CommandButton :
1. Buka Form VB6 Anda dengan Standar Exe
2. Tanamkan 10 Commandbutton (sesuai kebutuhan) pada Form, desainlah Form seperti gambar dibawah ini :
 |
| Desain Form |
3. Lalu tambahkan 1 buah Module pada form
4. Ketikan kode dibawah ini dibagian Module1
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)
5. Kembali ke Form1, lalu tambahkan kode dibawah ini sesuai perataan yang Anda inginkan :
Rata Atas :
Private Sub Command1_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_TOP
TmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command1.Refresh
End Sub
Rata Bawah
Private Sub Command2_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_BOTTOM
TmpValue& = GetWindowLong&(Command2.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command2.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command2.Refresh
End Sub
Rata Kanan
Private Sub Command3_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_RIGHT
TmpValue& = GetWindowLong&(Command3.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command3.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command3.Refresh
End Sub
Rata Kiri
Private Sub Command4_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_LEFT
TmpValue& = GetWindowLong&(Command4.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command4.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command4.Refresh
End Sub
Rata Atas Kiri
Private Sub Command5_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_TOPLEFT
TmpValue& = GetWindowLong&(Command5.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command5.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command5.Refresh
End Sub
Rata Atas Kanan
Private Sub Command6_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_TOPRIGHT
TmpValue& = GetWindowLong&(Command6.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command6.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command6.Refresh
End Sub
Rata Bawah Kiri
Private Sub Command7_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_BOTTOMLEFT
TmpValue& = GetWindowLong&(Command7.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command7.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command7.Refresh
End Sub
Rata Bawah Kanan
Private Sub Command8_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_BOTTOMRIGHT
TmpValue& = GetWindowLong&(Command8.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command8.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command8.Refresh
End Sub
Rata Tengah
Private Sub Command9_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = A_CENTER
TmpValue& = GetWindowLong&(Command9.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command9.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command9.Refresh
End Sub
Blank
Private Sub Command10_Click()
Dim TmpValue&
Dim Align&
Dim Ret&
fAlignment& = GWL_STYLE&
TmpValue& = GetWindowLong&(Command10.hwnd, GWL_STYLE) And Not BS_RIGHT
Ret& = SetWindowLong&(Command10.hwnd, GWL_STYLE, TmpValue& Or fAlignment&)
Command10.Refresh
End Sub
6. Jalankan Project Anda dan klik masing-masing CommandButton untuk mengatur Margin.
Demikian artikel kali ini tentang Cara Mengatur Perataan (Margin) Pada Caption CommandButton Dengan Kode VB6.
Semoga artikel ini bermanfaat buat kita semua,Amin.
Selamat mencoba semoga berhasil.
No comments:
Post a Comment