la trace d'une ligneRésolu

Question

bonjour tout le monde


 


je cree des lignes (line) dynamiquement et j'associe a chaque ligne un label ( cree dynamiquement) 


de maniere que a chaque fois que je clique sur le label (associé a la ligne voulue) ---> je supprime la ligne unload(ligne(i)).

le probleme c'est que lorsque je supprime la ligne, elle laisse une trace (une ligne)
la ligne est effectivement dechargé (unload), mais je ne comprend pas pourquoi cette trace

et merci infiniement

jmfmarques · Accepted Answer

Ne pas confondre un dessin avec un contrôle shape

Voilà en chargeant et déchargeant ... : pas de problèmes
Private Sub Command1_Click()
 Unload Line1(1)
 MsgBox "index 1 supprimé"
 Line1(2).Visible = False
 Unload Line1(2)
 MsgBox "index 2 supprimé"
End Sub


Private Sub Form_Load()
  Line1(0).X1 = 0
  Line1(0).Y1 = 0
  Line1(0).X2 = 1000
  Line1(0).Y2 = 1000
  For i = 1 To 2
    Load Line1(i)
    Line1(i).Visible = True
    Line1(i).Y2 = Line1(0).X2 * i * 2
  Next
End Sub

PS : un dessin s'efface par Cls.

jrivet · Answer

Salut,
Essaie peu être de faire un Refresh de ton Form.
Sinon donne le code utilisé pour voir si c'est reproductible chez nous.

@+: Ju£i?n
Pensez: Réponse acceptée

jmfmarques · Answer

Bonjour,

Pas de problème chez moi ! 

Ton code ?

argentin7 · Answer

'la premiere etape pour tracer une ligne Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Xdn = x Ydn = y If Xdn <> Xup Or Ydn <> Yup Then J = TestLigne.UBound + 1 Call Load(TestLigne(J)) Call Load(Lblindice(J)) X1 = x Y1 = y X2 = x Y2 = y End If End If End Sub 'la deuxieme etape pour tracer une ligne Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then Form1.DrawMode = 6 If Abs(X1 - X2) > 0 Then With TestLigne(J) .X1 = X1 .X2 = X2 .Y1 = Y1 .Y2 = Y2 End With Line (X1, Y1)-(X2, Y2) End If X2 = x Y2 = y With TestLigne(J) .X1 = X1 .X2 = X2 .Y1 = Y1 .Y2 = Y2 End With Line (X1, Y1)-(X2, Y2) End If End If End Sub 'la troisieme et derniere etape pour tracer une ligne et affecter a testligne(j) Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Xup = x Yup = y If X1 <> X2 Or Y1 <> Y2 Then Form1.DrawMode = 13 TestLigne(J).Visible = True Lblindice(J).Visible = True Lblindice(J).Caption = J Lblindice(J).Left = (TestLigne(J).X1 + TestLigne(J).X2) / 2 Lblindice(J).Top = (TestLigne(J).Y1 + TestLigne(J).Y2) / 2 'n'oubliez pas que l'element zero existe c a lui meme quand doit la creation des 'autre element "testligne(0) et lblindice(0)" 'le nombre d'elemnt que j'ai est egale au nombre d'element visible+1 End If End If End Sub

argentin7 · Answer

je pense que le probleme reside dans LINE (X1,Y1)-(X2,Y2)
oui ca doit etre ca

jmfmarques · Answer

Line (X1, Y1)-(X2, Y2)

Mais... voyons donc !!!!!

Là, tu DESSINES !....

argentin7 · Answer

pas de probleme chez jmfmarques

merci a tous
je dois rectifier mon code

on ne peut pas faire un CLS pour une ligne (dessin) et une seule

argentin7 · Answer

pour les debutants comme moi

il faut supprimer LINE (X1,Y1)-(X2,Y2) et ajouter a sa place testligne(j).visible=true
bonne chance

La trace d'une ligne

8 réponses

Votre réponse

Discussions similaires