精华内容
下载资源
问答
  • Static TxtIndex As Integer TxtIndex =0 Set oControl = Controls.Add("VB.TextBox", "MyTxt") oControl.Text="文字" oControl.Index=TxtIndex TxtIndex=TxtIndex+1 ...这段代码不行,要怎样才可以添加Index属性
  • VB LISTBOX属性

    2019-09-27 12:22:17
    additem 添加属性 listcount总记录数 listindex索引值 Private Sub Form_Load()List1.AddItem "广东省广州市"List1.AddItem "广东省河源市"List1.AddItem "广东省惠州市"List1.ListIndex = 0End Sub Private Sub...

    additem 添加属性

    listcount总记录数

    listindex索引值

    Private Sub Form_Load()
    List1.AddItem "广东省广州市"
    List1.AddItem "广东省河源市"
    List1.AddItem "广东省惠州市"
    List1.ListIndex = 0
    End Sub

    Private Sub LeftAll_Click()
    Dim i As Integer
      For i = 0 To List2.ListCount - 1
      List1.AddItem List2.List(i)
      Next
      List2.Clear
      List1.ListIndex = List1.NewIndex
      
    End Sub

    Private Sub LeftOne_Click()
    Dim i As Integer
      If List2.ListCount = 0 Then Exit Sub
       List1.AddItem List2.Text
       i = List2.ListIndex
       List2.RemoveItem i
       List1.ListIndex = List1.NewIndex
        If List2.ListCount > 0 Then
        If i > List2.ListCount - 1 Then
        List2.ListIndex = i - 1
        Else
           List2.ListIndex = i
        End If
      End If
    End Sub

    Private Sub List1_dblclick()

    RightOne_Click
    End Sub

    Private Sub List2_dblClick()
    LeftOne_Click
    End Sub

    Private Sub RightOne_Click()
    Dim i As Integer
    If List1.ListCount = 0 Then Exit Sub
       List2.AddItem List1.Text
       i = List1.ListIndex
       List1.RemoveItem List1.ListIndex
       If List1.ListCount > 0 Then
       If i > List1.ListCount - 1 Then
       List1.ListIndex = i - 1
       Else
        List1.ListIndex = i
        End If
    End If
    List2.ListIndex = List2.NewIndex
    End Sub
    Private Sub RightALL_Click()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
    List2.AddItem List1.List(i)
    Next
     List1.Clear
     List2.ListIndex = 0
    End Sub

    Private Sub Up_Click()
    Dim Up As Integer
    With List2
    If .ListIndex < 0 Then Exit Sub
      Up = .ListIndex
      If Up = 0 Then Exit Sub '不能将第一个项目向上移动
      .AddItem .Text, Up - 1 '向上移动项目
      .RemoveItem Up + 1   '删除旧的项目
      .Selected(Up - 1) = True   '选择刚刚被移动的项目
      End With
    End Sub
    Private Sub Down_Click()
    Dim Down As Integer
      With List2
      If .ListIndex < 0 Then Exit Sub
        Down = .ListIndex
        If Down = .ListCount - 1 Then Exit Sub  '不能将最后的项目向下移动
        .AddItem .Text, Down + 2  '向下移动项目
        .RemoveItem Down     '删除旧的项目
        .Selected(Down + 1) = True  '选择刚刚被移动的项目
        
      End With
        
    End Sub

    附有截图

    先新建两个listbox一个命名为:list1和一个list2

    和六个命令按钮,详细命名见上图即可。为左、右、全左、全右、上、下

    转载于:https://www.cnblogs.com/rosesmall/p/3435862.html

    展开全文
  • VB控件属性.txt

    2012-02-06 14:19:37
    VB控件属性 简单控制 首先Index = 编号 传控制英语名和 中名有
  • 今天学习了刘金玉老师零基础VB教程的第44期,学习的主要内容是如何动态添加控件数组。一、控件数组控件数组:同一个类型的一组控件,这组控件的名称相同,但index索引不同。动态控件数组:可以随着数据的变化,动态...

    今天学习了刘金玉老师零基础VB教程的第44期,学习的主要内容是如何动态添加控件数组。

    一、控件数组

    控件数组:同一个类型的一组控件,这组控件的名称相同,但index索引不同。

    动态控件数组:可以随着数据的变化,动态增加或者减少控件数量,使软件使用的扩展性得到提升。

    二、动态控件数组的使用

    使用关键字load来动态添加控件数组。比如:Load Label1(i),表示的是动态添加i个label控件,注意动态添加控件数组后,需要将控件的visible属性设置为true。

    (一)补充知识:使用取余数和取整数来控制控件的数量,以及行和列的分布。

    (二)案例分享:建立40个label控件数组,每行10个,共四行。

    1.输入代码:

    Private Sub Form_Load()

    Dim i%

    For i = 1 To 39 Step 1

    Load Label1(i)

    Next i

    For i = 0 To 39 Step 1

    Label1(i).Left = (i Mod 10) * 1300 控制列宽

    Label1(i).Top = (i 10) * 1300 控制换行和行高

    Label1(i).Caption = i + 1

    Label1(i).Visible = True

    Randomize

    Label1(i).BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) 随机产生label控件颜色

    Next i

    End Sub

    2.运行得到结果如图

    ab60355ace068eebc505639ef43c97d0.png
    d5e21573408e8c30ad8050cde42a36c4.png
    展开全文
  • VB的程序是一种基于窗体的可视化组件安排的联合,并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内,所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序...

    2ab8776adfcb082dcd2a13b08dc0ded6.gif

    7a092a70d9d2cac2e4e7de15a1532c2d.png

    阿布分享君

    ❤  abushare  

    da1a422804e4d8fa6afe52596462d920.png

    简介

    VB的中心思想就是要便于程序员使用,无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统,但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合,并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内,所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上,但是随着计算机速度的飞速增加,关于性能的争论已经越来越少。如若需要请自行下载。

    安装及教程

    【网盘链接】:

    https://pan.baidu.com/s/13ybzcDttGmKcD8AY_XF62w

    【提取码】:0i0z

    【备注】:内含多个版本系列及软件安装教程。

    【阿布】:Happy4u99

    常用及快捷键

    1、F1:显示MSDN帮助。当然你要安装MSDN,否则得不到真正的帮助了
    2、F2:显示对象浏览器。这里你可以看到对象的各种属性、方法与事件
    3、F3:查找一下个满足条件的内容
    4、F4:显示当前选中控件的属性窗体
    5、F5:运行程序(VB.NET则是F8了)
    6、F7:由窗体设计切换到对应的代码窗体
    7、F8:单步执行程序
    8、F9:切换断点

    9、Alt+A:打开外接程序菜单  
    10、Alt+D:打开调试菜单    
    11、Alt+E:打开编辑菜单    
    12、Alt+F:打开文件菜单    
    13、Alt+H:打开帮助菜单    
    14、Alt+I:打开图表菜单    
    15、Alt+O:打开格式菜单    
    16、Alt+T:打开工具菜单    
    17、Alt+P:打开工程菜单    
    18、Alt+R:打开运行菜单    
    19、Alt+U:打开查询菜单    
    20、Alt+Q:退出    
    21、Alt+V:打开视图菜单    
    22、Alt+W:打开窗口菜单    
    23、Alt+→:根据输入的字符检索出可以使用的关键字

    24、Tab:让选中的代码,集休缩进

    25、Shift+F2:查看当前光标所在的变量或函数、子过程的定义。这一快捷键很方便,比如程序中有一个 call   PubFunction ,你只要将鼠标在PubFunction 任意一处点中,然后按Shift+F2就可以直接转到函数的声明处。
    26、Shift+F4:打开属性页窗口,与F4不一样哦    
    27、Shift+F5:重新启动    
    28、Shift+F7:由代码窗体切换到对应的窗体设计界面
    29、Shift+F8:逐过程单步执行。按过程进行调试
    30、Shift+F9:快速监视    
    31、Shift+Tab:让选中的代码集体凸出

    32、Ctrl+F5:全编译执行
    34、Ctrl+PauseBreak:中断执行,调试过程中如果程序限入死循环,或者你随时高兴让程序停下来,此快捷键就很有用了,不要再结束任务了吧。
    36、Ctrl+D:添加文件    
    37、Ctrl+E:打开菜单编辑器    
    38、Ctrl+F:在代码窗体进行查找。实现查找功能与Word等功能相同
    39、Ctrl+F8:运行到光标处    
    40、Ctrl+F9:运行下一条语句    
    41、Ctrl+G:查看立即窗体。比如程序中有Debug.print 语句,你可以在立即窗口中查看到相应的显示。另 外在开发过程中在立即窗体中还可以查询变量的情况,方法是输入 ?变量名 之后回车
    42、Ctrl+H:替换    
    43、Ctrl+I:在“代码”窗口中弹出一个弹出式窗口,显示包含了函数或语句参数的信息    
    44、Ctrl+J:将所选控件移至顶层   or 在代码窗口中光标所有处 查看或插入属性方法到代码中
    45、Ctrl+K:将所选控件移至底层    
    46、Ctrl+L:调用堆栈
    47、Ctrl+N:新建一个工程
    48、Ctrl+O:打开一个已存在的工程,当前工程窗口要关闭的:)
    50、Ctrl+R:查看工程窗口
    51、Ctrl+S:保存工程。开发过程口及时保存会给你带来很大的好处哦。
    52、Ctrl+Shift+F2:最后位置。在多个窗口中切换时可以用这个方法快速回到最后一次编辑的所在地
    53、Ctrl+Shift+F8:跳出过程    
    54、Ctrl+shift+F9:清除所有断点。调试时如果设置了很多断点,通过此快捷键就可以一次性清除了
    55、Ctrl+T:显示部件窗口。菜单位置是工程----部件
    56、Ctrl+W:编辑监视

    学习课程

    【网盘链接】:
    https://pan.baidu.com/s/1yf93KcOyB-1WponB2F1Z2w

    【提取码】:vpqp

    【名称】:VB6.0学习视频全套

    【阿布】:Happy4u99

    学习内容及成果

    f43f0ef331f9c39623296f3bf95d86eb.png

    学员反馈

    155ecf05f109c526a30758e20c70ad90.png

    e2d5a7b0fabac2ad37bb5f645e722bda.png

    3072203150b9343afdf8fe3638d8fe2c.gif

    展开全文
  • VB控制下拉框属性,改变Click事件,改变下拉框的宽度,改变下拉框属性,发生click事件,改变下拉框属性,不发生click事件,设置 Combo 下拉的宽度,单位为 pixels。在修改 Combo 或 Listview 的ListIndex 时, 会...
  • 看到yachong在一个帖子回了一段有意思的,转贴在这里:很多时候给属性赋值会触发事件,至于哪个属性触发哪个事件就要靠经验了:) Private Sub Command1_Click() 这三个属性会触发下面的三个事件 Option1.Value = True...

    看到yachong一个帖子回了一段有意思的,转贴在这里:

    很多时候给属性赋值会触发事件,至于哪个属性触发哪个事件就要靠经验了:)


    程序简单并且对性能要求不高的时候,我就用下面的办法

    展开全文
  • vb6.0带 参数(索引)的属性的写法

    千次阅读 2005-12-12 14:25:00
    建一个新的类模块‘定义私有数组变量Private intAges(3) As IntegerPublic Property Get Age(Index As Integer) As Integer Age = intAges(Index)End PropertyPublic Property Let Age(Index As Integer, ByVal ...
  • ●●●2019.01.19VB常用控件-列表框(本文中的列表框Name属性以默认的List1为述)1、将列表框中的内容排序在设计或运行时,可将列表框的SORTED属性设置为TRUE(默认为FALSE)来对列表框的各项内容按字母顺序进行排列。...
  • VB OLE图像对象拉伸实例,改变richtextbox中索引(从0开始)为index的oleobject的dwFlags,如果index小于等于-1,则应用于全部对象,删除当前的oleobject,只所以不用selstart之类的属性控制,是因为ReObject.cp是基于...
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    改变 ListIndex而不发生 Click 事件 36 , 36.txt 改变 TreeView 的背景 37 , 37.txt 改进VB的驱动器列表框 38 , 38.txt 给TreeView控件添加弹式菜单 39 , 39.txt 功能强大的增强列表框 ――VB6控件LISTVIEW使用...
  • ''''取当前文档对从顶模型空属性DimindexAsIntegerForindex=0Tosp.Count-1DimnameAsStringname=sp.Item(index).ObjectName''''判断模型空间中的项目是否是一个块引用IfnameLike"*Ac*...
  • VB拉伸RICHTEXTBOX的OLE对象,改变richtextbox中索引(从0开始)为index的oleobject的dwFlags,如果index小于等于-1,则应用于全部对象,获得richtextbox中oleobject的数量,记录下richtextbox当前选定的内容,删除...
  • KK聊天工具源于VB

    2012-07-29 17:19:47
    VB中msgbox文本进行换行,使用 &vbcrlf;& 进行连接两行。 添加菜单弹出文本使用msgbox(" " & index) 菜单(&a)设置A为快捷键。 调用资源管理器Call Shell("explorer 这里可以再填写HTTP url地址", vbMaximizedFocus) ...
  • VB6源代码收藏页面

    2011-08-28 17:31:13
    vb6大牛的代码:先收藏一下,免得以后找不到 其中有我要找的代码: 读取文件的摘要属性 http://www.mvps.org/emorcillo/en/code/vb6/index.shtml
  • vb Script参考文档

    2009-07-28 22:13:02
    FirstIndex 属性 返回字符串匹配的位置。 Fix 函数 返回数的整数部分。 For...Next 语句 以指定的次数重复一组语句。 For Each...Next 语句 对于数组或集合中的每一个元素,重复一组语句。 FormatCurrency 函数 ...
  • 做一个简易计算器(VB版)

    千次阅读 2020-02-22 20:47:46
    今天小编来带大家用VB做一个简易计算器 废话不多说,下面就是具体步骤了 1、创建控件组的方法首先创建一个命令按钮,调整其大小(觉得合适就行),名称为Command1,Caption...这时,第一个按钮的Index属性值默认为“...
  • VB 列表框的应用实例

    2011-05-11 15:49:58
    这个是关于列表框的应用例子,比较简单,涉及到列表框的list、text、listindex属性、additem、removeitem、clear方法、例子比较简单,适合初学者。
  • 使用VB编写计算器,建立14个按钮,按钮的名字都要Command1,设置Index属性,0~9分别对应数字0~9,10为小数点,11为等号,12~14分别对应+、-、*和/。 从而实现简易计算
  • 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得...按下“是”就会创建控件数组了,两个按钮区别在于Index属性不同: 在实际代码中可以看到,事件参数中多了 Inde...
  • 问题一 combobox 通过type类型,如下代码,通过选取name名称(改变combobox的名称)得到 其Id ...通过 combbox的click方法,改变combobox的text属性时,得到listIndex,然后通过listindex,对...
  • VB6中控件数组如何转化为单个控件

    千次阅读 2008-07-22 11:09:00
    VB6中,如果往窗体或...其实,VB的控件数组是采用控件名加控件的index属性来标示控件数组的,所以我们可以先把控件重命名为一个新的名字,然后把index属性值设为空(不能设为0),这样就把控件数据转为一般的控件了。
  • 第二章 VB的界面设计

    2007-11-23 16:12:00
    轉自:http://wwww.hyit.edu.cn/edu/vb/study/index.htm 第二章 VB的界面设计 2.1 VB用户界面设计基础 1. 概述  界面的设计有两步:先绘制控件,然后确定控件属性。    绘制控件:在工具箱里单击想画...
  • VB之TabStrip控件使用举例

    千次阅读 2016-06-16 15:38:38
    先创建若干个TabStrip的选项然后创建一个Frame控件数组,个数与TabStrip选项卡个数相等注意设置Frame控件数组的索引值(index属性)从1开始(默认为从0开始),以便和TabStrip选项的索引值对应然后编写以下代码:...
  • 一基本操作题 请根据以下各小题的要求设计 Visual Basic应用程序包括界面和代码 1在名称为Forml的窗体上画一个名称为 Chk1的复选框数组Index属性从0开始含 三个复选框其标题分别为语文数学英语利用属性窗口设置适当...
  • vb学生成绩管理系统

    2013-06-28 08:55:24
    (3) 通过“工程—工程1属性”菜单,将主窗体(frmMain)MDIform1设置为启动对象。 添加标准模块代码: '声明全局对象变量ABOcn,用于创建于数据库的连接 Public ADOcn As New ADODB.Connection 添加主窗体初始化过程...
  • VB程序员眼中的C# 4

    2008-06-08 21:31:00
    比如: public double this[intindex] Attributes Attributes指的是放在源代码元素上的注解,与VB中的条件汇编相同。但是在 C# 中,Attributes信息是存储在元素的元数据中的,在运行时间可以用 reflec

空空如也

空空如也

1 2 3 4 5
收藏数 85
精华内容 34
关键字:

index属性vb