vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Fortgeschrittene Programmierung
Re: Dynamischer Fensteraufbau 
Autor: Norbert
Datum: 07.05.02 17:48

Hier hast Du zwei Beispiele aus dem Buch von Kofler:

' OberflächeControls
Option Explicit


Private Sub Form_Load()
Command_Remove.Enabled = False
End Sub

Private Sub Command_Add_Click()
Set newctrl = Form1.Controls.Add("RichText.RichTextctrl.1", "new")
With newctrl
.Move 200, 200, 2000, 800
.Visible = True
.Text = "dummytext"
End With
Command_Add.Enabled = False
Command_Remove.Enabled = True
End Sub

Private Sub Command_Remove_Click()
Form1.Controls.Remove "new"
Command_Add.Enabled = True
Command_Remove.Enabled = False
End Sub

Private Sub Command1_Click()
End
End Sub


Statt Richtext mußt Du z.B. Textbox nehmen. Wie die Syntax aussieht, steht im Objektkatalog. Aber Achtung: Man kann nicht alle Controls auf diese Art und Weise hinzufügen.

Die zweite Möglichkeit: Es geht mit Load:
Load:


' n initialisieren
Private Sub Form_Load()
n = 1
End Sub
' neuen Button erzeugen
Private Sub btnNeu_Click(Index As Integer)
Dim h
If n >= 10 Then Exit Sub
' neuen Button erzeugen, plazieren, sichtbar machen
Load btnNeu(n)
btnNeu(n).Top = btnNeu(n - 1).Top + btnNeu(0).Height + 120
btnNeu(n).Visible = True
' Formular vergrößeren
h = btnNeu(n).Top + btnNeu(n).Height + 120
Height = h + Height - ScaleHeight
' Anzahl der Buttons vergrößern
n = n + 1
End Sub
' Button löschen
Private Sub btnEntfernen_Click()
Dim h
If n = 1 Then Exit Sub
' Button löschen
n = n - 1
Unload btnNeu(n)
' Formular verkleineren
h = btnNeu(n - 1).Top + btnNeu(n - 1).Height + 120
Height = h + Height - ScaleHeight
End Sub
' Ende
Private Sub btnEnde_Click()
End
End Sub


Das Beispiel ist auch vom Kofler.
Such Dir aus, mit was Du glücklich werden willst...
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Dynamischer Fensteraufbau65Plasma07.05.02 10:49
Re: Dynamischer Fensteraufbau49Norbert07.05.02 11:46
Re: Dynamischer Fensteraufbau43Plasma07.05.02 12:52
Re: Dynamischer Fensteraufbau40Norbert07.05.02 13:22
Re: Dynamischer Fensteraufbau34Plasma07.05.02 13:33
Re: Dynamischer Fensteraufbau35Norbert07.05.02 13:36
Re: Dynamischer Fensteraufbau34Plasma07.05.02 16:45
Re: Dynamischer Fensteraufbau45Norbert07.05.02 17:48
Re: Dynamischer Fensteraufbau34Plasma07.05.02 18:41

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