Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Const ES_UPPERCASE As Long = &H8& Private Const GWL_STYLE As Long = -16 Private Sub Form_Load() Dim eStyle As Long eStyle = GetWindowLong(Text1.hwnd, GWL_STYLE) SetWindowLong Text1.hwnd, GWL_STYLE, eStyle Or ES_UPPERCASE End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionlol oui je me suis rendu compte du "d" :p
Encore merci Rendfield