ARBi Blog's Lama: Mengatur Alignment Caption CommandButton (Komplite)

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	9

Masukkan souce ini ke dalam Form :

Private Sub Command1_Click()
  Dim tmpValue&
  Dim Align&
  Dim ret&
 
  fAlignment& = A_TOPLEFT
  tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT
  ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
  Command1.Refresh
End Sub

Private Sub Command2_Click()
  Dim tmpValue&
  Dim Align&
  Dim ret&
 
  fAlignment& = A_TOP
  tmpValue& = GetWindowLong&(Command2.hwnd, GWL_STYLE) And Not BS_RIGHT
  ret& = SetWindowLong&(Command2.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
  Command2.Refresh
End Sub

Private Sub Command3_Click()
  Dim tmpValue&
  Dim Align&
  Dim ret&
 
  fAlignment& = A_TOPRIGHT
  tmpValue& = GetWindowLong&(Command3.hwnd, GWL_STYLE) And Not BS_RIGHT
  ret& = SetWindowLong&(Command3.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
  Command3.Refresh
End Sub

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

Private Sub Command5_Click()
  Dim tmpValue&
  Dim Align&
  Dim ret&

  fAlignment& = A_CENTER
  tmpValue& = GetWindowLong&(Command5.hwnd, GWL_STYLE) And Not BS_RIGHT
  ret& = SetWindowLong&(Command5.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
  Command5.Refresh
End Sub

Private Sub Command6_Click()
  Dim tmpValue&
  Dim Align&
  Dim ret&

  fAlignment& = A_RIGHT
  tmpValue& = GetWindowLong&(Command6.hwnd, GWL_STYLE) And Not BS_RIGHT
  ret& = SetWindowLong&(Command6.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
  Command6.Refresh
End Sub

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

Private Sub Command8_Click()
  Dim tmpValue&
  Dim Align&
  Dim ret&

  fAlignment& = A_BOTTOM
  tmpValue& = GetWindowLong&(Command8.hwnd, GWL_STYLE) And Not BS_RIGHT
  ret& = SetWindowLong&(Command8.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
  Command8.Refresh
End Sub

Private Sub Command9_Click()
  Dim tmpValue&
  Dim Align&
  Dim ret&
 
  fAlignment& = A_BOTTOMRIGHT
  tmpValue& = GetWindowLong&(Command9.hwnd, GWL_STYLE) And Not BS_RIGHT
  ret& = SetWindowLong&(Command9.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
  Command9.Refresh
End Sub

Private Sub Form_Load()
  Command1_Click
  Command2_Click
  Command3_Click
  Command4_Click
  Command5_Click
  Command6_Click
  Command7_Click
  Command8_Click
  Command9_Click
End Sub

Kategori

Archive

Blogroll

Member

Minggu, 04 Oktober 2009

Mengatur Alignment Caption CommandButton (Komplite)

0 komentar:

Logo

About Me