16,554
社区成员
发帖
与我相关
我的任务
分享
'1个Button,3个TextBox'
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm As New Form2
Select Case frm.ShowDialog()
Case 1
Me.TextBox1.Focus()
Case 2
Me.TextBox2.Focus()
Case 3
Me.TextBox3.Focus()
End Select
End Sub
End Class
'3个Button'
Public Class Form2
Private result As Integer
'改写返回值为:指定需要获得焦点的控件id'
Public Shadows Function ShowDialog() As Integer
Me.result = 0
MyBase.ShowDialog()
Return Me.result
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.result = 1
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.result = 2
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.result = 3
Me.Close()
End Sub
End Class