title image


Smiley Re: Neue Instanzen eines FRAME Objekts während Laufzeit anlegen.
Anleitung:Erstelle ein neues Projekt.Füge einen Rahmen hinzu und nenne ihn fraMeinRahmen.Verpasse diesem Rahmen den Index 0.Füge in diesen Rahmen eine beliebige Anzahl beliebiger Steuerelemente (Schaltflächen, Textfelder, Labels) ein.ALLE DIESE ELEMENTE müssen für dieses Beispiel den Index 0 erhalten.Code:Option Explicit Private Sub Form_Load() Const ABSTAND = 90 ' 90 Twips = 6 Pixel Const ANZ_RAHMEN = 4 ' Ich möchte hinterher 4 Rahmen sehen  Dim CTL As Control Dim Index As Integer  For Index = 1 To ANZ_RAHMEN - 1 Load fraMeinRahmen(Index) fraMeinRahmen(Index).Visible = True  For Each CTL In Me.Controls If CTL.Container Is fraMeinRahmen(0) Then Load Me(CTL.Name)(Index) With Me(CTL.Name)(Index) Set .Container = fraMeinRahmen(Index) .Visible = True End With End If Next CTL Next  fraMeinRahmen(0).Move ABSTAND, ABSTAND fraMeinRahmen(1).Move fraMeinRahmen(0).Left + fraMeinRahmen(0).Width + ABSTAND, ABSTAND fraMeinRahmen(2).Move fraMeinRahmen(0).Left, fraMeinRahmen(0).Top + fraMeinRahmen(0).Height + ABSTAND fraMeinRahmen(3).Move fraMeinRahmen(1).Left, fraMeinRahmen(2).TopEnd SubAusprobieren!Viel Erfolg!Thomas Prötzschcu
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: