---

Ich habe das folgende Problem mit meinem VB prog:

Ich kann 2 Linien anklicken und deren Steigung berechnen lassen.

nun kann ich mir das ergebniss (steigung 1und 2) nicht durch den Label Befehl anzeigen lassen

Hier mal einen Auszug:

Public Sub CommandButton1_Click()

'--------------------Variablendeklaration-----------------------------
    Dim AcEntity As Object
    Dim AcPline As AcadLine
    Dim S1Start() As Double
    Dim S1Ende() As Double
         
    Dim AX As Double
    Dim AY As Double
    Dim EX As Double
    Dim EY As Double
    Dim S1 As Double
'--------------------Auswahl der Tangente festlegen-----------------------------
   
    MsgBox "Bitte wählen sie die erste Tangente (Linie)"
   
    Me.Hide                    'mach das auswahlfenster(userform) unsichtbar kann auf autocad zugreifen
   
    ThisDrawing.Utility.GetEntity AcEntity, "Linie wählen:"
     
    Me.Show                    'ich mach das userfenster wieder sichtbar
   
           
    Set AcPline = AcEntity
                   
    S1Start = AcPline.startPoint
    S1Ende = AcPline.endPoint
                     
    Debug.Print "Start X/Y", S1Start(0), S1Start(1)
    Debug.Print "Ende  X/Y", S1Ende(0), S1Ende(1)
         
   
  '--------------------Berechnung der Tangent und ausgabe des ergebnisses-----------------------------
   
    AX = S1Start(0)        ' festlegung der Variablen, der einzelnen koordinaten
    AY = S1Start(1)
    EX = S1Ende(0)
    EY = S1Ende(1)
   
    S1 = (EY - AY) / (EX - AX) * 100 / 10
   
    Label6.Caption = S1
   
End Sub

Das programm soll später kuppen bzw. wannen ausrundungen in Cad ausführen.

(es ist das erste mal das ich programmiere, also bitte nicht böse sein wenn ich mit dumm anstelle)

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

---

Die Me.Show-Anweisung sollte erst am Ende der Prozedur erfolgen, da das Formular modal gestartet wird. Daurch wird die Abarbeitung der weiteren Befehle in der Prozedur erst fortgesetzt wenn das Formular wieder ausgeblendet wird.

Public Sub CommandButton1_Click()

'--------------------Variablendeklaration-----------------------------
    Dim AcEntity As Object
    Dim AcPline As AcadLine
    Dim S1Start() As Double
    Dim S1Ende() As Double
         
    Dim AX As Double
    Dim AY As Double
    Dim EX As Double
    Dim EY As Double
    Dim S1 As Double
'--------------------Auswahl der Tangente festlegen-----------------------------
   
    MsgBox "Bitte wählen sie die erste Tangente (Linie)"
   
    Me.Hide                    'mach das auswahlfenster(userform) unsichtbar kann auf autocad zugreifen
   
    ThisDrawing.Utility.GetEntity AcEntity, "Linie wählen:"
     
   
           
    Set AcPline = AcEntity
                   
    S1Start = AcPline.startPoint
    S1Ende = AcPline.endPoint
                     
    Debug.Print "Start X/Y", S1Start(0), S1Start(1)
    Debug.Print "Ende  X/Y", S1Ende(0), S1Ende(1)
         
   
  '--------------------Berechnung der Tangent und ausgabe des ergebnisses-----------------------------
   
    AX = S1Start(0)        ' festlegung der Variablen, der einzelnen koordinaten
    AY = S1Start(1)
    EX = S1Ende(0)
    EY = S1Ende(1)
   
    S1 = (EY - AY) / (EX - AX) * 100 / 10
   
    Label6.Caption = S1

    Me.Show                    'ich mach das userfenster wieder sichtbar
   
End Sub

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