mettre des textes sur une formRésolu

Question

bonjour,
je d&#233;sire dessiner des textes sur une form en les positionnant avec la souris, c'est-&#224;-dire , je met le curseur n'importe o&#249; sa la form et je tape le texte au clavier et il apparait sur la form et ainsi de suite.

qui peut me donner un code pour cela ? 
merci d'avance

jrivet · Accepted Answer

Salut.

Pour tester si ce code peux t'aider tu a besoin d'un label appel&#233; Label1 et Avec la Propriete Index a 0

Colle le code suivant dans le form pour tester

Option Explicit
Dim WriteLabel As Boolean


Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    WriteLabel = False
End If
If WriteLabel Then Label1(Label1.Count - 1).Caption = Label1(Label1.Count - 1).Caption & Chr(KeyAscii)



End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    Call Load(Label1(Label1.Count))
    With Label1(Label1.Count - 1)
        .Left = X
        .Top = Y
        .Visible = True
        .Caption = ""
        
    End With
    WriteLabel = True
End If
End Sub

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

bichonnet · Answer

merci beaucoup
cela fonctionne !

jrivet · Answer

Salut,

Ravi d'avoir pu t'aider.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

Mettre des textes sur une form

3 réponses

Discussions similaires