---

Hallo zusammen,

ich bin dabei ein SW Addin zu schreiben. Um die Grundeinstellungen anzeigen und ggf. ändern zu können habe ich ich in dem Addin ein Windows-Forms samt Textbox erstellt.

Nun möchte ich innherhalb einer Function in einem Modul auf den Wert der Textbox zugreifen. Habe es wie in einer normalen Windows-Forms-Anwendung mit

Code:

---

FormName.TextBoxName.Text

---

probiert, aber ich bekomme leider diese Fehlermeldung:

Der Verweis auf einen nicht freigegebenen Member erfordert ein Objektverweis.

Hat jemand einen Tipp für mich, wie ich das hinbekommen könnte?

Schon mal danke fürs Lesen!

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

---

Hallo Jensemann,

die Fehlermeldung ist mehr als eindeutig!
Du benötigst eine Objektinstanz zu deinem Formular:

Code:

---

Dim oMyForm As New FormName
oMyForm.Show
Debug.Print(oMyForm.TextBoxName.Text)

---

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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

---

Wieder einemal:

Vielen, vielen Dank für die schnelle Hilfe!

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

---

Mh, so ganz bin ich doch noch nicht durch mit dem Thema, denn nun gibt es zwar keine Fehlermeldung mehr, aber der Inhalt der Textbox wird immer als leer angegeben.

Hier der Code meiner Function:

Code:

---

Public Function ResetDefaultXMLValues(ByVal XMLRoot As Xml.XmlNode, ByVal XmlPath As String) As Boolean

        Try
            Dim Parameter As Xml.XmlNode
            Dim BasicProperties As New BasicProperties          ' BasiProperties as object
            Dim bRet As Boolean

            Parameter = XMLRoot.SelectSingleNode("Parameter[@Name='PathExcelFile']")
            Parameter.Attributes("Path").Value = _
"C:\Users\Jens\Documents\Visual Studio 2008\Projects\MCE\MCE\Kostensaetze.xlsx"

            XMLDoc.Save(XmlPath)

            MsgBox("Standardeinstellungen wiederhergestellt.", vbInformation)

            Parameter = XMLRoot.SelectSingleNode("Parameter[@Name='PathExcelFile']")
            BasicProperties.TxtBoxPathExcelFile.Text = Parameter.Attributes("Path").Value

            bRet = True
            Return bRet

        Catch ex As Exception
            Trace.WriteLine("Fehler: Wo: " & _
            ex.StackTrace & " Was: " & ex.Message)
            Return Nothing
        End Try

    End Function

---

Obwohl offensichtlich Text in der Textbox steht wird kein Inhalt weitergegeben.

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

---

Hallo Jensemann,

Ich bin ja vielleicht blind, aber ich sehe im Code nichts, was irgendetwas mit einer Textbox macht  .

Gruß
Jan

------------------
Jan Böttcher
www.ib-boettcher.de

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

---

BasicProperties.TxtBoxPathExcelFile.Text

ist der Inhalt (Text) der Textbox TxtBoxPathExcelFile im Formular BasicProperties :-)

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