Newsgroup: it.comp.lang.visual-basic
Titolo: SendKeys ("%A"), True

Il suddetto comando (ho provato anche togliendo il "True") fa in modo che il
form principale parte, al run del programma, con una proposta di menů gia
aperto (si dice aperto o come?).
Il menů č Anagrafica con la A sottolineata.
Durante la programmazione funziona tutto bene.
Con l'exe succede questo:
- se avvio il programma col doppio click non funziona
- se avvio il programma un un click + invio funziona.
Non č certo un problema importante ma č curioso.
Qualcuno di Voi ne conosce la ragione?
Grazie e saluti a tutti.
Sauro

 Sauro
non ho ben capito, tu vuoi che quando parte la tua applicazione il menu sia
aperto?
KillerBoy

 KillerBoy
Esatto.
Intendo che mi proponga già una delle tendine con la prima riga blu.
Ciao, Sauro

 Ciao, Sauro
hai provato, invece di mandarti con il sendkey dei comandi da solo, ad usare
il popupmenu?
    posX=0
    posY=0
    PopupMenu mnuFile, , posX, posY
dove posX e posY sono le coordinate sulla form dove visualizzare il menu
KillerBoy

 KillerBoy
Interessante.
Ti sembrerà strano ma non riesco a trovare il nome del mnuFile.
Tu sai come fare?
Grazie.
Ciao, Sauro

 Tu sai come fare?
l'hai dato tu... mnuFile è un nome generico. Quando crei un menu gli dai un
nome (vedi nel campo "Name" nell "Editor dei menu).
Quello è il nome del menu che devi dare (quello del menu che vuoi aprire,
beninteso).
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 Intendo che mi proponga gią una delle tendine con la prima riga blu.
'Prova con un DoEvents(prima o dopo non ricordo) del Sendkeys
Private Declare Function BringWindowToTop Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" _
 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
 (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim hwnd As Long
  Dim sClassName As String
  Shell "C:\Programmi\Accessori\WORDPAD.EXE", vbNormalFocus
  ' hwnd = FindWindow(vbNullString, "Documento - WordPad")
  hwnd = FindWindow("WordPadClass", "Documento - WordPad")
     DoEvents
     ShowWindow hwnd, 1
     BringWindowToTop hwnd
      SendKeys "%fa" ' File >>Apri
     DoEvents
SendKeys "HELLO"
If hwnd = 0 Then MsgBox "No windows"
End Sub
--
Fosco

 Ciao, Sauro
KillerBoy

 KillerBoy
Che era un nome fittizio l'avevo capito  ;-)
Sto lavorando su un form principale che non ho fatto io.
Esite un modo per scoprire il nome del mnuFile?
Grazie.
Ciao, Sauro

 Esite un modo per scoprire il nome del mnuFile?
In fase di progettazione apri il form di cui vuoi sapere il nome del 
menu e usa l'edito dei menu. A quel punto ti sarà visualizzato tutto il 
gruppo di menu di quella finestra. Vedi qual'è il nome del menu che ti 
interessa.
-- 
Nella vita una sola cosa è certa: se la storia ci ha insegnato qualcosa, 
è che si può uccidere chiunque.
(Michael Corleone)

 interessa.
Adesso ho capito.
Io cercavo il nome di un file ed invece è solo il nume di un "sottomenù"
orrizzontale.
Però il comando non fa quel che voglio in quanto poi mi impedisce lo
scorrimento orrizzontale con i tasti freccia.
Però comunque adesso il comando PopUpMenu mi è chiaro.
Grazie.
Ciao, Sauro

 'Prova con un DoEvents(prima o dopo non ricordo) del Sendkeys
Proverň.
Grazie Fosco.
Ciao, Sauro