| sp;
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
End
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If TextBox1.Text = "" Then
system.WinForms.MessageBox.Show("请正确输入数字", "VB.Net计算器", messagebox.OK BitOr messagebox.IconAsterisk)
Exit Sub
End If
textbox2.Visible = True ''''显示textbox2
textbox2.Text = "" ''''清空textbox2
textbox2.Focus() ''''让textbox2得到焦点
button2.Visible = True ''''显示button2
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim Valx, Valy, Valz As Decimal ''''声明三个decimal的变量
Try
valx = textbox1.Text.ToDecimal ''''取值一
valy = textbox2.Text.ToDecimal ''''取值二
Catch
system.WinForms.MessageBox.Show("请正确输入数字", "VB.Net计算器", messagebox.OK BitOr messagebox.IconAsterisk)
Exit Sub
End Try
valy = valx + valy ''''计算结果
textbox1.Text = valy.ToString ''''显示结果
textbox2.Visible = False ''''隐藏textbox2
button2.Visible = False ''''隐藏button2
End Sub
Private Sub Form1_MouseDown(ByVal eventSender As Object, ByVal e As System.WinForms.MouseEventArgs)
''''mousedown的事件中窗体中的下拉列表是找不到的，自己写一个吧，加上(ByVal eventSender As Object, ByVal e As System.WinForms.MouseEventArgs)即可
Me.Capture() = False ''''释放鼠标捕获，等同于API的ReleaseCapture()
Me.SendMessage(&HA1S, 2, 0) ''''唔，这个就是哪个sendmessage的API了，只是第一个句柄参数不再用了。
End Sub
End Class
这是一个简单得不能再简单的程序了，有兴趣接下去做吧，我以前在VB6做个一个语音计算器，相信不少人用个吧，你也做一个吧！练练手。
VB.Net中文站网址：http://vbnetcn.126.com
上一页 [1] [2] [3] [4] | 
