aider moi, comment afficher une line a chaque click ?

Question

bonjour a tous :)

je voudrais faire ceci, mais ca marche pas , pouvez vous m aider ?
--------------------------------------------------------------------
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
b = b + 1
Label1.Caption = X
Label2.Caption = Y


xx(b) = X
yy(b) = Y
a(b) = xx$(b) + " " + yy$(b) + " 0 ,"
Label3.Caption = a(b)
Label4.Caption = b
Open repertoire_de_sortie + "\face.wrl" For Append Shared As #1
Print #1, a(b)
Close #1


If b >= 200 Then


Line1(b).X1 = xx(b - 1)
Line1(b).Y1 = yy(b - 1)
Line1(b).X2 = xx(b)
Line1(b).Y2 = xx(b)
Load Line1(b)


End If


End Sub
-------------------------------------------------
en gros je veux que quand on clique pour  une 2e foit sur l image puis une 3e fois une barre se place sur (compsant line) se place entre entre le point 2 et le point 3, et si on clique une 4e entre le 3e et le 4 , si vous me suivez, pouvez m aider ?

Ce code permet de creer du vrml tres rapidement et une version alpha sera bientot mise en disponibilit&#233; sur ce site :)

Attention ce code est en vrml, mais , on peu aussi le traduire sous d autre langauge que le vrml, je pense a scol ou d autres ;)

Merci de votre aide, je bloque :)

guilleto · Answer

Salut &#224; toi &#212; Programmeur !

Dans ta feuille tu dois avoir 4 Label nomm&#233;s : Label1, Label2, Label3 et Label4
                                                  1 PictureBox nomm&#233; : Image1
                                                  1 Ligne nomm&#233; : Line1 index&#233; &#224; 0 invisible et dans le contr&#244;le Image1

D&#233;clarations :
------------------
Dim xx(0 To 200) As Double
Dim yy(0 To 200) As Double
Dim a(0 To 200) As String
Dim b

Evenements :
------------------
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If b = 0 Then
    Line1(0).X1 = X
    Line1(0).Y1 = Y
    Line1(0).X2 = X
    Line1(0).Y2 = Y
    xx(0) = Line1(0).X2
    yy(0) = Line1(0).Y2
    Line1(0).Visible = False
  End If
  
  b = b + 1
  Label1.Caption = X
  Label2.Caption = Y
  
  xx(b) = X
  yy(b) = Y
  a(b) = xx(b) & " " & yy(b) & " 0 ,"
  Label3.Caption = a(b)
  Label4.Caption = b
  Open repertoire_de_sortie + "\face.wrl" For Append Shared As #1
    Print #1, a(b)
  Close #1
  
  If b <= 200 Then
    Load Line1(b)
    Line1(b).X1 = xx(b - 1)
    Line1(b).Y1 = yy(b - 1)
    Line1(b).X2 = xx(b)
    Line1(b).Y2 = yy(b)
    Line1(b).Visible = True
  End If
End Sub

Et Voil&#224; !   

N'oublie pas de remplir ton 'repertoire_de_sortie' !

@+

Olivier

blbl · Answer

euh, attends, je t envoie mon code complet 

tu comprends vrml, aussi j espere ?
----------------------------------------
Dim a(200) As String
Dim b As Variant
Dim repertoire_de_sortie As String
Dim xx(200) As String
Dim yy(200) As String


Private Sub Command1_Click()
Open repertoire_de_sortie + "\face.wrl" For Append Shared As #1
Print #1, "]"
Print #1, "}"
Print #1, "coordIndex ["
zztop = b - 1
ledzep = 0
For e = ledzep To zztop
Print #1, e


Next e
Print #1, "-1 ]"
Print #1, "}"
Print #1, ""
Print #1, " appearance Appearance { "
Print #1, "#ici votre couleur avec vrml pad } #penser a enlever le diese en debut de ligne :)"
Print #1, "}]}"


Close #1
End
End Sub


Private Sub Form_Load()
repertoire_de_sortie = ""
repertoire_de_sortie = InputBox("Veuillez donner le r&#233;pertoire de sortie de cette session " + Chr$(13) + " Attention ce repertoire doit exister", "Repertoire de votre futur wrl")
image_session = InputBox("Veuillez donner le chemin + le nom complet du fichier a inserer", "image &#224; inserer")
Image1.Picture = LoadPicture(image_session)
b = 0
Open repertoire_de_sortie + "\face.wrl" For Output Shared As #1
Print #1, "#VRML V2.0 utf8"
Print #1, "Transform {  " + Chr$(13) + "scale 0.01 0.01 0.01 " + Chr$(13) + "children [" + Chr$(13) + " Shape {" + Chr$(13) + " geometry IndexedFaceSet {" + Chr$(13)
Print #1, "    solid FALSE"
Print #1, "convex FALSE"
Print #1, "         coord Coordinate {"
Print #1, "           point [ "
Close #1


End Sub


Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
b = b + 1
Label1.Caption = X
Label2.Caption = Y


xx(b) = X
yy(b) = Y
a(b) = xx$(b) + " " + yy$(b) + " 0 ,"
Label3.Caption = a(b)
Label4.Caption = b
Open repertoire_de_sortie + "\face.wrl" For Append Shared As #1
Print #1, a(b)
Close #1


If b >= 200 Then
Line1(b).X1 = xx(b - 1)
Line1(b).Y1 = yy(b - 1)
Line1(b).X2 = xx(b)
Line1(b).Y2 = xx(b)



End If


    
    
    
End Sub


voial el code actuel :)

toufou2006 · Answer

JE suis blbl :) et binoclard et d autre :) a chaque mail que je change, ej change de pseudo :) lol :)

voila , la chose est finie , le programme final se trouve sur ce post :)
http://www.vbfrance.com/infomsg_AFFICHAGE-FICHIER-VRML-WRL_221954.aspx

Aider moi, comment afficher une line a chaque click ?

3 réponses

Discussions similaires