| |
| Was bringt der 3D-Druck in der Elektronik?, eine Pressemitteilung
|
Autor
|
Thema: Objekte richtig deklarieren (1038 mal gelesen)
|
Matrix82 Mitglied Konstrukteur
Beiträge: 64 Registriert: 11.03.2011 Jäh nach Auftrag<P>Software: SW 2010 - 2013 Office 2003 - 2010 Inventor 10 - 2013 AutCAD Mech. 10 - 2012 PDM, Kompass, Keytech, SAP, ... VB bis 2010 C++, CNC Sinumeric, v. CAD/CAM<P>Hardware: 2x Hp Envy 3D auf max. ausgerüstet
|
erstellt am: 27. Mrz. 2013 14:27 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute Ich versuche ein besseres Verständnis zu den Objekten unter VBA zu erreichen. Ich habe ein TestCode kreiert: Public Class Form1 Dim meinObjekt As Object Dim strName As String Dim intWert As Integer Sub Test() Dim Meldung As String
CreateObject("meinObjekt") With Me.meinObjekt .strName = "Alex" .intWert = 10 End With
lblLable1.Text = meinObjekt.strName Meldung = meinObjekt.strName Debug.Print(Meldung) End Sub
End Class Der Wert Alex wird nicht an das Lable und auch nicht in das Direktfenster übergeben. warum ??? ------------------ Alles ist machbar, wenn man weis wie! Selbständiger Konstrukteur Für Kontakt E-Mail Adresse ins Gästebuch ablegen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mseufert Ehrenmitglied V.I.P. h.c. Freiberuflicher CAD/CAM Ingenieur
Beiträge: 2700 Registriert: 18.10.2005
|
erstellt am: 27. Mrz. 2013 19:21 <-- editieren / zitieren --> Unities abgeben: Nur für Matrix82
Hallo Matrix82, zwei Dinge fallen hier auf: meinObjekt ist als Typ Object deklariert und kann daher keine Member haben. Damit das funktioniert, brauchst Du eine eigene Klasse bzw. Stuktur. In etwa so: Public Class meinObjekt Public strName As String Public intWert As Integer End Class Anschließend braucht's eine Instanz dieser Klasse, z.B.: Dim mo as New meinObjekt() mo.strName = "Alex" mo.intWert = 10 Dann: lblLable1.Text = mo.strName Der zweite Punkt: Was macht CreateObject("meinObjekt") ? Gruß, Michael Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Matrix82 Mitglied Konstrukteur
Beiträge: 64 Registriert: 11.03.2011 Jäh nach Auftrag<P>Software: SW 2010 - 2013 Office 2003 - 2010 Inventor 10 - 2013 AutCAD Mech. 10 - 2012 PDM, Kompass, Keytech, SAP, ... VB bis 2010 C++, CNC Sinumeric, v. CAD/CAM<P>Hardware: 2x Hp Envy 3D auf max. ausgerüstet
|
erstellt am: 28. Mrz. 2013 09:22 <-- editieren / zitieren --> Unities abgeben:
Danke für die Antwort, ich habe versucht über das CreateObject ein Objekt zu generieren das die Variablen strName und intWert besitzt. aus deinem Code verstehe ich dass ein Objekt immer sowas wie eine Methode oder Klasse oder Modul ist. Kann ich auch eine Funktion oder auch ein SUB zu einem Objekt verschachteln ??? ------------------ Alles ist machbar, wenn man weis wie! Selbständiger Konstrukteur Für Kontakt E-Mail Adresse ins Gästebuch ablegen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mseufert Ehrenmitglied V.I.P. h.c. Freiberuflicher CAD/CAM Ingenieur
Beiträge: 2700 Registriert: 18.10.2005
|
erstellt am: 28. Mrz. 2013 12:45 <-- editieren / zitieren --> Unities abgeben: Nur für Matrix82
|
Matrix82 Mitglied Konstrukteur
Beiträge: 64 Registriert: 11.03.2011 Jäh nach Auftrag<P>Software: SW 2010 - 2013 Office 2003 - 2010 Inventor 10 - 2013 AutCAD Mech. 10 - 2012 PDM, Kompass, Keytech, SAP, ... VB bis 2010 C++, CNC Sinumeric, v. CAD/CAM<P>Hardware: 2x Hp Envy 3D auf max. ausgerüstet
|
erstellt am: 28. Mrz. 2013 16:59 <-- editieren / zitieren --> Unities abgeben:
|