Postup:
Založte nový projekt. V
deklarační části formuláře zapište:
Private Declare Function
GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal
hwnd As Long, ByVal nIndex As Long)
Private Declare Function SetWindowLong& Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long)
Private Const ES_NUMBER = &H2000&
Private Const GWL_STYLE = (-16)
Na formulář dejte tlačítko
a textbox. Na událost Click tlačítka zapište:
Private Sub Command1_Click()
Dim tmpValue&
Dim fAlignment&
Dim ret&
fAlignment& = ES_NUMBER
tmpValue& = GetWindowLong&(Text1.hwnd, GWL_STYLE)
ret& = SetWindowLong&(Text1.hwnd, GWL_STYLE,
tmpValue& Or fAlignment&)
Text1.Refresh
End Sub
|