commandbutton - écran tactile

Version imprimable

08/12/2008, 20h43
Maurice59210

commandbutton - écran tactile

Bonjour, sur visual basic 6 j'aimerais actionner un bouton a travers un écran tactile, pour cela il me faudrait une commande qui permette "d'enfoncer le bouton", je sais modifier la couleur, caption...tous ce que vous voulez, mais je n'arrive pas à enfoncer le bouton ! :(

un code du genre bouton1.enfonce=true !!!

merci d'avance

Tu sais deja recuperer l'information quand un utilisateur appuie sur l'ecran ?
Je supose que tu as un OCX, une DLL qui te permet de récuperer cette evenement (en general une matrise XY) ?
Si oui, en supposant que tu disposes d'un evenement se nomment MonEcranTactile_Evenement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MonEcranTactile_Evenement(X As Integer, Y As Integer)
If X >= Command1.Left And X <= Command1.Left + Command1.Width Then
 If Y >= Command1.Top And Y <= Command1.Top + Command1.Height Then
  'enclancher une action
 End If
End If
If X >= Command2.Left And X <= Command2.Left + Command2.Width Then
 If Y >= Command2.Top And Y <= Command2.Top + Command2.Height Then
  'enclancher une autre action
 End If
End If
End Sub

ou si l'utilisateur peu aussi clicquer avec la souris

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub MonEcranTactile_Evenement(X As Integer, Y As Integer)
If X >= Command1.Left And X <= Command1.Left + Command1.Width Then
 If Y >= Command1.Top And Y <= Command1.Top + Command1.Height Then
  Command1_Click
 End If
End If
If X >= Command2.Left And X <= Command2.Left + Command2.Width Then
 If Y >= Command2.Top And Y <= Command2.Top + Command2.Height Then
  Command2_Click
 End If
End If
End Sub
Private Sub Command1_Click()
 'enclancher une action
End Sub
Private Sub Command2_Click()
 'enclancher une autre action
End Sub

08/12/2008, 23h05
Maurice59210

Merci pour votre réponse, mais j'ai du mal m'exprimer...

Le problème est que je voudrais faire semblant d'appuyer sur un bouton, cad que lorsqu'on touche l'écran au dessus du bouton, celui-ci s'enfonce...

le pb c'est justement "enclencher une action" : comment faire enfoncer le bouton ? quelle commande ?
08/12/2008, 23h08
SfJ5Rpw8

Et actuellement il se passe quoi lorsque tu clique sur le bouton avec ton doigt ?
08/12/2008, 23h09
Maurice59210

J'ai essayé tout simplement l'action : Command1_Click mais cela ne fonctionne pas...:(
08/12/2008, 23h18
Maurice59210

Je peux par exemple cocher un check ou faire changer la couleur du bouton avec Command1.backcolor=&H000....mais pas l'enfoncer, je pense qu'il n'y a pas de commande pour cela...
08/12/2008, 23h22
Maurice59210

Ne vous casser pas la tête, ce n'est qu'un effet visuel, le projet fonctionne quand même, j'utiliserais le changement de couleur du bouton pour que l'utilisateur aura un retour optique...

merci à tous
08/12/2008, 23h31
SfJ5Rpw8
j'ai pas tout compris ton histoire d'écran tactile nous à mis sur de fausse piste..

Rajoute un check Box sur ta form, modifie sa propriété Style en Graphique

puis grâce à un autre bouton :
Code:

1 2 3 4 5 Private Sub Command2_Click() Check1.Value = 1 End Sub