1、把文本框的属性TextAlign设置为Right,数字就可以在文本框的右边显示了;
创新互联建站是专业的祁阳网站建设公司,祁阳接单;提供成都网站设计、网站制作、外贸营销网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行祁阳网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
2、FormBordetStyle的值设置为FixedSingle窗口的大小就不可调整了。
3、给文本框添加先面的方法,就可以禁止文本框输入字符。
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim tpu
If Not IsNumericRegex(TextBox1.Text) Then
tpu = MsgBox("此框中只允许输入数字!", , "错误")
If Len(TextBox1.Text) 0 Then
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
Else
TextBox1.Text = 0
End If
TextBox1.Focus()
TextBox1.SelectAll()
End If
End Sub
判断吧,如果点击+按钮,则一个全局变量为1,-按钮,则全局变量为2.以此类推,然后if或case判断哪个数,如果为1,就两个数相加。
这个啊,呵呵,应该不难吧
先找到你要打开的应用程序的文件
然后用一个调用代码:
System.Diagnostics.Process.Start("C:\WINDOWS\system32\notepad.exe")
这是要开记事本的
System.Diagnostics.Process.Start("C:\WINDOWS\system32\calc.exe")
这是打开计算器的
应该也可以把这两个应用程序复制到你的程序的默认目录下,就是BIN下吧!
呵呵,试试!!要给我加分哦!!!
Public C护激篙刻蕻灸戈熏恭抹lass Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Char
c = Trim(TextBox3.Text)
Select Case c
Case "+"
TextBox4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Case "-"
TextBox4.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
Case "*"
TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
Case "\"
If Val(TextBox2.Text) = 0 Then
MsgBox("分母为0")
Else
TextBox4.Text = Val(TextBox1.Text) \ Val(TextBox2.Text)
End If
Case "/"
If Val(TextBox2.Text) = 0 Then
MsgBox("分母为0")
Else
TextBox4.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End If
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class