Public Class Start
Public Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim frmMain As New Farben
frmMain.Farben()
End Sub
Dies ist die Form Load-Klasse. gehört zwar noch bissle mehr zu aber das hat nichts mit dem prob zu tun. Hier wird folgende Klasse aufgerufen:
Public Class Farben
Sub Farben()
Dim Standart As New StandartFarben.Standartfarben
Dim Spezial As New SpezialFarben.SpezialFarben
Dim Benutzer As New Benutzerfarben.Benutzerfarben
Standart.ColorBoxArray()
Spezial.ColorBoxArray()
Benutzer.Benutzerfarben()
End Sub
End Class
Benutzer enthält für den dritten Tab im TabControl statische Controls die auch wie gewünscht angezeigt werden und so funktionieren wie sie sollen. Ein Auszug aus einer der beiden anderen Klassen :
Namespace StandartFarben
Public Class Standartfarben
Friend ColorBox_Array(29) As System.Windows.Forms.PictureBox
Shared Standartfarben() As Color = {Color.Black, Color.DarkGray, Color.Gray, Color.LightGray, Color.DarkBlue, Color.Blue, Color.LightBlue, Color.DarkRed, Color.Red, Color.OrangeRed, _
Color.DarkGreen, Color.Green, Color.LightGreen, Color.DarkCyan, Color.Cyan, Color.DarkMagenta, Color.Magenta, Color.Yellow, Color.LightYellow, Color.Orange, _
Color.Brown, Color.BurlyWood, Color.Violet, Color.DarkViolet, Color.Purple, Color.DeepPink, Color.LightPink, Color.Silver, Color.White, Color.Beige}
Public Sub ColorBoxArray()
For i = 0 To Standartfarben.Length - 1
Dim Start As New Start
ColorBox_Array(i) = New System.Windows.Forms.PictureBox()
AddHandler ColorBox_Array(i).Click, AddressOf Color_Array_Click
Start.TabPage2.Controls.Add(Me.ColorBox_Array(i))
Start.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {ColorBox_Array(i)})
Select Case i
...
End Select
Next
End Sub
Aufbau der anderen Klasse ist ähnlich. Habe zum "testen" zwischen end select und dem next mal eine colorbox_array(i).show() ausprobiert, wurde zwar fehlerfrei kompiliert aber steuerelemnte wurden trotzdem nicht angezeigt.
Gruss RL
