Discussion :

[jer35]

bonjour , je debute en visual basic 2008 express
je dessine sous topsolid et je sais que l'on peut mettre en rapport c'est 2 logiciels , seulement visual me met des erreurs sur la fonction set, voici le petit programme de depart , si quelqu'un connait la solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
  
Dim TopApp As TopSolid.Application
Dim TopDoc As TopSolid.DocumentDesign
 
set TopApp = New TopSolid.Application
set TopDoc = TopApp.Documents.Add("top")
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim TopCircle As TopSolid.Curve
 
' creer un cercle
' Centre = 0, 0, 0
' axe X = 1, 0, 0
' axe Y = 0, 1, 0
' Rayon = 0.01
 
TopCircle = TopDoc.Curves.AddBasicCircle(0, 0, 0, 1, 0, 0, 0, 1, 0, 0.01)
 
End Sub
End Class

[sevyc64]

Ca ressemble à du code VB6 ce que tu donne.

Je ne connais pas TopSolid, mais en VB.net normalement tu ne dois pas avoir besoin de Set pour créer tes instances.

Supprime les Set devant les 2 lignes

Autre point : Ces 2 lignes doivent se trouver dans une procédure (sub ou function). Dans ton exemple, elles semble être dans la partie déclaration de la classe. Déplace-les, par exemple, dans la procédure click du bouton qui crée le document ou dans la procédure Form_Load si le document doit être créé au chargement de l'écran.

[jer35]

bonjour,

merci pour ta reponse sevyc64

j'ai avancer dans le programme mais j'ai toujours une erreur

si quelqu'un as une idee

[Pol63]

nullreferenceexception veut dire que tu utilises un objet non instancié

genre
dim a as button
a.text = "texte"

a est un button certes, mais pas instancié, donc a.texte n'existe pas et plante

il faut utiliser New pour instancier

[jer35]

oui mais comment faire,

j'ai recherché sur le net et dans l'aide et je n'ai reussi a
avoir de reponses , il plante toujours a meme endroit

jer35

[Pol63]

apprend à débuger en mode pas à pas, avec les espions tu sauras quelle valeur de la ligne vaut nothing