Discussion :

[PhoeniX1405]

Bonjour à tous,

J'ai réalisé une interface graphique couplée à une base de donnée mysql. Aucun problème de ce coté là.

J'ai ajouté les 3 traditionnels boutons "couper, copier, coller".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Btn_Copy_Click()
    SendKeys "^C"
End Sub
Private Sub Btn_Cut_Click()
    SendKeys "^X"
End Sub
Private Sub Btn_Paste_Click()
    SendKeys "^V"
End Sub

L'interface graphique est composée d'une multitude de textbox et combobox réparti dans différents onglets. Si on sélectionne le texte dans l'une des textbox ou cmb, les boutons ne fonctionne pas, pourtant CTRL+C ou click droit souris -> copié, et ensuite collé fonctionne .

Je pense que le problème vienne du .setfocus :/. Comment le faire déplacé dans la textbox ou combobox en cours d'utilisation.

Merci de votre aide.

[OhMonBato]

S'il s'agit vraiment de mettre en mémoire dans le presse papier, regarde l'aide au sujet du clipboard.

[PhoeniX1405]

Bonjour, avant tout, merci de ton aide.

J'avais essayé de cette manière, mais je suis toujours confronté au même problème.

Pour mettre en dans le presse papier via la commande : clipboard.gettext ... il faut lui indiqué le textbox en cours :/

Donc problème redondant au précédent ... :/

Merci de votre aide

[ucfoutu]

Bonjour,

as-tu pensé à te servir des propriété selstart, sellength et seltext (pour une textbox, par exemple) ?

ceci t'aide-t-il ?

Un petit projet avec 2 textboxes text1 et Text2 et un bouton Command1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Activate()
  Text1.Text = "et voila du texte"
End Sub
 
Private Sub Command1_Click()
  Text1.SelStart = 3
  Text1.SelLength = 5
  Text2.Text = Text1.SelText
End Sub

à agrémenter à ta sauce avec ou sans l'utilisation de l'objet clipboartd ...

[OhMonBato]

Là quand même, le problème ne me semblait pas insurmontable mais voilà un exemple, il suffit d'une feuille avec 2 boutons et 2 controles Text :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub
Private Sub Command2_Click()
Text2.Text = Clipboard.GetText
End Sub

Je te rappelle quand même que tu trouves toutes ces informations dans l'aide de VB...

[PhoeniX1405]

Pour ucfoutu,
Malheureusement, dans ton code, tu attribues une partie du texte contenue dans text1 à text2.
Dans mon cas j'ai +de 30 textbox et toutes peuvent contenir des informations.

Pour OhMonBato
Peux tu me refaire le même mais avec 3 textbox donc pouvoir copier l'information présente dans text1 ou text2 en mémoire.


Pour reformuler ma demande, comment pouvoir déterminer dans quel textbox se trouve le curseur de la souris?

Merci pour votre aide.

[OhMonBato]

Faut croire que ta question n'était pas vraiment claire... mais bon.
Utilises l'événement LostFocus de tes controles pour stocker dans une variable à quel controle tes copier/coller vont faire référence.

[ucfoutu]

Euh...
Je viens de relire :

L'interface graphique est composée d'une multitude de textbox et combobox réparti dans différents onglets

onglets de quoi ?
Tu es bien sous VB6 ?

[Delbeke]

Chaque textbox declenche un evenement quand il reçoit le focus, il suffit de garder une trace du dernier qui a reçu le focus.