Hallo,
ich benötige das für eine Art Zeitleiste bzw Storyboard, deswegen
auch mit den zeichnen und in Paint kann man ja auch Textfelder
zeichnen.
Du kannst Du in der Paint-Ereignisprozedur einer Form oder eines
Panels alles Mögliche (auch TextBoxen) mit Graphikmethoden
zeichnen. Das Ergebnis sieht dann auch so aus, wie eine Textbox,
doch eine Textbox ist es deshalb noch lange nicht. Wie und wo
definierst Du Eigenschaften, Methoden und Ereignisse für diese
Textboxen?
Du solltest mal konkret beschreiben, was Du wirklich machen
möchtest. Nur so wird es möglich einen konkreten Lösungsweg
vorzuschlagen.
Schau Dir mal das nachfolgende Beispiel, bei dem via Buttonklick
neue Textboxen erstellt bzw. wieder entfernt werden. Ein Zeichnen
mit Graphikmethoden im Paintereignis kommt darin nicht vor.
Kopiere den nachfolgenden Code einfach in ein
leeres Formmodul (Form1.vb).
' / / / Beginn Code Form1.vb
Public Class Form1
Private WithEvents Button1 As Button
Private WithEvents Button2 As Button
Private Panel1 As Panel
Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
Init()
End Sub
Private Sub Init()
Panel1 = New Panel
With Panel1
.Name = "Panel1"
.SetBounds _
(10, 10, _
Me.ClientSize.Width - 20, _
50)
.Anchor = _
AnchorStyles.Left Or _
AnchorStyles.Top Or _
AnchorStyles.Right
.BorderStyle = BorderStyle.Fixed3D
End With
Me.Controls.Add(Panel1)
Button1 = New Button
With Button1
.Name = "Button1"
.Font = New Font("Arial", 8)
.Text = "Add Textbox"
.SetBounds _
(10, Panel1.Bottom + 15, _
120, 36)
.Anchor = _
AnchorStyles.Left Or _
AnchorStyles.Top
End With
Me.Controls.Add(Button1)
Button2 = New Button
With Button2
.Name = "Button2"
.Font = Button1.Font
.Text = "Remove Textbox"
.SetBounds _
(Button1.Right + 2, _
Button1.Top, _
Button1.Width, _
Button1.Height)
.Anchor = Button1.Anchor
End With
Me.Controls.Add(Button2)
Me.ClientSize = _
New Size _
(500, Button1.Bottom + 15)
Me.MinimumSize = _
New Size(200, Me.Height)
Me.MaximumSize = _
New Size _
(Screen.GetWorkingArea(Me).Width, _
Me.Height)
End Sub
Private Sub Button1_Click _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles Button1.Click
Dim L As Integer
Dim Idx As Integer = _
Panel1.Controls.Count + 1
If Idx < 2 Then
L = 5
Else
L = _
Panel1.Controls _
("TextBox" & (Idx - 1).ToString).Right + 3
End If
Dim TB As New TextBox
With TB
.Name = "Textbox" & Idx.ToString
.Font = New Font("Arial", 12)
.Width = 80
.Text = .Name
.Location = _
New Point _
(L, (Panel1.Height - .Height) \ 2)
End With
Panel1.Controls.Add(TB)
AddHandler _
TB.TextChanged, _
AddressOf TextBox_TextChanged
AddHandler _
TB.Enter, _
AddressOf TextBox_Enter
' ... weitere Eventhandler für diese Textbox hinzufügen....
End Sub
Private Sub Button2_Click _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles Button2.Click
If Panel1.Controls.Count > 0 Then
Dim TB As TextBox
Dim Idx As Integer = Panel1.Controls.Count
TB = _
DirectCast _
(Panel1.Controls("Textbox" & Idx.ToString), _
TextBox)
RemoveHandler _
TB.TextChanged, _
AddressOf TextBox_TextChanged
RemoveHandler _
TB.Enter, _
AddressOf TextBox_Enter
' weitere Eventhandler für diese Textbox entfernen
Panel1.Controls.Remove(TB)
End If
End Sub
Private Sub TextBox_TextChanged _
(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim TB As TextBox = DirectCast(sender, TextBox)
Me.Text = TB.Name & ": " & TB.Text
End Sub
Private Sub TextBox_Enter _
(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim TB As TextBox = DirectCast(sender, TextBox)
Me.Text = TB.Name & " entered"
End Sub
End Class
' \ \ \ E N T E
Nach dem Programmstart siehst Du die Form1 mit einem (noch)
leeren Panel (Panel1) sowie zwei Buttons (Add Textbox u.
Remove Textbox).
Mit einem Klick auf den Button "Add Textbox" wird eine neue
Textbox (mit zugehörigen Eventhandlern) im Panel hinzugefügt.
Mit einem Klick auf den Button "Remove Textbox" wird die
jeweils letzte Textbox (mit zugehörigen Eventhandlern) entfernt.
Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)
Wie zeichne ich ein Textfeld wie in Paint?
