江苏龙网

  1. 主页 > 生活百科 > >

vb程序设计实例讲解 vb程序设计实例

今天给大家介绍一些vb编程的例子，用vb编程的例子来讲解相应的知识点 。希望对你有帮助，也别忘了收藏这个网站 。
Vb编程！！添加下列控件，并将它们拖到窗体上 。
私有子命令1_Click()
Dim ReadStr作为字符串
文本1 。文本= " "
CommonDialog1Filter = "文本文件(* 。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)处理结束按钮 。点击
结束
端接
私有子主form _ load(作为对象的发送方，如eventargs) handlesmybase.load
VBP .Text = "VISUAL BASIC编程"
老师 。Text = "我是老师 。"
【vb程序设计实例讲解 vb程序设计实例】人民币兑换 。显示()
端接
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编程实例的信息 。


    推荐阅读


    上一篇：等差数列求和经典例题 等比数列求和公式推导

    下一篇：魅族16th参数 魅族16th