vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ActiveX-Programmierung
dynamisches Anlegen von Controls 
Autor: Marky
Datum: 04.04.11 11:55

Hallo zusammen,

ich möchte in einer Forms dynamisch Controls anlegen. Beim Befehl

Controls.Add
bekomme ich die Fehlermeldung, dass der Befehl nicht unterstützt wird.
Jetzt meine Frage: Fehlt mir dazu eine dll-Datei bzw. ein Verweis?
Vielen Dank schon mal für die Hilfe!

Gruß
Marky
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: ModeratorDieter (Moderator)
Datum: 04.04.11 12:00

Welche IDE verwendest Du?

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Marky
Datum: 04.04.11 12:03

Version 6.0

IDE?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Dirk
Datum: 04.04.11 14:47

IDE: Integrated Development Environment = Entwicklungsumgebung.

Hier mal ein Beispiel:

Private Sub Form_Load()
 
  Controls.Add "VB.TextBox", "txtBox", Me
 
  With Me.Controls("txtBox")
    .Visible = True
    .Left = 100
    .Top = 100
    .Width = 1000
  End With
 
End Sub

Gruß
Dirk

--
?Get it right the first time

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Marky
Datum: 04.04.11 15:54

Trotzdem Fehlermeldung:

Methode oder Objekt nicht bekannt! Warum?
Hier der gesamte Code:

Private Sub Form_Activate()
 
    Dim sql As String
    Dim rstMitglied As Recordset
    Dim tebo As MSForms.TextBox
    Dim lbl As MSForms.Label
    Dim myRange As Range
    Dim myCell As Range
    Dim sziel As Variant
    Dim height As Integer
    Dim width As Integer
    Dim x As Long
    Dim w As Long
    Dim i As Long
 
    Caption = "Einzahlungen"
    x = 15
    w = 10
    Set DB = CurrentDb()
    sql = "Select distinct(person) from Goldenes_Haendchen where aktiv = Yes" & _
      "order by person"
    Set rstMitglied = DB.OpenRecordset(sql)
    If rstMitglied.RecordCount > 0 Then
        rstMitglied.MoveLast
        rstMitglied.MoveFirst
        For i = 0 To rstMitglied.RecordCount - 1
            Controls.Add "VB.Label", "Label", Me
            rstMitglied.MoveNext
        Next i
    End If
End Sub
Gruß

Marky
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: ModeratorDieter (Moderator)
Datum: 04.04.11 17:47

In welcher Codezeile genau tritt der Fehler auf?

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Marky
Datum: 05.04.11 08:15

Hi Dieter,

der Fehler tritt bei
Controls.Add "VB.Label", "Label", Me
auf!
Fehlermeldung lautet: Methode oder Datenobjekt nicht gefunden.
Für mich klingt das danach, dass ihm eine Function oder DLL fehlt, oder?

Gruß

Mrky
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Dirk
Datum: 07.04.11 12:56

Würdest du uns gnädigerweise auch die Fehlermeldung mitteilen!?

Wahrscheinlich ist das Problem, dass du hier i-Mal ein Control mit gleichem Namen hinzufügst. Versuch mal:
Controls.Add "VB.Label", "Label" & CStr(i), Me

Gruß
Dirk

--
?Get it right the first time

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Marky
Datum: 08.04.11 10:22

Fehler ist bei
Controls.Add
(wie schon desöfteren erwähnt): Methode oder Datenobjekt nicht gefunden.

Gruß

Marky
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Dirk
Datum: 08.04.11 23:37

Arbeitest du mit VBA?

Gruß
Dirk

--
?Get it right the first time

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Marky
Datum: 11.04.11 09:49

@Dirk

Hallo Dirk,

ja, ich arbeite mit VBA und das Ganze soll in Access geschehen.

Gruß

Marky
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Marky
Datum: 03.05.11 11:03

Das Thema ist erledigt! Danke für die Hilfe!

Gruß

Marky
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: Chriz
Datum: 22.01.15 19:36

Durch Google auf diesen veralteten Post gestossen.. Für jeden der sich änlichem hier verirrt hat und sich ärgert das hier keine vernünftige Lösung präsentiert wird:
Ich denke das Problem liegt weniger am Code als am Zeitpunkt des Aufrufes. Beim Activated Event steht das conponent Objekt meiner Meinung nach noch nicht zur Verfügung. Generell sollte man so oft wie möglich auf das dynamische erstellen von Controls verzichten wenn man nicht gerade an irgendwelchen Spielen programmiert ;)

----------------------------------------------------------------
Wenn einer der mit Mühe kaum, geklettert ist auf einen Baum,
Schon denkt das er ein Vogel wär', so irrt sich der

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: dynamisches Anlegen von Controls 
Autor: markusxy
Datum: 01.02.16 21:07

in vba können controls nur im entwurfsmodus hinzugefügt/gelöscht werden.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel