If LCase(WinClass) = "edit" Then sTemp = StrConv(sText, vbFromUnicode, ByVal 1033) Call SendMessage(le_handle_fenetre, WM_SETTEXT, ByVal 0&, ByVal StrPtr(sTemp)) End IfPerso, j'ai ajouté la conversion Unicode, mais tu n'en n'aura peut-être pas besoin (1033 = CodePage US dans mon cas, 1036 pour le FR mais facultatif si même langue que l'OS - voir ce lien).
Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_SETTEXT As Long = &HC& Function EnumChildProc(ByVal le_handle_fenetre As Long, ByVal lParam As Long) As Long Dim RetVal As Long Dim WinClassBuf As String * 255, WinTitleBuf As String * 255 RetVal = GetClassName(le_handle_fenetre, WinClassBuf, 255) WinClass = nettoyage(WinClassBuf) If WinClass = "Edit" Then sText = "essai" sTemp = StrConv(sText, vbFromUnicode) bTest = SendMessage(le_handle_fenetre, WM_SETTEXT, ByVal 0&, ByVal StrPtr(sTemp)) End If EnumChildProc = True End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question