Neurochirurgie minim invazivă
"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv. Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice. 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