VB.NET-Quellcode
- Public Class Form1
- Dim i, j, h As Integer
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If Not IsNumeric(TextBox1.Text) Then
- Label2.Text = "Geben sie bitte in beide Felder eine ZAHL ein!"
- focu()
- ElseIf Not IsNumeric(TextBox2.text)
- Label2.Text = "Geben sie bitte in beide Felder eine ZAHL ein!"
- focu()
- Else
- i = TextBox1.Text
- j = TextBox2.Text
- h = i Mod j
- Label2.Text = "Das Rest vom Ergebnis ist " & h
- focu()
- End If
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
- Label2.Text = ""
- focu()
- AcceptButton = Button1
- End Sub
- Private Sub focu()
- TextBox1.Focus()
- End Sub
- End Class
Hallo Liebe User, ich habe eine Frage. Ich bin ein fortgeschrittener Anfänger und möchte ein Programm mit Vb.net programmieren. Die Formansicht ist im Anhang als png-Datei gespeichert. Wenn die Form1 hochfährt soll der Focus auf Textbox1 sein. Das tut er aber nicht. Ich habe es einzeln in die Private Sub's geschrieben und ich habe eine eigene Sub für den Focus gemacht. Aber beides funktioniert nicht. Wieso ist das so. Vielen Dank im Voraus