Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  VBasic / vb.net / vbs / wsh
  Objekte richtig deklarieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Objekte richtig deklarieren (1036 mal gelesen)
Matrix82
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Matrix82 an!   Senden Sie eine Private Message an Matrix82  Schreiben Sie einen Gästebucheintrag für Matrix82

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


meinObjekt.jpg

 
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


Sehen Sie sich das Profil von mseufert an!   Senden Sie eine Private Message an mseufert  Schreiben Sie einen Gästebucheintrag für mseufert

Beiträge: 2624
Registriert: 18.10.2005

erstellt am: 27. Mrz. 2013 19:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Matrix82 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Matrix82 an!   Senden Sie eine Private Message an Matrix82  Schreiben Sie einen Gästebucheintrag für Matrix82

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von mseufert an!   Senden Sie eine Private Message an mseufert  Schreiben Sie einen Gästebucheintrag für mseufert

Beiträge: 2624
Registriert: 18.10.2005

erstellt am: 28. Mrz. 2013 12:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Matrix82 10 Unities + Antwort hilfreich

In Sachen VB-Grundlagen gibt's eine gutes Tutorial, in dem die Begriffe erklärt und mit Beispielen verdeutlicht werden.

Gruß, Michael

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

Matrix82
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Matrix82 an!   Senden Sie eine Private Message an Matrix82  Schreiben Sie einen Gästebucheintrag für Matrix82

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke hast sehr geholfen.

   

------------------
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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz