Public Class Form1
Public resfrm As New Form2
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
resfrm.Show()
End Sub
Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button9.Click
resfrm.TextBox1.Text = CType(sender, Button).Text
End Sub
End Class
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024