精华内容
下载资源
问答
  • VB 控件数组画图.rar

    2019-07-10 09:37:47
    VB 控件数组画图,每次输出新图形,前面的清除,可以画直线、矩形、圆。具体的代码操作,请看如下:  Private Sub Form_Load()  Picture1.Scale (0, 0)-(10, 10) '设置坐标系  End Sub  Private Sub Command1_...
  • ★新朋友点跟我学VB关注本微信平台一个VB程序也称为一个工程,由窗体、标准模块、自定义控件及应用所需的环境组成。...创建可以直接运行的exe程序例如:创建一个单击确认按钮,窗体上显示“VB编程是有趣的!”的应...

    ★新朋友点9add4e4b205a9854e8b003fa6abb4cae.png跟我学VB关注本微信平台1055972e471abc800970fbee5717d94a.png

    102930dab601825e3fd93d2d174e6c38.png

    一个VB程序也称为一个工程,由窗体、标准模块、自定义控件及应用所需的环境组成。开发步骤一般如下:

    51b1ef44434a82502ab513d8adfb98a0.png

    建立步骤如下:

    a3200e3aab994b115d88261e04d8e87c.png03951eef5d19c823e3aacba678d354c6.png

    1.创建程序的用户界面

    2.设置界面上各个对象的属性值

    3.编写对象响应事件的代码

     4.保存工程及各窗体、模块文件

    5.测试应用程序,排除程序问题

    6创建可以直接运行的exe程序

    03951eef5d19c823e3aacba678d354c6.png

     例如:创建一个单击确认按钮,窗体上显示“VB编程是有趣的!”的应用程序。

    1.创建程序的用户界面:进入VB界面,在工具箱窗口中找到程序所需的各个控件,然后进行第二步;

    2.设置界面上各个对象的属性

    控件

    属性

    设置值

         Command1

             Caption

              单击确认

    3. 编写对象响应事件的程序代码

      双击各对象,在相应的代码窗口里输入需要的代码。

    事件名称

    过程代码

    命令按钮的单击事件

    Private Sub Command1_Click()  

    form1.print “VB编程是有趣的

    4.保存工程

    (1)从文件菜单中选择保存窗体,将窗体保存成文件名 .frm

    (2)从文件菜单中选择保存工程,将工程保存成文件名 .vbp

    5.测试应用程序,排除错误

      根据设想的效果调试程序,直到满足要求为止。

    6.创建可执行程序

     从文件菜单中选择生成vb文件名 .exe ,既可生成一个可执行文件。


    请务必注意:

       VB中的字符必须是在英文状态下输入,中文状态的符号会导致运行错误!!!

    VB数据类型


    VB中的所有变量都具有数据类型,以决定能够存储哪种数据。

    变量的数据类型决定了如何将代表这些值的位存储到计算机的内存中。

     除变量外,数据类型也用于其他场合。

    如在给对象属性赋值时,这个值就有数据类型;函数的参数也有数据类型。

    事实上,在 Visual Basic 中,凡是涉及数据就与数据类型有关,包括:变量、常量、数组,以及函数、过程中的参数。

     Visual Basic提供了标准数据类型主要有字符串型数据和数值型数据,此外还提供了字节、货币、对象、日期、布尔和变体数据类型。


    跟我学VB微信平台

    钜惠献礼

    学习教程

    1.VB全套学习资料,包括视频资料、课件教程、编程实例大全(含源代码工程文件)限时优惠发放;

    2.全国计算机二级考试VB指导进行中,早做准备。认真学习,方能一次顺利通过考试。


    了解课程更多详情及学习VB中有问题可以添加微信号:vbyjk521 ,随时在线答疑。

    2b3f157b406d4fa2094eb0416ac1f34e.png

    展开全文
  • VB控件数组之操作技巧

    万次阅读 热门讨论 2012-06-17 19:33:34
    设窗体上有若干个以 Command1 命名的命令按钮,现要求:点击其中一个按钮后,该按钮不可用,而其它的按钮均可用。以下几行代码可以实现这个要求,比一个一个的设置高效得多。 Private Sub Command1_Click(Index ...
    
    

    一.运行中设置数组控件的属性

    设窗体上有若干个以 Command1 命名的命令按钮,现要求:点击其中一个按钮后,该按钮不可用,而其它的按钮均可用。以下几行代码可以实现这个要求,比一个一个的设置高效得多。

    Private Sub Command1_Click(Index As Integer)
    
    Dim i As Integer '计数器
    Dim comNum As Integer '按钮的索引号
    comNum = 0
    For i = 0 To Command1.Count - 1
    comNum = comNum + 1
    If comNum > Command1.Count - 1 Then comNum = 0
    Command1(comNum).Enabled = True '让所有按钮可用
    Next
    Command1(Index).Enabled = False '让被单击按钮不可用
    
    End Sub


    二、运行中添加和卸载数组控件

    窗体上已有一个文本框Text1,程序需要在运行时动态地创建若干文本框,可这样实现:

    1.首先,设计时给Text1的Index属性设置为"0",这一步很重要:有了索引号才能创建数组控件;

    2.编写代码:[之前请给工程添加两个命令按钮,Name属性取缺省值,Caption属性分别为:添加、卸载]

    Private Sub Command1_Click()
    
    Dim txtNum As Integer 'Text1的Index号
    Dim Num As Integer '赋给各TextBox的值
    
    txtNum = 0 '初值
    Num = 1 '初值
    
    Text1(0).Text = "Text" & Num '第一个Text1的值
    
    Dim i As Integer '计数器
    For i = 0 To 4 '添加五个TextBox
    txtNum = txtNum + 1
    Num = Num + 1
    Load Text1(txtNum) '加载文本框
    Text1(txtNum).Top = Text1(txtNum - 1).Top + 450 '设置位置
    Text1(txtNum).Text = "Text" & Num '加载内容
    Text1(txtNum).Visible = True '令其可见:不能漏
    Next
    
    Command1.Enabled = False 
    Command2.Enabled = True
    
    End Sub
    
    Private Sub Command2_Click()
    
    Dim i As Integer, N As Integer
    N = 0
    For i = 1 To Text1.Count - 1
    N = N + 1
    Unload Text1(N)
    Next
    
    Command1.Enabled = True
    Command2.Enabled = False
    
    End Sub
    


    三、给运行中添加的数组控件命名并编写事件

    其实例二已经给数组控件命了名,只是简单了些。本例将文件夹"F:\Txt"下的所有.txt的文件名作为菜单的Caption添加到菜单项里[请事先建立此文件夹并拷贝一些.txt文件,或者更改代码],当点击这些菜单,程序将调出Windows的记事本打开相应的文件。
    键入以下代码前请启动VB的菜单编辑器,建立一个父菜单项[Naem和Caption属性任意],然后在此父菜单下建立一个子菜单,Name属性为"mnuFiles",Caption属性为"没有文件"。

    Dim MyPath As String '路径名变量
    
    '添加并命名菜单过程
    Private Sub AddMenu()
    
    Dim MenuNum As Integer '菜单索引号变量
    Dim MyFiles As String '文件名变量
    
    MenuNum = 0 '初值
    
    MyFiles = Dir(MyPath + "*.txt") '仅查找文本文档
    If MyFiles = "" Then Exit Sub '为空则退出过程
    
    mnuFiles(0).Caption = MyFiles '给第一个菜单命名
    
    Do Until MyFiles = ""
    MyFiles = Dir()
    If MenuNum = 0 Then MenuNum = 1
    MenuNum = MenuNum + 1
    Load mnuFiles(MenuNum) '加载菜单
    mnuFiles(MenuNum).Visible = True '设置为可见:不能漏
    mnuFiles(MenuNum).Caption = MyFiles
    If mnuFiles(MenuNum).Caption = "" Then Unload mnuFiles(MenuNum)
    '若菜单名为空则卸载掉
    Loop
    
    End Sub
    
    Private Sub Form_Load()
    
    MyPath = "F:\Txt\" '规定路径
    Call AddMenu '执行添加菜单过程
    
    End Sub
    
    Private Sub mnuFiles_Click(Index As Integer)
    
    Dim ret As String
    '用Windows的记事本打开文件:注意中间的空格不能少
    ret = "Notepad.exe" & " " & MyPath & mnuFiles(Index).Caption
    Shell ret, vbNormalFocus
    
    End Sub
    


    四、控件在窗体上的排列问题
    当然添加的数组控件多了,排列确实是个问题。下面的例子给窗体添加499个Label控件,加上事先绘制好的Index号定义为0的控件,总共有500个,能在窗体上从左到右、从上到下整齐地排列。程序运行时要花些许时间。

    Option Explicit
    
    Private Sub Form_Load()
    
    Me.Width = 6800
    Me.Height = 6000
    Me.Caption = "添加标签演示"
    With Label1(0)
    .Top = 0
    .Left = 120
    .Height = 200
    .Width = 300
    .Caption = ""
    End With
    
    AddLabels
    
    End Sub
    
    Private Sub AddLabels()
    
    Dim i As Integer '计数器
    Dim Num As Integer 'Label的Index号
    Dim k As Integer '判断是否满行
    Dim n As Integer '行数计数器
    
    Num = 0
    k = 0
    n = 0
    
    Label1(0).Caption = Num + 1
    
    For i = 1 To 499
    Num = Num + 1
    Load Label1(Num) '加载Label控件
    
    Select Case k 
    Case 0
    Label1(Num).Left = Label1(Num - 1).Left + Label1(0).Width + 20
    If Num = 20 Then n = n + 1: k = n
    
    Case n
    Label1(n * 20).Left = 120
    Label1(n * 20).Top = Label1(0).Height * n
    Label1(Num).Top = Label1(0).Height * n
    Label1(Num).Left = Label1(Num - 1).Left + Label1(0).Width + 20
    If Num = (n + 1) * 20 Then n = n + 1: k = n
    End Select 
    
    Label1(Num).Caption = Num + 1
    Label1(Num).Visible = True
    Next
    
    End Sub 
    


    展开全文
  • 按钮数组(VC+Unicon)

    2009-09-18 09:03:09
    如同VB里Index一样,成组的按钮响应事件!
  • vb6.0按钮控件数组怎么设置快捷键

    千次阅读 2010-11-22 15:53:00
    Option Explicit <br /> <br /> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = Asc("A") Then '按下A键 ...ElseIf KeyCode = Asc("B") Then '按下...

    Option Explicit



    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = Asc("A") Then '按下A键
    Call sub_xxxx1
    ElseIf KeyCode = Asc("B") Then '按下B键
    Call sub_xxxx2
    End If

    End Sub

    Private Sub Form_Load()
    Me.KeyPreview = True

    End Sub

    展开全文
  • VB使用控件数组的演示,控件数组能大大减化VB6.0的工作量,因此是我们有必要掌握的一个VB技巧。运行窗口后,点击按钮,即可生成控件数组,并按照设置自动循环相应内容。若要参考控件数组的核心文件,请下载源码后...
  • 目的培养综合利用VB语言进行程序设计的能力,主要是培养动态生成控件数组的方法进行创新设计。2.基本要求u 要求使用面向对象和结构化程序设计的编程思路。u LED显示器是由控件数组构成。u 在文本框中输入数字单击...

    28/2

    2月最后一天

    26ccc015389e01ccc07d4266ee35d4c6.png

    珍惜时间

    明天进入三月


    VB实际编程题目:LED显示器

    898e20603f869c2926561d8be8f6c776.png

    目的与要求

    1.目的

    培养综合利用VB语言进行程序设计的能力,主要是培养动态生成控件数组的方法进行创新设计。

    2.基本要求

    u  要求使用面向对象和结构化程序设计的编程思路。

    u  LED显示器是由控件数组构成。

    u  在文本框中输入数字单击显示按钮后由LED显示器显示。

    u  显示十六进制数据、或者设计点阵式的LED显示器。

    三、设计方法和基本原理

    1.问题描述:

    LED显示器是指类似数字式电子表或计算器的显示方式。每个数字位的显示如右图,每位数字位由7个标签控件构成,通过控制这些控件的背景颜色,使得显示不同的数字。例如显示数字“1”,将2号标签和3号标签的背景颜色设置为与窗体背景颜色不同,其他标签的背景颜色设置为与窗体背景颜色相同,就可以显示出数字“1”。以上是1个数字位的显示方法。构造8个数据位,就可以显示8为数字。

    29e86a284b36114f528e325257743217.png

    2.问题的解决方案

    设计程序界面

    由文本输入框输入数字,单击显示按钮在LED显示器上显示相应的数字。

    构成LED显示的56个标签控件(每个数据位需要7个,共8位)是动态生成的控件数组。

    每个数字所需要发光的控件号码,预先存储好。例如数字“0”需要1号、2号、3号、4号、5号、6号设置不同的背景颜色。定义一个一维字符串数组EI(0 to 9),EI(0)的值置为“123456”,EI(1)的值置为“23”……依此类推。显示时把所有标签的背景颜色置为与窗体背景颜色一样,然后根据要显示的数字把EI数组中的对应字符串中的所有数字作为下标的组成部分,例如要显示的是数字0,则把1号、2号、3号、4号、5号、6号标签的背景颜色置为与窗体背景颜色不同的颜色值。

    ②编写代码

    代码包括事件处理过程和功能函数,还有必要的声明。变量声明部分声明本程序所需要的变量和数组。

    事件处理包括下面的主要事件:

    Form_Load()

    作一些初始化的工作。

    Private SubCommand1_Click()

    在文本框中输入数字单击显示按钮后在led显示器上显示。

    四、主要技术问题的描述

    1.动态数组的建立  

    利用load 控件数组名(下标)语句建立控件数组。并为每个控件数组元素设置大小、位置(参考附录生成象棋棋盘的程序)。

    2.数字的显示

    依据存储的EI数组对相应的控件的背景颜色属性进行设置。

    学习VB中有问题可以添加小编微信号:vbyjk521 ,每晚在线免费答疑。

    ce2fcdcf0ab7949dc7be297f723cd616.png



    dbd82cdaee0bd3dfb729fa720df97647.gif9b52157096e9d70b961f1b84928fc502.png

    长按上图,关注跟我学VB

    展开全文
  • 目的培养综合利用VB语言进行程序设计的能力,主要是培养动态生成控件数组的方法进行创新设计。2.基本要求1、要求使用面向对象和结构化程序设计的编程思路。2、LED显示器是由控件数组构成。3、在文本框中输入数字单击...
  • VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:  Private Sub Form_Load()  Dim i  i = Array(1, 2, 3, 4, 5, 6, 7)  Dim j  For j = 0 To ...
  • VB动态加载数组控件

    千次阅读 2013-01-02 22:58:50
    intCMD = intCMD + 1 Load Me.Command1(intCMD) Me.Command1(intCMD).Caption = "我是按钮" + CStr(intCMD) Me.Command1(intCMD).Top = Me.Height / 2 + intCMD Me.Command1(intCMD).Left = Me.Width /
  • 在一个button中的command1click中生成了一组随机数,然后放到一个数组中,请问在另一个button中我该怎么调用刚刚那个数组呢?
  • vb第四章数组习题.docx

    2020-11-11 19:11:30
    第一章 数组 一选择题 1在窗体上画一个命令按钮然后编写如下程序 Option Base 1 Private Sub Command1_Click(Index As Integer) Dim Arr1(12) As Integer, Arr2(3) As Integer Dim Sum As Integer Sum = 2 For i = 1...
  • 控件数组有在设计时设置好的,也有在运行中创建的。控件数组一方面使得程序简洁、令代码易于维护,另一方面能使程序具有灵活性。可见,科学地利用控件数组可使编程工作的效率更高。本文是从笔者回答网友的问题中整理...
  • 控件数组有在设计时设置好的,也有在运行中创建的。控件数组一方面使得程序简洁、令代码易于维护,另一方面能使程序具有灵活性。可见,科学地利用控件数组可使编程工作的效率更高。本文是从笔者回答网友的问题中整理...
  • 大家都知道VBNET取消了控件数组VB。NET里也可以用动态创建控件数组 但是创立的控件数组,比如创建一组按钮,但当按钮被点击后 如何能够实现不同按钮点击,只响应相同一事件代码,只是按钮编号不同
  • 题目来源:大工慕课 链接 原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验5-10(改) ...输入按钮功能:将具有5个元素的数组各成员送入自定义数组中。 显示输入数据按钮功能...
  • 程序自己编的,工程打开就用,实现的功能是:点击按钮,打开commondialog对话框,同时选取多个文件,文件名全路径会保存到数组。也有注释,便于学习,加载多个文件的代码我写成了函数,直接拷贝调用即可!相当方便!
  • vb中定义如下: 类模块Class1中代码如下: Dim aa() As String Public Sub setName(ByRef str() As String) aa = str End Sub Public Function getName() As String() getName = aa End Function 模块Module1...
  • 控件数组VB提供的一个优秀的设计解决方案,它能很方便快捷的处理大批同类控件的响应和时间处理,但不知为什么在C#中这个优秀特性没有传承下来,甚为可惜,本文将要探讨就是如何在C# WinForm程序实现它.首先请看界面在...
  • 动态数组排列

    2016-03-31 17:27:23
    打开vb 在左侧选中commandbutton按钮并在form空白处选中 在左侧选中textbox按钮并在form空白处选中 双击command1输入以下内容 Option Base 1 Private Sub Command1_Click() Cls Dim n As Integer, a As ...
  • 演示部分在窗口加一个command按钮启动后把窗体最大化,方便观看.****************************************Private Sub Command1_Click()Sub Command1_Click()这里不妨用10000个元素,事实上在窗体打出的第一个数字...
  • 控件数组VB提供的一个优秀的设计解决方案,它能很方便快捷的处理大批同类控件的响应和时间处理,但不知为什么在C#中这个优秀特性没有传承下来,甚为可惜,本文将要探讨就是如何在C# WinForm程序实现它.首先请看界面 在...
  • VB随机抽取器

    2017-12-27 17:09:47
    自学VB所写的一个随机抽取应用,从外部txt文件读取名单(一行一个),使用了ReDim Preserve扩展数组定义范围。姓名滚动显示,单次仅抽取一个。可以选择屏蔽重复或不屏蔽(运用临时数组储存未抽取数据,以及ReDim清空...
  • VB程序设计入门基础

    千人学习 2017-09-11 21:04:06
    VB入门基础。 清楚易懂,适合初学者 本课程主要从开发环境、窗体、命令按钮、文本框、标签、消息框和输入框、代码基础、选择结构、循环结构、数组、过程、控件等方面进行讲解
  • 初级为10*10的按钮数组,包含10个雷。由于按钮没有右击的事件处理,所以本项目设计了5个单击按钮,调节光标位置,模拟插旗操作。 底层采用整数数组来实现,由于一个方格周围最多有8个方格,所以使用数字9表示一个雷...
  •  下面是vb程序的界面,只有一个command按钮和image图片框   程序界面.jpg 下面是程序的运行结果: 程序运行结果.jpg 2.代码 Dim Matlab As ...
  • 关于vb6.0的所有基础知识,萌新推荐,本文介绍基本数据类型,变量定义,数组定义,文本框,列表框,按钮,标签等一系列控件的基本用法。

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 134
精华内容 53
热门标签
关键字:

vb按钮数组