vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Fortgeschrittene Programmierung
Steuerelementfelder zur Laufzeit 
Autor: Tobi@sK
Datum: 05.01.02 21:55

Hallo,

ich versuche mich gerade an einem Programm und bin auf folgendes Problem gestoßen:

Ich habe (u.a.) ein Textfeld mit dazugehöriger "Weiter"-Schaltfläche. Nun möchte ich per Index zur Laufzeit weitere (max. 7) hinzufügen - je nach Bedarf. Leider zeigt er mir keinen Fehler an, aber auch keine Textfelder. Was mache ich falsch?
Hier mal der Code (auszugsweise):

Private Sub Form_Load()
Dim Text As String
IniPath = "D:Eigene DateienRathausRathaus.ini"
Position = 1
ZWechsel = Chr(13) & Chr(10) 'manueller Zeilenwechsel
Text = GetIniString(Position, "Text", "", IniPath) 'Text
For Mög = 0 To 7
Mögl = "Möglichkeit" & Mög + 1
Weit = "Weiter" & Mög
Mö = GetIniString(Position, Mögl, "", IniPath) 'aktive Möglichkeit
If Mö <> "" Then
'Maße des alten Steuerelementes
Ind = Möglichkeit(Mög).Index 'Index vom letzten Feld
Top = Möglichkeit(Mög).Top 'oberer Beginn des letzten Feldes
Höhe = Möglichkeit(Mög).Height + 225 'Höhe des letzten Elementes
'Erstellt neues Steuerelement
Load Möglichkeit(Mög + 1) 'Laden des Elementes
Möglichkeit(Mög + 1).Visible = True 'Sichtbar machen
Möglichkeit(Mög + 1).Top = Höhe '"Top" festlegen
'Möglichkeit(Mög + 1).Text = Mö
ElseIf Mög = 1 And Mö = "" Then 'Erste Feld = leer
Möglichkeit(0).Visible = False 'entfernen
ElseIf Mö = "" Then Exit For
End If
Next
frmMain.Height = 4065 + (Mög * 615) + (225 * Mög) + 225
Text = Replace(Text, "$$$", ZWechsel, 1) 'Ersetzen durch Zeilenumbruch
frmMain.txt_Text.Text = Text 'Eintrag Text
End Sub

Das Programm findet in der Ini-Datei - je nach Eintrag, eine oder mehrere "Möglichkeit"en. Und je nach dem, wie viele er findet soll er zusätzliche Felder erstellen.

Noch Fragen?
Gruß und Dank im Voraus.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Steuerelementfelder zur Laufzeit43Tobi@sK05.01.02 21:55
Re: Steuerelementfelder zur Laufzeit218unbekannt05.01.02 22:03
Re: Steuerelementfelder zur Laufzeit30Tobi@sK05.01.02 22:06
Re: Steuerelementfelder zur Laufzeit204unbekannt05.01.02 22:14
Re: Steuerelementfelder zur Laufzeit29Tobi@sK06.01.02 08:15
Re: Steuerelementfelder zur Laufzeit22Tobi@sK08.01.02 23:02
Naja (oT)206unbekannt08.01.02 23:06

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