|
Public Class Form1
Inherits System.Windows.Forms.Form
Friend Lab_Array(122) As Label
Dim i As Integer = 0
Const Con_labTextText As String = "Labeltext: "
Const Con_labIndexText As String = "Labelindex: " Vom Windows Form Designer generierter Code
Private Sub Form1_Resize(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Resize
Me.labText.Location = New Point(Me.pnlHNrn.Width, 0)
Me.labIndex.Location = New Point(Me.pnlHNrn.Width, 30)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.LabArrayHNr()
Me.labText.Text = Con_labTextText
Me.labIndex.Text = Con_labIndexText
End Sub
#Region " Label-Steuerelementefeld erzeugen 123 x "
Private Sub LabArrayHNr()
Dim x As Integer = 10
Dim y As Integer = 10
For i = 0 To 122
Me.Lab_Array(i) = New Label
AddHandler Lab_Array(i).Click, AddressOf Lab_Array_Click
AddHandler Lab_Array(i).MouseMove, _
AddressOf Lab_Array_MouseMove
Me.Controls.Add(Me.Lab_Array(i))
Me.pnlHNrn.Controls.AddRange( _
New Control() {Me.Lab_Array(i)})
Me.pnlHNrn.Controls.Item(i).Name = i
With Me.Lab_Array(i)
.BackColor = Color.Black
.Font = New Font("Arial", 11.25!, _
FontStyle.Bold, GraphicsUnit.Point, _
CType(0, Byte))
.ForeColor = Color.FromArgb(CType(0, Byte), _
CType(192, Byte), CType(0, Byte))
.TextAlign = ContentAlignment.MiddleCenter
.Text = i + 1
.Location = New Point(x, y)
.Size = New Size(35, 20)
End With
x = x + 35
If x > 200 Then x = 10 : y = y + 20
Next
End Sub
#End Region
Private Sub Lab_Array_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim Mouse_Click_Label As Label = sender
Dim Index As Integer = CType(Mouse_Click_Label.Name, Integer)
Me.labText.Text = Con_labTextText & Mouse_Click_Label.Text
Me.labIndex.Text = Con_labIndexText & Index
Select Case Index
Case 0
MessageBox.Show("1")
Case 1
MessageBox.Show("2")
Case 2
MessageBox.Show("3")
Case 3
MessageBox.Show("4")
Case 4
MessageBox.Show("5")
Case 5
MessageBox.Show("6")
End Select
End Sub
Private Sub Lab_Array_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs)
Dim Mouse_Move_Label As Label = sender
For i = 0 To 122
Me.Lab_Array(i).ForeColor = Color.FromArgb( _
CType(0, Byte), CType(192, Byte), CType(0, Byte))
Next
Mouse_Move_Label.ForeColor = Color.FromArgb( _
CType(192, Byte), CType(0, Byte), CType(0, Byte))
End Sub
Private Sub pnlHNrn_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles pnlHNrn.MouseMove
For i = 0 To 122
Me.Lab_Array(i).ForeColor = Color.FromArgb( _
CType(0, Byte), CType(192, Byte), CType(0, Byte))
Next
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MenuItem4.Click
Me.Close()
End Sub
End Class
|
|