Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. www.neurohope.ro |
Visual basic Enter virtual in aplicatie.
Last Updated: Feb 08 2004 11:24, Started by
KINGro
, Feb 06 2004 16:44
·
0
#1
Posted 06 February 2004 - 16:44
Salut!
Vreau sa trimita Enter in IChat ..... Cand dai Enter in mod normal pe Ichat trimite mesajul, acest script executa SENDKEYS-urile virtuale dar la ENTER el vrea sa creeze linie noua in loc sa trimita mesajul din "TEdit". Ce trebuie sa fac sa mearga ? Acesta este codul sursa. Private Sub CMDGETTEXT_Click() Dim returnvalue Dim sCaption As String * 256 Dim TApplication&, TFrmIntranetChatMain&, TPanel&, TEdit& TApplication& = FindWindow("TApplication", vbNullString) TFrmIntranetChatMain& = FindWindowEx(TApplication&, 0, "TFrmIntranetChatMain", "Intranet Chat") TFrmIntranetChatMain& = FindWindowEx(TFrmIntranetChatMain&, 0, "TFrmIntranetChatMain", "Intranet Chat") TPanel& = FindWindowEx(TFrmIntranetChatMain&, 0, "TPanel", "PanelMainToolbar") TPanel& = FindWindowEx(TPanel&, 0, "TPanel", vbNullString) TPanel& = FindWindowEx(TPanel&, 0, "TPanel", vbNullString) TEdit& = FindWindowEx(TPanel&, 0, "TEdit", vbNullString) Pause 0.4 returnvalue = PostMessage(TEdit&, WM_KEYDOWN, VK_RETURN, 0&) End Sub |
#2
Posted 06 February 2004 - 17:24
Inlocuieste PostMessage cu
TEdit.SetFocus(); keybd_event( VK_RETURN,0,0,0 ); keybd_event( VK_RETURN,0,KEYEVENTF_KEYUP,0); |
#3
Posted 06 February 2004 - 17:55
"TEdit.SetFocus();"
Nu este in acelasi form .... TEdit este textbox-ul aplicatiei Ichat. |
#4
Posted 08 February 2004 - 11:24
Nu ma ajuta nimeni ?
Cum pot sa fac SetFocus Virtual fara sa imi puna fereastra in fata, cand este fereastra activa merge ENTER-ul. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users