Hallo,
ich möchte ein kleines programm mit vb 2010 schreiben,
welches den benutzer erlaubt eine zahl in ein textbox-feld
einzugeben diese zahl kann bis zu 4 ziffern besitzen
Also sollte die Textbox eine Eingabe von max. 4 Zeichen zulassen:
TextBox1.MaxLength = 4
wenn es weniger ziffern sind werden vor die zahl
die entsprechende anzahl nullen gesetzt
Da man in die Textbox nicht nur Ziffern, sondern auch
andere Zeichen eingeben kann, wäre es sinnvoll, erst
mal zu prüfen, ob in die Textbox wirklich nur Ziffern
eingegeben worden sind.
Dim Value as Integer
If Integer.TryParse(TextBox1.Text, Value) Then
' TextBox1 enthält eine gültige Zahl (integer)
end if
If TextBox1.Text.Length = (4) Then
TextBox2.Text = TextBox1.Text
ElseIf TextBox1.Text.Length = (3) Then
TextBox2.Text = 0 & TextBox1.Text
ElseIf TextBox1.Text.Length = (2) Then
TextBox2.Text = 00 & TextBox1.Text
ElseIf TextBox1.Text.Length = (1) Then
TextBox2.Text = 000 & TextBox1.Text
End If
z.B. 71 wird zu 0071
Das kannst Du auch deutlich einfacher haben.
Mit
TextBox1.Text = TextBox1.Text.PadLeft(4, "0"c)
wird die in TextBox1 stehende Zahl mit führenden
Nullen auf 4 stellen aufgefüllt.
nun zu meinem problem:
jetzt möchte ich diese zahl wieder zerlegen
jede ziffer soll in ein label geschrieben werden
Beispiel:
Textbox1.Text = 4271
ziffer 4 kommt in label1
ziffer 2 in label2
usw.
Kopiere nachfolgendes Beispiel in ein leeres Formmodul (Form1.vb)
' / Beginn Code Form1.vb
Public Class Form1
Private WithEvents Button1 As Button
Private WithEvents TextBox1 As TextBox
Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
CreateControls()
Button1.Enabled = False
End Sub
Private Sub CreateControls()
' Textbox, Button u. 4 Labels erzeugen
TextBox1 = New TextBox
With TextBox1
.Name = "TextBox1"
.Font = New Font("Arial", 14)
.MaxLength = 4
.SetBounds _
(10, 10, _
Me.ClientSize.Width - 65, _
.Height)
.Anchor = _
AnchorStyles.Left Or _
AnchorStyles.Top Or _
AnchorStyles.Right
End With
Me.Controls.Add(TextBox1)
Button1 = New Button
With Button1
.Name = "Button1"
.Font = New Font("Arial", 10)
.SetBounds _
(Me.ClientSize.Width - 50, _
10, 40, _
TextBox1.Height)
.Text = "ok"
.Anchor = _
AnchorStyles.Top Or _
AnchorStyles.Right
End With
Me.Controls.Add(Button1)
Dim i As Integer
Dim Top As Integer = TextBox1.Bottom + 20
Dim Lbl As Label = Nothing
For i = 1 To 4
Lbl = New Label
With Lbl
.Name = "Label" & i.ToString
.Font = TextBox1.Font
.AutoSize = True
.Location = New Point(10, Top)
.Text = .Name
Top = .Bottom + 10
End With
Me.Controls.Add(Lbl)
Next
Me.ClientSize = New Size(350, Lbl.Bottom + 15)
End Sub
Private Sub TextBox1_TextChanged _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles TextBox1.TextChanged
' Button1 nur dann freigeben, wenn Textbox1.Text
' ein gültige Zahl (Integer) darstellt.
Dim Value As Integer
Button1.Enabled = _
Integer.TryParse(TextBox1.Text, Value)
End Sub
Private Sub Button1_Click _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles Button1.Click
' Textbox mit führenden Nullen auf 4 Stellen auffüllen
TextBox1.Text = TextBox1.Text.PadLeft(4, "0"c)
' Ziffer aus der Textbox in den Labels anzeigen
Dim i As Integer
For i = 1 To 4
Me.Controls("Label" & i.ToString).Text = _
TextBox1.Text.Substring(i - 1, 1)
Next
End Sub
End Class
' \\\ E N T E
Nach dem Programmstart siehst Du die Form1 mit
einer Textbox einem Button (ok) und 4 Labels.
Der Button wird erst freigegeben, wenn in die Textbox
eine gültige Zahl (integer) eingegeben worden ist.
Mit einem Mausklick auf den Button (ok) wird die in der
Textbox stehende Zahl mit führenden Nullen auf 4 Stellen
aufgefüllt und dann werden die 4 Ziffern in den 4 Labels
angezeigt.
Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)
