Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Dalla trayicon alla finestra premendo un tasto funzione+
Forum - Visual Basic 6 - Dalla trayicon alla finestra premendo un tasto funzione+

Avatar
dylan666 (Normal User)
Pro


Messaggi: 129
Iscritto: 08/09/2009

Segnala al moderatore
Postato alle 17:25
Martedì, 08/09/2009
Sto usando il codice del seguente topic per nascondere una finestra nella tray.
http://www.pierotofy.it/pages/extras/forum/6/20382-tasto_r ...

Come faccio per renderla nuovamente visibile premendo un tasto funzione, come ad esempio F3?


PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 18:29
Martedì, 08/09/2009
devi usare l'api che si chiama (mi pare) getasynkeystatus

PM Quote
Avatar
dylan666 (Normal User)
Pro


Messaggi: 129
Iscritto: 08/09/2009

Segnala al moderatore
Postato alle 18:55
Martedì, 08/09/2009
Non sono espertissimo, quindi potresti postrami un codice di esempio?
Basta che intercetti la pressione fi F4 ad esempio e lanci un MsgBox.

Grazie

Mi piacerebbe una cosa del genere
Codice sorgente - presumibilmente VB.NET

  1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  2. Private Const VK_RETURN = &HD
  3.  
  4. Private Sub Form_Load()
  5. Timer1.Enabled = True
  6. Timer1.Interval = 50
  7. End Sub
  8.  
  9. Private Sub Timer1_Timer()
  10.     If GetAsyncKeyState(VK_RETURN) = 0 Then
  11.         Debug.Print " Return is UP!"
  12.         End If
  13. End Sub
  14.  
  15. End Sub


PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 19:12
Martedì, 08/09/2009
Codice sorgente - presumibilmente VB.NET

  1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  2.  
  3. Private Sub Form_Load()
  4. Timer1.Enabled = True
  5. Timer1.Interval = 1
  6. End Sub
  7.  
  8. Private Sub List1_Click()
  9. text1.Text = List1.List(List1.ListIndex)
  10. End Sub
  11.  
  12. Private Sub Timer1_Timer()
  13. If GetAsyncKeyState(vbKeyF4) = -32768 Then
  14. MsgBox "premuto"
  15. End If
  16. End Sub


PM Quote
Avatar
dylan666 (Normal User)
Pro


Messaggi: 129
Iscritto: 08/09/2009

Segnala al moderatore
Postato alle 21:25
Martedì, 08/09/2009
il List a che serve?
Inoltre mi dà l'errore "Object required" alla riga in cui abiliti il timer
Come risolvo?

Grazie dell'aiuto che mi stai dando

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 21:38
Martedì, 08/09/2009
hai ragione, leva il codice del list, mi serviva per delle prove...

sei sicuro di aver inserito Timer1 nel form?

PM Quote
Avatar
dylan666 (Normal User)
Pro


Messaggi: 129
Iscritto: 08/09/2009

Segnala al moderatore
Postato alle 22:21
Martedì, 08/09/2009
Accidenti che sbadato, hai assolutamente ragione!
Ho eliminato anche la parte del Form_load e ho impostato l'abilitazione e la velocità del timer dalle proprietà del designer grafico (la colonna di destra in basso insomma).

Mi resta solo una domanda: a che velocità ritieni sia più saggio mettere il timer? Il controllo che deve fare è semplice ma non vorrei stressare il sistema dato che l'applicazione deve rimanere sempre aperta

Grazie della tua disponibilità, dell'aiuto e della velocità con cui mi hai risposto!

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 23:07
Martedì, 08/09/2009
non so, credo che 10 sia l'intervallo giusto... poi per controllare quanto consuma apri il taskmanager avvia il programma e vedi quanta CPU consuma...

PM Quote