今天给大家介绍一些vb编程的例子,用vb编程的例子来讲解相应的知识点。希望对你有帮助,也别忘了收藏这个网站。
Vb编程!!添加下列控件,并将它们拖到窗体上。
私有子命令1_Click()
Dim ReadStr作为字符串
文本1。文本= " "
C
ommonDialog1Filter = "文本文件(*。Txt)|* .txt "CommonDialog1ShowOpen
CommonDialog1Flags = H8
If CommonDialog1 .文件名= " "然后退出Sub。
文本1。Text =CommonDialog1 .文件名
端接
如果需要在文本框中显示txt文件,可以使用下面的代码:
私有子命令1_Click()
Dim ReadStr作为字符串
文本1。文本= " "
CommonDialog1Filter = "文本文件(*。Txt)|* .txt "
CommonDialog1ShowOpen
CommonDialog1Flags = H8
If CommonDialog1 .文件名= " "然后退出Sub。
打开CommonDialog1。文件名输入为#1
Do While Not EOF(1)
输入#1读取字符串。
文本1。文本=文本1。文本+阅读字符串+vbCrLf
多重活动
戒指
关闭#1
CommonDialog1文件名= " "
端接
VB编程。private subclearscreenbutton _ click(sender as object,e as eventargs)处理清除屏幕按钮。点击。
所有控制我的人。控制
如果控制住了。GetType =美元箱。然后打出来。
控制。文本= " "
如果...一切都会结束。
然后
端接
私有Sub RMB 2 _ Click(发送方是object,e是eventargs)处理RMB 2。点击
如果人民币盒子。文本" "和汇率框。然后发送短信""
Dim人民币是十进制= CDec(人民币盒子。正文)
Dim十进制汇率= CDec(汇率框。正文)
美元盒子。Text =(人民币*汇率)。ToString("# .## ")
如果...一切都会结束。
端接
私有子USD 2 RMB _ click (sender为object,e为eventargs)处理USD 2 RMB。点击。
如果一元盒。文本" "和汇率框。然后发送短信""
Dim USD As Decimal = CDec (USD框。正文)
Dim十进制汇率= CDec(汇率框。正文)
人民币盒子。Text =(美元*汇率)。ToString("# .## ")
如果...一切都会结束。
端接
Private Sub end button _ Click(发送方为对象,如eventargs)处理结束按钮。点击
结束
端接
private Sub main form _ load(sender as object,如eventargs) handle *** ybase.load
VBP .Text = "VISUAL BASIC编程"
老师。Text = "我是老师。"
人民币兑换。显示()
端接
private sub conversion button _ click(sender as object,e as eventargs)处理转换按钮。点击。
如果VBP。然后发送短信""
VBP .Text = StrConv(VBP .文本,VbStrConv。小写)
老师。Text = StrConv(老师。文本,VbStrConv。大写)
如果...一切都会结束。
端接
private statistics button _ click(sender作为对象,e作为eventargs)处理统计按钮。点击。
字符统计框。Text = CStr(VBP .文本长度)
端接
Private subbutton _ click(发送方作为对象,例如eventargs)处理按钮。
前六个字符。文本= VBP。文字。子字符串(0,6)
端接
浅谈VB编程程序界面如上图所示:一个标签(名为Label1)、三个复选框(名为Check1、Check2、Check3,标题属性为红绿蓝)和一个Command1,标题为(名为Command1,标题属性为ending)。完成程序功能的代码如下:
将红色调暗为整数。
将绿色调暗为整数。
将蓝色调成整数。
私有子复选框1_Click()
如果检查1。那么值= 1
红色= 255
其他的
红色= 0
如果...一切都会结束。
标签1。BackColor = RGB(红色、绿色、蓝色)
端接
私有子复选框2_Click()
如果检查2。那么值= 1
绿色= 255
其他的
绿色= 0
如果...一切都会结束。
标签1。BackColor = RGB(红色、绿色、蓝色)
端接
私有子复选框3_Click()
如果检查3。那么值= 1
蓝色= 255
其他的
蓝色= 0
如果...一切都会结束。
标签1。BackColor = RGB(红色、绿色、蓝色)
端接
私有子命令1_Click()
结束
端接
私有子窗体_Load()
红色= 0
绿色= 0
蓝色= 0
标签1。BackColor = RGB(红色、绿色、蓝色)
端接
vb编程实例介绍就这么多了。感谢您花时间阅读本网站的内容。别忘了在这个网站上寻找更多关于vb编程实例和vb编程实例的信息。