Télécharger le zip
J'ai regardé ta source, et je pense que tu en connais un rayon sur un truc obscure chez moi.Je t'explique le hic :Saurais tu avec un richtextbox, et en collant des caracteres Unicodes par exemple ceux la, regarde sur un navigateur :http://www.google.fr/search?hl=fr&ie=UTF-8&q=www.edu.cn&btnG=Rechercher&meta=du chinois, tu fais copié collé dans le richtextbox.Bref saurais tu faire une fonction apres genre get_text_from_richtextbox ? c'est a dire remettre dans une variable String le contenu du richtextbox (si ca deconne ca fait des ?????? a place), la fonction gettext du richtextbox remet ca en Ansi.Voila, sinon ta source est impressionnante lol, comprends pas que tu es mis niveau debutant.A pluche.=))))))
Ta source est très complète. Bravo.
j'ai pas beaucoup de temps en ce moment a cause de mes fifilles jumelle et oui module: si sa peut t'aider dans tes recherchesPublic Declare Function SendMessageString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPublic Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As LongPublic Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As LongPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPublic Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As LongPublic Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As LongPublic Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPublic Const BM_SETCHECK = &HF1Public Const BM_GETCHECK = &HF0Public Const CB_GETCOUNT = &H146Public Const CB_GETLBTEXT = &H148Public Const CB_SETCURSEL = &H14EPublic Const GW_HWNDFIRST = 0Public Const GW_HWNDNEXT = 2Public Const GW_CHILD = 5Public Const LB_GETCOUNT = &H18BPublic Const LB_GETTEXT = &H189Public Const LB_SETCURSEL = &H186Public Const SW_HIDE = 0Public Const SW_MAXIMIZE = 3Public Const SW_MINIMIZE = 6Public Const SW_NORMAL = 1Public Const SW_SHOW = 5Public Const VK_SPACE = &H20Public Const WM_CHAR = &H102Public Const WM_CLOSE = &H10Public Const WM_COMMAND = &H111Public Const WM_GETTEXT = &HDPublic Const WM_GETTEXTLENGTH = &HEPublic Const WM_KEYDOWN = &H100Public Const WM_KEYUP = &H101Public Const WM_LBUTTONDBLCLK = &H203Public Const WM_LBUTTONDOWN = &H201Public Const WM_LBUTTONUP = &H202Public Const WM_MOVE = &HF012Public Const WM_RBUTTONDOWN = &H204Public Const WM_RBUTTONUP = &H205Public Const WM_SETTEXT = &HCPublic Const WM_SYSCOMMAND = &H112Public Function richtext() As LongDim thunderrtformdc As LongDim richtextwndclass As LongDim thunderformdc As Long, thundercommandbutton As Longthunderrtformdc& = FindWindow("thunderrt6formdc", vbNullString)richtextwndclass& = FindWindowEx(thunderrtformdc&, 0&, "richtextwndclass", vbNullString)richtextwndclass& = FindWindowEx(thunderrtformdc&, richtextwndclass&, "richtextwndclass", vbNullString)thunderformdc& = FindWindow("thunderformdc", vbNullString)thundercommandbutton& = FindWindowEx(thunderformdc&, 0&, "thundercommandbutton", vbNullString)Caption$ = GetCaption(thunderrtformdc&) Form1.Caption = Caption$Form1.Label1.Caption = Caption$ richtext& = thunderrtformdc& Exit Function richtext& = thunderrtformdc&End FunctionPublic Function GetCaption(WindowHandle As Long) As String Dim Buffer As String, TextLength As Long TextLength& = GetWindowTextLength(WindowHandle&) Buffer$ = String(TextLength&, 0&) Call GetWindowText(WindowHandle&, Buffer$, TextLength& + 1) GetCaption$ = Buffer$End FunctionPublic Function IMSend(Texte As String) Dim ZoneTexte As Long Dim zoneitexte As Long Dim TORTU As StringZoneTexte = FindWindowEx(richtext, 0&, "richtextwndclass", vbNullString)Call SendMessageString(ZoneTexte, WM_SETTEXT, 0&, Texte) ' Met le texte dans la zoneEnd FunctionformPrivate Sub Command1_Click()IMSend RichTextBox1End SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()End SubPrivate Sub RichTextBox1_Change()End SubPrivate Sub RichTextBox2_Change()End Subtu ecris dans la zone 1 et avec la fonction imsend tu l'envoi dans la zone 2 je reflechirai plus tard a la fonction gettext à bientot
Wow ca serait cool, si ca marche, ca me permetterait a mon client cara : http://nantaises.free.fr/tr0p_xp.jpgde permettre aux gens pour deconner de parler en chinois ou arabe, ils adorent la deconne.;-)))))))
waoo super c justement ce que je recherchais merci bcp ;-)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte