3d en vrml avec vb

Commenter

Contenu du snippet

Pour apprendre le VRML : http://webhome.infonie.fr/kdo/vrml/index.htm
Blaxxun contact (Plugin pour le vrml) : http://www.blaxxun.com/products/contact/contact5/index.html
Attention pour les guillemets mettre chr$(34) (ex:url "mailto:clem.leger@oreka.com" devient
url " & Chr$(34) & "mailto:clem.leger@oreka.com" & Chr$(34)
si vous avez trouvés un truc pour éviter du programmer en vrml, écrivez mois à clem.leger@oreka.com
et si vous avez un autre truc pour actualiser le monde vrml
et encore un autre (je sais, je suis nul !) si vous arivez à faire une fct pour transformer les radians en degrés (exemple dans le chap3\transform du site http://webhome.infonie.fr/kdo/vrml/index.htm)

Faire une form avec le composant blaxxun cc3d et un commandbutton

Source / Exemple : 


Private Sub Command1_Click()
c$ = Obtenir("Back", "skyColor")
c$ = Right$(c$, 1) & Mid$(c$, 2, 3) & Left$(c$, 1)
Change "Back", "skyColor", c$
End Sub
Private Sub Form_Load()
f = FreeFile
Open "C:\Vrml.wrl" For Output As #f
Print #f, "#VRML V2.0 utf8"
Print #f, "DEF Back Background {skyColor 1 0 0}"
Print #f, "Anchor {url " & Chr$(34) & "mailto:clem.leger@oreka.com" & Chr$(34)
Print #f, "children [Shape {appearance Appearance {material    Material {diffuseColor .67 .05 .11"
Print #f, "specularColor 1 1 .17"
Print #f, "emissiveColor .19 .06 .07"
Print #f, "ambientIntensity 0"
Print #f, "shininess 0.3"
Print #f, "transparency .43}}"
Print #f, "geometry Text {string " & Chr$(34) & "Clem.leger@oreka.com" & Chr$(34) & "}}]}"
Close
Charger "C:\vrml.wrl", blaxxunCC3D1
End Sub
Public Sub Charger(Url As String, Blax As blaxxunCC3D)
Blax.Url = Url
End Sub
Private Sub Form_Resize()
blaxxunCC3D1.Width = Me.ScaleWidth
blaxxunCC3D1.Height = Me.ScaleHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
FileSystem.Kill "C:\Vrml.wrl"
End Sub
Public Sub Change(Neud As String, eventIn As String, Valeur As String)
blaxxunCC3D1.setNodeEventIn Neud, eventIn, Valeur
End Sub
Public Function Obtenir(Neud As String, eventOut As String) As String
Obtenir = blaxxunCC3D1.getNodeEventOut(Neud, eventOut)
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Clem)