---

test.dvb.txt

Hallo zusammen
Habe folgendes Programm erstellt:

Private Sub Drücken_Click()
Dim Box1 As Acad3DSolid
Dim Box2 As Acad3DSolid
Dim center(0 To 2) As Double
Dim laenge As Double
Dim breite As Double
Dim hoehe As Double
center(0) = 2: center(1) = 2: center(2) = 0
laenge = 60: breite = 30: hoehe = 1500
Set Box1 = ThisDrawing.ModelSpace.AddBox(center, laenge, breite, hoehe)
Set Box2 = ThisDrawing.ModelSpace.AddBox(center, laenge - 4, breite - 4, hoehe)
End Sub

Das Ganze ist unter:
E:/_VISUAL BASIC/test.dvb
gespeichert.

Geladen wird es mit:
(vl-vbaload "E:/_VISUAL BASIC/test.dvb")

Starten sollte es mit:
(vl-vbarun "Titel.Drücken")

Antwort von Acad:
Makro nicht gefunden

Was ist Falsch?

Bin für jede antwort dankbar.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

du kannst mit vbarun kein Form starten. Erstell Dir ein Modul mit folgendem Code:

Sub StartTest()
   Titel.show
End Sub

StartTest rufst Du dann mit vbarun auf, dann klappts!

Harry

[Diese Nachricht wurde von harryk am 01. Feb. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo harryK
vielen Dank für den guten Tip
hat super geklappt.

gruß
hemmutG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP