精华内容
下载资源
问答
  • 内容索引:VB源码,界面编程,数组 这个程序演示了如何让VB窗体从内置数组中加载外部图片,并显示,除此功能外,没有其它功能,适合VB初学者。效果图如上示。
  • 运行效果 运行代码: Private Sub Command1_Click()  Dim intx As Integer  Dim frmnew(1 To 5) As...New Form1 '使用new关键字,系统会创建新窗体  For intx = 1 To 5    frmnew(intx).Show    frmnew(i...
    运行效果
    VB编程:申明窗体数组-40


    运行代码:
    Private Sub Command1_Click()
        Dim intx As Integer
        Dim frmnew(1 To 5) As New Form1  '使用new关键字,系统会创建新窗体
        For intx = 1 To 5
            frmnew(intx).Show
            frmnew(intx).WindowState = vbMinimized   '将创建的窗体最小化
        Next
    End Sub


    展开全文
  • 定义数组后,为了使用数组,必须为数组分配所需要的内存区。根据内存区分配时机的不同,可以把数组分为静态(Static)数组和动态(Dynamic...在VB中定义动态数组通常分两步:首先在窗体层或标准模块中用Dim、Private或P...

    69413f8fe192f68bbeb37bf14c1bf46d.png

    定义数组后,为了使用数组,必须为数组分配所需要的内存区。根据内存区分配时机的不同,可以把数组分为静态(Static)数组和动态(Dynamic)数组。通常把需要在编译时分配内存区的数组叫做静态数组,而把需要在运行时分配内存区的数组叫做动态数组。当程序没有运行时,动态数组不占据内存,因此可以把这部分内存用于其他操作。

    在VB中定义动态数组通常分两步:首先在窗体层或标准模块中用Dim、Private或Public声明一个没有下标的数组(括号不能省略),然后在过程中用ReDim语句定义带下标的数组。

    .ReDim语句的作用,是重新指出数组的大小。它是在程序执行到ReDim语句时才分配存储空间。

    格式:ReDim(数组名)(下标)[As(类型)]

    功能:改变动态数组的大小和存储空间。

    考试大说明:

    (1)下标可以是常量,也可以是具有确定值的变量。

    (2)语句中各参量的含义与用Dim定义数组的语句相同。

    (3)ReDim语句只能用于动态数组,它可以改变每一维的大小,但不能改变维数。

    (4)当程序编译时,ReDim语句中的所有数组均被说明为动态数组。在程序运行中,当执行到ReDim语句时,就把新的上下界重新分配给数组,数组元素的值将被初始化,所有的数值元素的值被置为0,字符串元素被置为空字符串。

    (5)ReDim语句可以同Dim语句一样定义数组。在同一程序中,ReDim语句还可以多次使用。在用:ReDim语句重新定义数组之前,可以使用:Erase语句将原来的数组删除。

    2829f2ca24f0d0090cbba57f30759f23.png

    VB动态数组的定义方法.doc

    下载Word文档到电脑,方便收藏和打印[全文共606字]

    编辑推荐:

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    下载Word文档

    展开全文
  • VB调用数组的小例子

    2012-08-09 11:48:42
    摘要:VB源码,其它类别,数组  VB调用数组的小例子,程序内部调用数组中的数据。
  • 新建一个用户窗体定义控件数组时,不能用Withevnets来定义数组 即使可以,为每一个数组成员编写事件也是非常麻烦的,考虑通过一个“中间人”来传递事件 “中间人” 用继承的方法为Button控件增加一些事件、属性...

    学习笔记:VB.net动态添加控件数组并传递事件

    控件数组和事件

    新建一个用户窗体,在定义控件数组时,不能用Withevnets来定义数组
    在这里插入图片描述
    即使可以,为每一个数组成员编写事件也是非常麻烦的,考虑通过一个“中间人”来传递事件

    “中间人”

    用继承的方法为Button控件增加一些事件、属性和方法

    Public Class MyButton
        Inherits System.Windows.Forms.Button
    
        Public BtPtr As MyButton = Me
        Public BtNo As Long
    
        Public Event MyEventMouseClick()
        Public Sub RaiseMyEventMouseClick(No As Long)
            BtNo = No
            RaiseEvent MyEventMouseClick()
        End Sub
    
        Private Sub MyButton_MouseClick() Handles Me.MouseClick
            BtPtr.RaiseMyEventMouseClick(BtNo)
        End Sub
    End Class
    

    这里BtPtr是一个指针,每当新的实例一个MyButton控件的时候,让其指向某个特定的不在数组中的Button控件(这个控件在面板上不显示出来),这个特定的Button控件用来传递MouseClick事件
    BtNo记录了这个实例MyButton所在数组的序列号

    每当按键的MouseClick事件触发时,便会调用BtPtr的RaiseMyEventMouseClick方法来触发BtPtr的MyEventMouseClick事件并传递按键的代号BtNo

    动态添加控件

    新建一个窗体Form1,添加按钮Button1,并填写如下代码:

    Public Class Form1
    
        Dim WithEvents Bt As New MyButton
        Dim BtArr(10) As MyButton
        Dim i As Long = 0
        Dim p As Point
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            If Not i > 10 Then
    
                BtArr(i) = New MyButton
                BtArr(i).BtNo = i
                BtArr(i).BtPtr = Bt
                BtArr(i).Text = "按钮" & i
    
                p.X = 40
                p.Y = 40 + 30 * i
                BtArr(i).Location = p
                Me.Controls.Add(BtArr(i))
    
                i = i + 1
            End If
        End Sub
    
        Private Sub Bt_MyEventMouseClick() Handles Bt.MyEventMouseClick
            MessageBox.Show("按钮" & Bt.BtNo & "按下了")
        End Sub
    
    End Class
    

    Bt是一个MyButton控件,但并不在窗体上显示出来,所有实例化的BtArr()成员中的BtPrt都会指向Bt
    当Bt的MyEventMouseClick事件触发时,便会显示是几号按钮被按下了。

    展开全文
  • vb读取excel中的数据并在窗体上显示

    万次阅读 2017-11-20 17:23:13
    Public ExcelTable As Workbook 'excel 工作表对象 Private TextBoxA() As ...Private FormWidth As Integer '窗体宽度 '以下子程序是用来建立数据网格 Sub CreateGrid(No, Data)  For
    Public  ExcelTable  As  Workbook   'excel 工作表对象
    Private  TextBoxA()  As  Control       '以编辑框为基础动态构造数据网格
    Private  FormWidth  As  Integer        '窗体宽度
    '以下子程序是用来建立数据网格
    Sub  CreateGrid(No, Data)
         For  i = 1  To  CInt (UBound(Data, 1))
             For  j = 1  To  CInt (UBound(Data, 2))
                 Set  a = Form1.Controls.Add( "VB.TextBox" "textbox"  CStr (i) &  CStr (j) &  CStr (No))
                 ReDim  TextBoxA(1  To  i, 1  To  j)   '重新定义动态数组!
                 Set  TextBoxA(i, j) = a
                 With  TextBoxA(i, j)             '设置文本框属性
                     .Text = Data(i, j)
                     .Visible =  True
                     .Height = 200
                     .Width = 500
                     .Top = .Height * (i - 1)
                     .Left = .Width * (j - 1) + FormWidth
                 End  With
             Next
         Next
       
    End  Sub
     
    Private  Sub  Command1_Click()
         Set  ExcelTable = CreateObject( "Excel.sheet" '建立对象实例
         ExcelTable.Application.Workbooks.Open (App.Path +  "\address.xls" '打开数据文档address.xls
         For  i = 1  To  ExcelTable.Application.Worksheets.Count     '获得工作表数目
             Data = ExcelTable.Application.Worksheets(i).UsedRange.Value    '获取每个工作表的数据
             DataType = VarType(Data)       '跳过没有数据的空表
             Select  Case  DataType
             Case  vbArray + vbVariant
                 Call  CreateGrid(i, Data)    '传递数据,建立以文本框为基础的数据网格
             Case  vbEmpty
             End  Select
         Next
    End  Sub
    展开全文
  • VB中动态数组的使用事项

    千次阅读 2019-02-27 16:05:14
    1.动态数组的使用时,先在窗体层、标准模块或过程中声明一个没有下标的数组(括号不能省略),不指定维数。 2.过程中用ReDim语句定义带下标的数组,给出数组的维数。注意:用ReDim定义的数组,只能改变数组元素的...
  • VB讲课笔记08:数组

    千次阅读 2018-03-12 18:01:30
    VB讲课笔记08:数组学习目标:理解数组的概念、掌握数组的声明、引用方法,掌握数组的使用以及与数组有关的常用算法;了解控件数组的概念、声明和使用。一、数组概念(一)数组定义数组是高级程序设计语言中数据组织...
  • 控件数组是由一组相同类型的控件组成的,它们共用一个控件名,具有相同的数组。控件数组适用于若干个控件执行的操作相似的场合,控件组共享同样的事件过程。下面是小编为大家带来的关于控件数组的知识,欢迎阅读。1....
  • VB程序题:提供在窗体上显示的以汉字开头的字体名称,并显示该名称所对应得字体样式,程序运行效果如图E.10所示。 VB源代码 wb98.com 提示:1. 界面设计:窗体有两个Label和两个列表ListBox分别用来显示字体名称和...
  • 就是我想一个窗体中调用一个模块中数组a(i),加断点调试的时候发现:该数组a(i)模块中有值,在窗体中值均为0。 该数组我已全局变量中进行了定义,我在窗体中使用模块名.a(i)的方法也不行...这样该...
  • 在VB.NET中使用控件数组

    万次阅读 2010-05-20 08:40:00
    http://www.cnblogs.com/yunbo/archive/2009/08/13/1545657.html 控件数组是位于一个窗体上共享同一名称的一组同种类型控件。普通控件仅使用名称就可以识别,而引用控件数组中的成员则需要同时使用名称和索引。开发...
  • 解决方案1:则该变量只是其所属工程中是公用的。可以使用 Public 语句声明一个过程,Public NumberOfEmployees As Integer也可以使用 Public 语句来声明变量的对象类型:模块级别中使用,...
  • VB中的数组

    千次阅读 2011-09-16 09:26:39
    5.1 数组的概念 1.引例  求100个学生的平均成绩及超过平均成绩的人数。  如果用一般变量来表示成绩,需要用100个变量,如:mark1、mary2、……mark100。若用数组,可以只用一个来表示mark(1  To ...
  • 个人开发的VB窗体修饰控件集,内含漂亮按钮、ListView、下拉列表、TAB标签选项卡、树形控件、窗体滑动菜单、分组菜单,可折叠展开的菜单等,相信这些控件对于从事vb6编程的朋友来说,是相当实用的。 某内部控件代码...
  • 将FileName属性以空格作为划分标志,分成若干部分存储到FileNames数组,如果只选择了一个文件则直接Form1中显示该文件;如果选择了多个文件例如3个,则创建3个Form2窗体的实例其中显示打开的文件的内容。 运行...
  • VB6中给数组赋值的限制

    千次阅读 2012-08-20 08:53:39
    而实际有时行,有时又不行,刚刚写代码时又遇到了,干脆试了一下,结果是,"被赋值数组需要是动态数组".对于类型,源数组与目标数组需要一致,即使是自定义类型也可以.以下说明一下可以赋值的情况:[codes=vb] ...
  • 运行效果 运行代码: Private Sub Command1_Click() Dim intx As Integer Dim frmnew(1 To 5) ...New Form1 '使用new关键字,系统会创建新窗体 For intx = 1 To 5 frmnew(intx).Show frmnew(intx).Win...
  • 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...
  • 怎么将数组作为参数带入到vb窗体上的控件里呢?怎么控件中调用多个数组,完成数组行复制功能?
  • 设程序中有如下数组定义和过程调用语句:Dima(10)AsInteger……Callp(a)如下过程定义中,正确的是( )。A.PrivateSubp(aAsInteger)B.PrivateSubp(a()AsInteger)C.PrivateSubp(a(10)AsInteger)D.PrivateSubp(a(n)...
  • 在VB.Net中创建使用控件数组

    千次阅读 2009-02-09 11:02:00
    首先创建一个Button类型控件数组: 1、创建“Windows应用程序”类型的工程,添加名为ButtonArray的类,并使该类继承 System.Collection.CollectionBase 类。System.Collections.CollectionBase类是.NET框架类库中为...
  • VB-数组、集合、泛型

    2019-06-24 16:09:59
    变量、数组、集合、泛型的发展 最开始用内存中一个位置映射一个值,用变量来“使用”这个值。 进一步发展,用变量来引用一组值,这就是数组。由数组概念,发展出链表、堆、栈,进行排序、检索等。 但这并不能完全...
  • Vb.net下,利用数组进行“组合”查询

    千次阅读 多人点赞 2012-03-04 08:06:28
    这几天一直做机房收费系统中组合查询的那几个窗体。这次选择了利用数组来查询。下面就给大家说一下这个方法,希望大家指正,互相学习。 这里我要讲解的是三层架构下实现的例子,如果你不了解三层,或者是没有...
  • VB控件数组之操作技巧

    万次阅读 热门讨论 2012-06-17 19:33:34
    窗体上有若干个以 Command1 命名的命令按钮,现要求:点击其中一个按钮后,该按钮不可用,而其它的按钮均可用。以下几行代码可以实现这个要求,比一个一个的设置高效得多。 Private Sub Command1_Click(Index ...
  • 在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件使用winsock控件可以实现客户端和服务器间C/S结构的通信,...客户端中添加一个窗体,拖拽一个winsock控件到该窗体上。Private Sub Form_Load() Me.
  • 在VB中,MSHFEXGRID不支持文本框,为了解决这个问题,一般的方法就是通过一个文本框的显示和隐藏,并获得表格单元的坐标,来实现向MSHFLEXGRID中录入数据的,具体方法我记得本博中有,就不说了,自己搜一下 今天要说的是...
  • 控件数组的动态建立 设计窗体时建立控件组的第一个元素,并将其INDEX值赋为0 程序运行中使用LOAD方法,定义新的控件组元素,语法: LOAD 对象名(INDEX)值 使用UNLOAD方法可去除控件组中的元素。 INDEX值为...
  • 这时我们可以使用Object类型的数组,来实现运行时添加窗体。 我们先程序中添加两个窗体Form1,和Form2,然后Form1中添加一个按钮,点击它可以打开两个窗体。如图:![运行时加载多窗体1]...
  • 数组和自定义类型一、 单选题1. 下面数组声明语句,_________正确。A) Dim a[2,4] As IntegerB) Dim a(2,4) As IntegerC) Dim a(n,n) As IntegerD) Dim a(2 4) As Integer2.要分配存放如下方阵的数据,可使用______...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,205
精华内容 2,882
关键字:

vb在窗体上显示数组