|
VB基础入门教程 本文关键词：入门教程，基础，VB VB基础入门教程 本文简介：VB最简单入门教程目录 1.1 1 我们需要什么3 1.2 2 第二章：事件、属性及数据类型3 1.3 3 第三章：VB语言6 1.4 4-1第四章 按钮 从本章开始我们将正式进入VB的编程世界，但这还仅仅是个开端，要编出功能强大的软件，还要学很多东西，那就要看以后的VB高级教程了，我也得努力学啊！ 按钮是我们在Windows操作见到最多的控件，它们有着各种各样的功能：“确认”、“取消”、“下一步”等等，这些都是按钮的表现，另外还有很多图形话的按钮，其实它们并没什么不同，所有的按钮都是通过单击 下面会复杂一些，我们先跳过等号，而来处理四则运算： 先在General里声明新变量： Dim Runsign As Integer 储存运算符号 Dim SignFlag As Boolean 判断是否已有运算符号 然后在Form_Load中进行初赋值： Runsign = 0 SignFlag = False 在接下的Command1_Click中继续输入代码： Case 12 To 15 FirstNum = True’使下一次可以输入新数据 PointFlag = False 还原标记值 If SignFlag Then’前面已有运算符未运算 Call Run Else SignFlag = True StrNum2 = StrNum1’把字符串1复制给字符串2 StrNum1 = ““’字符串1清空 End If Runsign = Index - 11 ‘储存键入的运算符 里面运算的部分我用了一个过程，是因为在按下等号时还会调用到运算过程，这样可以减少代码的输入，也使程序便于浏览。建立过程 我们为什么要设计计算机程序呢，当然是为了计算机能为我们完成工作，但是要完成不同的任务，我们就必须对计算机下达命令，然后计算机在把信息返馈回来――任务是否完成。以上就是所谓的人机对话或交互功能，尤其是在Windows操作里我们需要进行更多的输入工作，我们需要填写各种各样的表格，设置程序的重要参数，把数据输入给计算机，再又它完成既定的工作就是今天我们本章要重点讨论的问题――在VB中如何建立完整的输入机制。 在VB中提供了一个函数InputBox能帮助我们建立一个最简单的输入窗体，语法如下： InputBox 该函数返回一个字符串表达式，其参数含义为： prompt――字符串表达式，最大长度为1024字符，窗体上的提示部分。 Title――字符串表达式，显示标题栏里的文本。 Default――字符串表达式，窗体中文本框的缺省值。 xpos，ypos――数值表达式，以Twips为单位指定窗体出现在屏幕上的位置。 helpfile――字符串表达式，是帮助文件的完整路径。 Context――数值表达式，指定适合的帮助主题。 可能你看了上面的说明并不明白，那么下面我们就用Input语句完成一个最简单的程序。 小知识：屏幕坐标 在计算机的屏幕上也有一个类似于我们在中学里常用到的直角坐标系，之不过它的原点不在左下，而是在屏幕的右上角，屏幕的最右上方坐标为 Index 0至4 Index 3 Text 0 Index 4 Text 0 Check1 Caption “指定输入框位置” Button1 Index 0,1 Index 0 Caption “显示输入框” 1 Caption “退出程序” 本例中出现了一个Frame1控件，它是一种框架，可以用来把窗体分成好几个部分，首先应该在窗体上画出Frame1控件，然后再选择相应的控件，在Frame1上描出轮廓，使其是出现在Frame1之上，本例中除去两个按钮，其余都在Frame1上面。本例中用到了几组控件数组，其创建方法是，在选定的点右键，选择Copy，再在窗体其他部位单击右键，选择Paste即可，注意，若要使粘贴的对象在Frame1上，请在Frame1上单击右键选择Paste。 我们通过这个窗体，对输入框进行完整的控制，原理是这样的：当我们把窗体中要填写的对输入框的参数完成后按下OK按钮，就会出现我们设计的那个输入框，我们从输入框退出时则返回我们投票的结果，代码如下. 窗体初次被装入时，Label1(3)、Label(4)和Text1(3)、Text1(4)的Enabled属性都是False，我们需要通过改变Check1的Value（1，被选中，0，未选中）是他们有效或无效。 声明全局变量（General）： Dim PosChk As Boolean 检查X、Y坐标是否有效 Check1_Click 事件： Private Sub Check1_Click() If Check1.Value = 1 Then Label1(3).Enabled = True Label1(4).Enabled = True Text1(3).Enabled = True Text1(4).Enabled = True PosChk = True Else Label1(3).Enabled = False Label1(4).Enabled = False Text1(3).Enabled = False Text1(4).Enabled = False PosChk = False End If End Sub 接着在按钮中填写代码： Private Sub Command1_Click(Index As Integer) Dim Prompt,Title,Default As String Dim xPos,yPos As Integer Select Case Index Case 0 Prompt = Text1(0).Text Title = Text1(1).Text Default = Text1(2).Text If
|
