VS2008--VB编程实例
- 格式:doc
- 大小:628.00 KB
- 文档页数:19
以下为vs2008的相关操作和代码:一、简单的逃跑按钮//注意下列方法,定义一个类为了捕获鼠标移动点的方便1,创建一个基于对话框的mfc应用程序选中对话框→属性→Front可以改变整个对话框字体2,创建CButton的派生类,与按钮相关联添加类(图1)3,给对话框添加2个相同按钮“你能抓住我吗?”让两个按钮轮流显示。
其中一个visible 设为false,使初始状态只显示一个按钮。
每个按钮都关联一个变量:添加控件变量(图2)mfc8_1Dlg.h头文件自动添加 #include"mybutton.h"CmyButton类添加消息WM_MOUSEMOVE4,给CmyButton类添加变量5,在OnInitDialog添加以下语句,交换2个button的地址m_btn1.m_pBtn = &m_btn2;m_btn2.m_pBtn = &m_btn1;6,CmyButton::OnMouseMove中添加交换显示的语句ShowWindow(SW_HIDE);//SW_HIDE:隐藏窗口并激活其他窗口。
m_pBtn->ShowWindow(SW_SHOW);//SW_SHOW:在窗口原来的位置以原来的尺寸激活和显示窗口。
大功告成!当然可以SetWindowPos函数实现更客观二、属性表的编辑新建mfc应用程序mfc8_21.创建属性页右键属性ID: IDD_PROP1Caption:属性页1属性页1放置groupboxRadio button 单选框List box列表框属性页3添加组合框ComboBox要向下拉的长一些,使列表能向下展开Style:Dropdown 能向下展开、输入Simple列表和编辑框同时显示Droplist 只能展开选择,不能输入本程序设为Droplist2. 双击属性页1添加类类CPropertyPage的对象表示一张属性表的各页,或者说是被看作是标签对话框。
visual 2008控件使用范例Visual Basic .NET 2008是一种广泛使用的编程语言,它提供了丰富的控件库,使开发者能够轻松创建功能强大的桌面应用程序。
本文将为您介绍一些常用的控件,并提供使用范例,以帮助您更好地理解和运用这些控件。
1. 文本框控件(TextBox)文本框控件是用于接收和显示文本信息的基本控件。
您可以通过设置属性来控制文本框的外观和行为。
例如,您可以设置文本框的大小、字体、对齐方式等。
下面是一个简单的示例:Dim txtName As New TextBox = "txtName"txtName.Text = "请输入您的姓名"txtName.Size = New Size(200, 20)txtName.Location = New Point(50, 50)Me.Controls.Add(txtName)2. 按钮控件(Button)按钮控件用于触发特定的操作或事件。
您可以通过设置按钮的文本、大小和位置来自定义按钮的外观。
下面是一个示例,点击按钮后会显示一个消息框:Dim btnSubmit As New Button = "btnSubmit"btnSubmit.Text = "提交"btnSubmit.Size = New Size(100, 30)btnSubmit.Location = New Point(50, 100)AddHandler btnSubmit.Click, AddressOf btnSubmit_Click Me.Controls.Add(btnSubmit)Private Sub btnSubmit_Click(sender As Object, e As EventArgs)MessageBox.Show("提交成功!")End Sub3. 标签控件(Label)标签控件用于显示静态文本信息,通常用于标识其他控件或提供说明。
VS2008——VB编程实例(入门教程)1. VB(Visual Basic)的发展微软公司在1991年推出了建立在Window开发平台基础上的开发工具——Visual Basic 1.0。
随着Window操作平台的不断完善,微软公司也相继推出了Visual Basic2.0 、Visual Basic3.0和Visaul Basic4.0,这些版本主要用于在Window3.x环境中的16位计算机上开发应用程序。
1997年微软公司推出了Visual Basic5.0可以在Window9x或者Window NT环境中32位计算机上开发应用程序。
1998年又推出Visual Basic6.0,它的功能更加完善。
2.VB语言的基础1.关键字:关键字是指系统使用的具有特定含义的字符。
常用的关键字有:Dim、Private , Sub , Public , End , If , Else , Form , Me , Single , As , Integer , Unload , Do , While , MessageBox , For , Next等。
2.标识符:标识符是指编写代码时定义的名称。
在VB中所有的常量、变量、模块、函数、类、对象及其属性都有各自的名称,这些名称就是标识符。
例如:工程1:一个工程的标识符。
Form1:一个窗体的标识符。
Class1:一个类模块的标识符。
Module1:一个模块的标识符。
3.基本数据类型变长字符型String 10字节加字符串长度定长字符型String 字符串长度整数型Integer 2字节长整型Long 4字节单精度型(双精度型)Single(Double) 4字节(8字节)字节型Byte 1字节布尔型Boolean 2字节日期型Date 8字节对象型Object 4字节变体型Variant 按需分配4.常用数据类型:4.1字符型(String)Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim strA As StringstrA = "Hello world"Label1.Text = strAEnd SubEnd Class上面代码是在VS2008-VB类里建立了Window窗体应用程序,并在窗体上添加一个标签控件(Label1),用关键字Dim 声名一个字符型变量strA 并赋值“Hello world”,再把它赋给标签(Label1)。
搞技术,搞不定,很闹心!别人的奉献可以使你明朗,心情愉悦!奉献是快乐的!不要吝啬你千辛万苦摸索出来的技术!与三菱PLC的串行通讯要点PLC测的设置页面(在PLC左侧工程树下点击参数设置,然后写到PLC里)485硬件连接:rs232转485端的A接PLC的485BD上的RDA和SDA(如下图的红线),B接485BD上的RDB和SDB(如下图的白线)。
如果以设置了还不正确,要看看电脑端的串口接好没有,连线有没有短线等。
窗体源码:Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadmPort = 1MSComm1.Settings = "9600,E,7,1"MSComm1.Handshaking = None MSComm1.InputLen = 0MSComm1.InBufferCount = 0MSComm1.OutBufferCount = 0MSComm1.PortOpen = TrueEnd Sub按钮及文本显示源码:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMSComm1.InBufferCount = 0MSComm1.OutBufferCount = 0MSComm1.InputLen = 0Dim fanhui As StringDim zhuangtai As Stringzhuangtai = Chr("5") + "05FFBRAX00010140"MSComm1.Output = zhuangtaiDoApplication.DoEvents()Loop Until MSComm1.InBufferCount = 9fanhui = MSComm1.InputText1.Text = "x001状态" + "------" + "数据为:" + fanhui End Sub注意:VB6.0用chr(5)表示,但是要用chr("5")表示,否则出错。
用2008编写Windows服务管理程序Visual Studio2008正式发布后吸引了大量的编程人员,为了由原来的Visual Studio2005转换为最新的Visual Studio2008不少公司也重新配置了计算机硬件设备,从而得以正常平稳的使用最新的开发工具。
Visual Studio2008在一些特性上也做出了许多的改进,访问Windows系统内核也更为方便。
本文将介绍用Visual Studio2008来开发一个Windows服务的管理程序,让读者了解到程序是怎样来获取Windows系统服务的。
希望能够给 学习者带来帮助。
打开Visual Studio 2008在文件(File) 菜单上,单击新建项目(New Project)。
在新建项目(New Project) 对话框的模板(Templates) 窗格中,单击Windows 应用程序(Windows Application)。
单击确定(OK) 如图1。
图1选择Form1窗体,在Form1窗体中添加如下控件:ListView1控件、4个按钮控件分别为:Button1、Button2、Button3、Button4我们需要对这些控件Name重新命名,相关属性设置如下:ListView1属性Name:WindowsServices属性FullRowSelect:true属性GridLines:true属性ViewDetails控件名称属性值属性值Button1属性Name: cmdRefresh属性Text: 恢复Button2属性Name: cmdStop属性Text: 停止服务Button3属性Name: cmdStart属性Text: 开始服务Button4属性Name: cmdExit属性Text: 退出控件布局界面效果如图2图2选择ListView1控件我们需要为此控件添加列<编辑列>,选中后右上方会出现符号如图3图3我们需要添加成员,成员名列表如下:如图4 Name:lchCaptionsText:服务项目Name:lchNamesText:文件名称Name:lchStateText:状态图4 好了界面工作已经完成,按照图5设置即可图5注意,在输入代码之前,我们需要添加引用。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As IntegerDim sum, score1 As Longsum = 0For i = 1 To 30score1 = Val(InputBox("请输入第" & Str(i) & "个账单"))sum = sum + score1NextTextBox1.Text = sumEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickClose() End SubXT5-2 编写应用程序 读入一个整数 分析它是几位数。
Dim i, x, n As Integern = InputBox("输入数字")n = n \ 10x = 1While n <> 0n = n \ 10x = x + 1End WhileMsgBox("输入数字是" + Str(x) + "位数") 如果还要求输出各位数字之和Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, sum, n1 As IntegerDim num, s1 As Stringnum = Val(InputBox("请输入一个不多于五位的十进制整数"))n1 = Len(num)TextBox1.Text = n1For i = 1 To n1s1 = Mid(num, i, 1)sum = sum + s1NextTextBox2.Text = sumEnd SubXT5-3 编写程序 计算并输出下面数列前n项的和(设n=20,结果取4位小数)。
实验1 创建简单的2008程序
一.目的和要求
1.熟练掌握VB.NET2008的启动方法。
2.熟悉VB.NET2008集成开发环境。
3.熟悉常用菜单,使用菜单和工具栏创建项目,保存项目。
4.学会向窗体中放置控件和使用属性窗口。
5.学会建立一个简单界面的应用程序,在代码编辑窗口中添加代码。
6.掌握启动项目和结束项目的方法。
二.内容和步骤
练习题目1:输入姓名并显示欢迎词。
要求:编写一个控制台应用程序,程序执行时将出现一行提示,要求您输入您的姓名,输入姓名后将显示出如下文字:欢迎你,***同志!。
程序运行结果如下图所示:
练习题目2:编写一个Visual Basic 2008 Windows应用程序,程序运行界面如下图所示。
程序运行时单击【退出】按钮结束应用程序的执行。
练习题目3:利用Visual Basic 2008编程实现两数相加。
要求:自己设计界面,用Windows 窗体应用程序,实现。
Visual Studio2008教程Visual Studio2008发布后,有大量的爱好者抛弃原来的Visual Studio2005平台转向现在流行的Visual Studio2008平台。
但是Visual Studio2008有一个缺点就是需要比较高的硬件配置才能正常平稳的运行,所以到现在为止还有一部分人处于观望中,并没有转向这个平台。
然而Visual Studio2008的一些新的功能以及优化性比先前版本有了很大的进步。
本篇文章将主要介绍怎样利用去编写一个计算器程序,程序虽然不复杂,但是其中所运用的知识和代码非常具有代表性,在平时开发中也是经常需要用到的。
希望对2008的初学者带来帮助。
打开 Visual Studio 2008。
在文件 (File) 菜单上,单击新建项目 (New Project)。
在新建项目 (New Project) 对话框的模板 (Templates) 窗格中,单击 Windows 应用程序(Windows Application)。
单击确定 (OK)。
在Form1窗体中添加一个TextBox1控件和19个Button按钮,详细属性设置请查看以下的表格。
详细的界面请查看图1图1好了基本的界面已经设计好了,接下来我们来添加相应的代码了,首先进行必要的声明事件。
Public Class Form1Dim strdx() As String = {"0", "0", "0"} '声明一个字符串,用以存取数值Dim calcount1 As String = "0"Dim calcount2 As String = "0"Dim strvalue As Boolean = False然后需要进入Button1.Click事件中.代码如下Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf strdx(0) = "0"ThenTextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "0"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "0"TextBox1.Text = strdx(0)End IfEnd Sub进入Button2.Click事件中.代码如下Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickstrvalue = Truestrdx(0) = strdx(0) & "."TextBox1.Text = strdx(0)End Sub进入Button3.Click事件中.代码如下Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Clickstrdx(0) = "0"strdx(1) = "0"strdx(2) = "0"calcount1 = "0"calcount2 = "0"strvalue = FalseTextBox1.Text = "0."End Sub进入Button5.Click事件中.代码如下Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickIf strdx(2) = "0"ThenSelect Case calcount1Case"+"TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case"-"TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case"*"TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0))) Case"/"If strdx(0) = "0"ThenTextBox1.Text = "error!"ElseTextBox1.Text = Str(Val(strdx(1)) /Val(strdx(0)))End IfEnd SelectElseIf calcount2 = "*"Thenstrdx(0) = Str(Val(strdx(0)) * Val(strdx(2)))Select Case calcount1Case"+"TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case"-"TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case"*"TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))Case"/"If strdx(0) = "0"ThenTextBox1.Text = "error!"ElseTextBox1.Text = Str(Val(strdx(1)) /Val(strdx(0)))End IfEnd SelectElse : calcount2 = "/"strdx(0) = Str(Val(strdx(2)) / Val(strdx(0)))Select Case calcount1Case"+"TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case"-"TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case"*"TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0))) Case"/"If strdx(0) = "0"ThenTextBox1.Text = "error!"ElseTextBox1.Text = Str(Val(strdx(1)) /Val(strdx(0)))End IfEnd SelectEnd IfEnd Sub进入Button6.Click事件中.代码如下Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickIf strdx(0) = "0"Thenstrdx(0) = "1"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "1"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "1"TextBox1.Text = strdx(0)End IfEnd Sub进入Button7.Click事件中.代码如下Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickIf strdx(0) = "0"Thenstrdx(0) = "2"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "2"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "2"TextBox1.Text = strdx(0)End IfEnd Sub进入Button8.Click事件中.代码如下Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickIf strdx(0) = "0"Thenstrdx(0) = "3"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "3"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "3"TextBox1.Text = strdx(0)End IfEnd Sub进入Button9.Click事件中.代码如下Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickIf calcount1 = "0"Thencalcount1 = "+"strdx(1) = strdx(0)strdx(0) = "0"Else : Select Case calcount1Case"+"strdx(1) = Str(Val(strdx(0)) + Val(strdx(1))) strdx(0) = "0"calcount1 = "+"Case"-"strdx(1) = Str(Val(strdx(1)) - Val(strdx(0))) strdx(0) = "0"calcount1 = "+"Case"*"strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = "0"calcount1 = "+"Case"/"strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = "0"calcount1 = "+"End SelectEnd IfEnd Sub进入Button10.Click事件中.代码如下Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickIf calcount1 = "0"Thencalcount1 = "-"strdx(1) = strdx(0)strdx(0) = "0"Else : Select Case calcount1Case"+"strdx(1) = Str(Val(strdx(0)) + Val(strdx(1))) strdx(0) = "0"calcount1 = "-"Case"-"strdx(1) = Str(Val(strdx(1)) - Val(strdx(0))) strdx(0) = "0"calcount1 = "-"Case"*"strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = "0"calcount1 = "-"Case"/"strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = "0"calcount1 = "-"End SelectEnd IfEnd Sub进入Button11.Click事件中.代码如下Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickIf strdx(0) = "0"Thenstrdx(0) = "4"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "4"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "4"TextBox1.Text = strdx(0)End IfEnd Sub进入Button12.Click事件中.代码如下Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.ClickIf strdx(0) = "0"Thenstrdx(0) = "5"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "5"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "5"TextBox1.Text = strdx(0)End IfEnd Sub进入Button13.Click事件中.代码如下Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.ClickIf strdx(0) = "0"Thenstrdx(0) = "6"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "6"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "6"TextBox1.Text = strdx(0)End IfEnd Sub进入Button14.Click事件中.代码如下Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickIf calcount1 = "0"Thencalcount1 = "*"strdx(1) = strdx(0)strdx(0) = "0"Else : Select Case calcount1Case"+"calcount2 = "*"strdx(2) = strdx(0)strdx(0) = "0"Case"-"calcount2 = "*"strdx(2) = strdx(0)strdx(0) = "0"Case"*"strdx(1) = Str(Val(strdx(0)) * Val(strdx(1)))strdx(0) = "0"calcount1 = "*"Case"/"strdx(1) = Str(Val(strdx(1)) / Val(strdx(0)))strdx(0) = "0"calcount1 = "*"End SelectEnd IfEnd Sub进入Button15.Click事件中.代码如下Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickIf calcount1 = "0"Thencalcount1 = "/"strdx(1) = strdx(0)strdx(0) = "0"Else : Select Case calcount1Case"+"calcount2 = "/"strdx(2) = strdx(0)strdx(0) = "0"Case"-"calcount2 = "/"strdx(2) = strdx(0)strdx(0) = "0"Case"*"strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = "0"calcount1 = "/"Case"/"strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = "0"calcount1 = "/"End SelectEnd IfEnd Sub进入Button16.Click事件中.代码如下Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickIf strdx(0) = "0"Thenstrdx(0) = "7"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "7"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "7"TextBox1.Text = strdx(0)End IfEnd Sub进入Button17.Click事件中.代码如下Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.ClickIf strdx(0) = "0"Thenstrdx(0) = "8"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "8"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "8"TextBox1.Text = strdx(0)End IfEnd Sub进入Button18.Click事件中.代码如下Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.ClickIf strdx(0) = "0"Thenstrdx(0) = "9"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "9"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "9"TextBox1.Text = strdx(0)End IfEnd Sub进入Button19.Click事件中.代码如下Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.ClickTextBox1.Text = "0."End Sub进入Button20.Click事件中.代码如下Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.ClickMe.Close()End Sub最后的代码如图2:图2程序代码输入完成,接下来我们来运行一下程序,进行测试。
VS2008——VB编程实例(入门教程)1. VB(Visual Basic)的发展微软公司在1991年推出了建立在Window开发平台基础上的开发工具——Visual Basic 1.0。
随着Window操作平台的不断完善,微软公司也相继推出了Visual Basic2.0 、Visual Basic3.0和Visaul Basic4.0,这些版本主要用于在Window3.x环境中的16位计算机上开发应用程序。
1997年微软公司推出了Visual Basic5.0可以在Window9x或者Window NT环境中32位计算机上开发应用程序。
1998年又推出Visual Basic6.0,它的功能更加完善。
2.VB语言的基础1.关键字:关键字是指系统使用的具有特定含义的字符。
常用的关键字有:Dim、Private , Sub , Public , End , If , Else , Form , Me , Single , As , Integer , Unload , Do , While , MessageBox , For , Next等。
2.标识符:标识符是指编写代码时定义的名称。
在VB中所有的常量、变量、模块、函数、类、对象及其属性都有各自的名称,这些名称就是标识符。
例如:工程1:一个工程的标识符。
Form1:一个窗体的标识符。
Class1:一个类模块的标识符。
Module1:一个模块的标识符。
4.常用数据类型:4.1字符型(String)Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim strA As StringstrA = "Hello world"Label1.Text = strAEnd SubEnd Class上面代码是在VS2008-VB类里建立了Window窗体应用程序,并在窗体上添加一个标签控件(Label1),用关键字Dim 声名一个字符型变量 strA 并赋值“Hello world”,再把它赋给标签(Label1)。
图1、执行结果4.2数值型数值型可分为5种,Integer , Long , Single , Double , Byte 。
Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim It As Integer, lt As Long, st As Single, dt As Double, bt As ByteIt = 123lt = 12345678st = 3.14dt = 3.1415926bt = 9TextBox1.Text = ItTextBox2.Text = ltTextBox3.Text = stTextBox4.Text = dtTextBox5.Text = btEnd SubEnd Class上面代码是对5种数值型数据声名和赋值并在窗体里显示出来(在窗体里添加5个文本框[TextBox]控件)。
4.3布尔型:又称逻辑类型。
变量值只是True/False , Yes/No , On/Off等。
Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadLabel1.Text = "欢迎参加到VB学习队伍中来!"Label2.Visible = FalseButton1.Text = "Yes"Button2.Text = "No"End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Enabled = TrueLabel2.Visible = TrueLabel2.Text = "我很喜欢VB语言编程"End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickLabel1.Enabled = FalseLabel2.Visible = TrueLabel2.Text = "我对它不感兴趣"End SubEnd Class上面代码是在VS2008-VB类中建立Window窗体应用程序项目,并在窗体中添加2个标签控件(Label1 ,Label2)和2个按钮控件(Button1 , Button2)并添加了2个按钮的单击事件。
在窗体触发连接事件中把Label2的可视属性设置为假(False[布尔型])………图3、执行结果图4、按Yes键结果图5、按No键结果4.4日期型Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim mydate As Datemydate = #1/1/2015#Me.Visible = FalseMsgBox(mydate)Me.Close()End SubEnd Class上面代码是声明日期型变量,并赋值和用信息框显示它。
图6、显示日期5.记录类型:用户自定义类型也称记录类型。
Public Structure My_dataDim name As StringDim xh As StringDim xb As StringDim score As StringEnd StructurePublic Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim mt As My_data = "张大山"mt.xb = "男"mt.xh = "201403001"mt.score = "优"Me.Visible = FalseMsgBox("姓名:" & & Chr(10) & "性别:" & mt.xb & Chr(10) & _"学号:" & mt.xh & Chr(10) & "成绩:" & mt.score)Me.Close()End SubEnd Class上面代码显示了记录类型的定义和显示过程。
图7、显示记录类型上面用的是结构体记录类型,下面的代码用类(方法)实现记录类型。
Public Class Form1Class My_classDim lx As IntegerDim ly As IntegerDim rx As IntegerDim ry As IntegerSub setlx(ByVal val As Integer)lx = valEnd SubSub setly(ByVal val As Integer)ly = valEnd SubSub setrx(ByVal val As Integer)rx = valEnd SubSub setry(ByVal val As Integer)ry = valEnd SubFunction getdata()getdata = (rx - lx) * (ry - ly)End FunctionEnd ClassPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim mt As My_classmt = New My_classmt.setlx(10)mt.setly(10)mt.setrx(150)mt.setry(200)Label1.Text = mt.getdataEnd SubEnd Class在窗体中添加标签控件(Label1)用来显示类(方法)计算结果。
图8、显示类(方法)记录类型6.枚举类型Public Class Form1Enum my_colorm_rod = 190m_green = 90m_blue = 165End EnumPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadLabel1.Text = "My_color"Label2.Text = "m_rod " & my_color.m_rodLabel3.Text = "m_green " & my_color.m_greenLabel4.Text = "m_blue " & my_color.m_blueEnd SubEnd Class图9、显示枚举类型数据7.变量和变量命名变量相当于一个容器,它对应着计算机内存的存储单元,因此它可以保存数据。
7.1.变量命名规则:(1)变量只能由英文、汉字、数字及下划线组成。
(2)变量名必须由英文字母或汉字开头,最后一个符号可以是数据类型声明符,如Dim a%。
(3)变量名长度可达255个字符,有效字符为40个。
(4)VB中的关键字不能作为变量名。
(5)不能在变量名中出现标点符号、空格或者嵌入!、@、#、$、%、&等字符。
(6)在变量有效的范围内不能用同名命名变量。