精华内容
下载资源
问答
  • 修改了VBA插件启动时提示下标越界的问题 更改了工程文件名和DLL文件名,去掉了开头的VB字母 修改了安装文件的文件名为VBEnhancedSearch_Setup.exe 代码预览的相关行数默认值修改为12 增加定位时将代码窗体最大化...
  • 演示部分在窗口加一个command按钮启动后把窗体最大化,方便观看.****************************************Private Sub Command1_Click()Sub Command1_Click()这里不妨用10000个元素,事实上在窗体打出的第一个数字...

     

    '演示部分
    '
    在窗口加一个command按钮
    '
    启动后把窗体最大化,方便观看.

    '****************************************
    Private Sub Command1_Click()
    '这里不妨用10000个元素,
    '
    事实上在窗体打出的第一个数字时,排序就已经完成了!!.
    '
    可以不用再考虑排序的效率了
    Dim myAy(1000010As Long
    Dim i As Long
    Dim j As Long


    '进行随机的给数组赋值
    For i = 0 To UBound(myAy, 1)
      
    For j = 0 To UBound(myAy, 2)
       myAy(i, j) 
    = Fix(10000 * Rnd)
      
    Next
    Next

    '输入到窗口
    Dim cl As Long
    cl 
    = Val(InputBox("请输入要排序的列 1~10"))
    Cls
    dSort myAy, cl
    Print
    Print Tab(cl * 10); "" & cl; "列排序"
    Print
    For i = 0 To UBound(myAy, 1)
       
    For j = 0 To UBound(myAy, 2)
          
    Print Tab(j * 10); myAy(i, j);
       
    Next
       
    Print
    Next
     
    End Sub

    '************************************************



    '升序快速排序法
    Sub QkSort(Ay() As Long, Io As Long, Jo As Long, index() As Long)

    '''''''''''''''''''''''''''''''
    '
    Ay()只能传入一维数组
    '
    index()传入一维数组,注意:数组上标一定要和AY()一样
    Dim i As Long, j As Long, X As Long, tp As Long
    Dim bQ As Boolean 'i到j跳跃开关
      '初始化
      i = Io
      j 
    = Jo
      X 
    = Ay(i)
      
      
    '一轮排序
    Do While i < j
        
    If Not bQ Then
            
    If Ay(j) < X Then
            tp 
    = Ay(j): Ay(j) = Ay(i): Ay(i) = tp
            tp 
    = index(j): index(j) = index(i): index(i) = tp
            bQ 
    = True
            
    Else
            j 
    = j - 1
            
    End If
        
    Else
            
    If Ay(i) > X Then
            tp 
    = Ay(j): Ay(j) = Ay(i): Ay(i) = tp
            tp 
    = index(j): index(j) = index(i): index(i) = tp
            bQ 
    = False
            
    Else
            i 
    = i + 1
            
    End If
        
    End If
     
    Loop
     
    '递归
      If i < Jo Then QkSort Ay, j + 1, Jo, index '注意靠后的要加1
      If Io < j Then QkSort Ay, Io, i, index
    End Sub


    '二维数组排序子程序
    Sub dSort(a() As LongByVal keyCol As Integer)
    ''''''''''''''''''''''''''''''''''
    '
    dSort子程序
    '
    a()数组,只能传入二维数组
    '
    keycol参数是要排序的列
    '
    '''''''''''''''''''''''''''''''''''

    Dim Row As Long
    Dim Col As Long
    Dim idx() As Long '存放需要排序的列
    Dim index() As Long '存放一个索引.方便操作其他非排序列
    Dim i As Long
    Dim j As Long
    Dim temp As Long
    Dim b() As Long '一个过渡的二维数组.

    '初始化
    Row = UBound(a, 1)
    Col 
    = UBound(a, 2)
    ReDim b(Row, Col)
    ReDim idx(Row)
    ReDim index(Row)

    '初始化排序的列的数组,及索引数组
    For i = 0 To Row
     idx(i) 
    = a(i, keyCol)
     index(i) 
    = i
    Next

    '根据排列的数组对索引列排序
    '
    使用快速排序法
    QkSort idx, 0, Row, index

    '整个二维数组,根据索引进行排序.
    For j = 0 To Col
      
    For i = 0 To Row
        b(i, j) 
    = a(index(i), j)
      
    Next
    Next
    For i = 0 To Row
      
    For j = 0 To Col
        a(i, j) 
    = b(i, j)
      
    Next
    Next

    End Sub

    展开全文
  • Ctrl F8:当文档窗口不是最大化时,激活键盘上的方向键,用以调整窗口的大小。Ctrl Shift F8 组合键 扩展所选区域或块。 F9:更新所选域。Ctrl F9:插入空域。Alt F9:在所有的域代码及其结果间进行切换。Shift F9...
  • SendMessage 调用一个窗口窗口函数,将一条消息发给那个窗口 SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 ...
  • 中文API支持库(1.0-0

    2009-04-17 08:28:19
    _寻找窗口() 寻找窗口列表中第一个符合指定条件的顶级窗口(在vb里使用:FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄;该类是所有运行中vb执行程序的一部分。获得句柄后,可用api函数...
  • 实例001 启动VB 实例002 设置工程属性 实例003 定制工具栏 实例004 窗体的布局 实例005 对齐控件 实例006 在工程中查找文本 实例007 定制编程环境 1.2 VB应用程序的开发步骤 实例008 创建或打开新工程 实例...
  • 实例001 启动VB 实例002 设置工程属性 实例003 定制工具栏 实例004 窗体的布局 实例005 对齐控件 实例006 在工程中查找文本 实例007 定制编程环境 1.2 VB应用程序的开发步骤 实例008 创建或打开新工程 实例...
  • 修改扩展界面支持库一,禁止透明标签在父窗口刷新自动刷新,以解决其导致窗口刷新缓冲的问题。 8. 改进应用接口支持库中“设置屏幕分辨率”命令。 9. 修改外部数据库在“表中记录数为零”可能导致程序崩溃的...
  • 圆角化窗口.ec 在任务栏显示或隐藏.ec 在线更新.ec 在线更新2.ec 在 线查找歌词.ec 地理位置查询.ec 堕之星辰1.2.ec 填充树型框.ec 复件 我的测试易模块.EC 复件 提示框模块2.72 Alpha版.ec 复件 提示框模块3.0版.ec...
  • 1345个易语言模块

    2012-01-27 19:41:59
    圆角化窗口.ec 在任务栏显示或隐藏.ec 在线更新.ec 在线更新2.ec 在 线查找歌词.ec 地理位置查询.ec 堕之星辰1.2.ec 填充树型框.ec 复件 我的测试易模块.EC 复件 提示框模块2.72 Alpha版.ec 复件 提示框模块3.0版.ec...
  • 1350多个精品易语言模块提供下载

    热门讨论 2011-06-06 17:51:09
    圆角化窗口.ec 在任务栏显示或隐藏.ec 在线更新.ec 在线更新2.ec 在 线查找歌词.ec 地理位置查询.ec 堕之星辰1.2.ec 填充树型框.ec 复件 我的测试易模块.EC 复件 提示框模块2.72 Alpha版.ec 复件 提示框模块3.0版.ec...
  • 当设定为[Enabled](启动,如果你的系统中所安装的硬盘有更动,在POST的开机过程中,屏幕会出现一道提示讯息。 First Boot Device / Second Boot Device / Third Boot Device / Boot Other Device: 在[First ...
  • DLL函数查看器V3.5

    热门讨论 2013-07-24 10:10:37
    程序启动时会优先读取配置文件,如果文件不纯在则会访问注册表. 8.如果你觉得这个美化窗口很浪费资源,可以打开注册表修改如下项值即可关闭 [HKEY_CURRENT_USER\Software\ViewApiList] "UI"=dword:00000000 9.如果...
  • 实例183 防止数据保存出现运行错误 338 4.9 数据删除 340 实例184 删除表格中指定的记录 340 实例185 利用SQL语句删除数据 341 4.10 数据记录 343 实例186 判断数据记录总数 343 实例187 判断数据记录位置...
  • 实例183 防止数据保存出现运行错误 338 4.9 数据删除 340 实例184 删除表格中指定的记录 340 实例185 利用SQL语句删除数据 341 4.10 数据记录 343 实例186 判断数据记录总数 343 实例187 判断数据记录位置...
  • 像坐标控制、旋转矩阵、定时器、生成图像、数据初始、矩阵乘法、坐标旋转、判断是否是顺时针方向排列、鼠标按下、放开的动作等,都可在本源码中得以体现。 Java编写的显示器显示模式检测程序 2个目标文件 内容...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
    像坐标控制、旋转矩阵、定时器、生成图像、数据初始、矩阵乘法、坐标旋转、判断是否是顺时针方向排列、鼠标按下、放开的动作等,都可在本源码中得以体现。 Java编写的显示器显示模式检测程序 2个目标文件 内容...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    2.2 公用语言运行环境与公用语言规范.13 2.3 开 发 工 具 .17 2.4 小 结 .19 第三章 编写第一个应用程序 .20 3.1 Welcome 程序 .20 3.2 代 码 分 析 .20 3.3 运 行 程 序 .23 .4 添 加 注 释 .25 ...
  • C#微软培训资料

    2014-01-22 14:10:17
    2.2 公用语言运行环境与公用语言规范.13 2.3 开 发 工 具 .17 2.4 小 结 .19 第三章 编写第一个应用程序 .20 3.1 Welcome 程序 .20 3.2 代 码 分 析 .20 3.3 运 行 程 序 .23 .4 添 加 注 释 .25 ...
  • vc++ 应用源码包_1

    热门讨论 2012-09-15 14:22:12
    任务管理器应该大家都很熟悉,论坛里也有好多的任务管理器的源码,解决CListCtr刷新滚动条跳到开始处。 VC++实现网络连接查看器源码 非常好的一个实例,把网络连接的UDP/TCP都插入到CList控件中显示出来。 VC++...
  • vc++ 应用源码包_2

    热门讨论 2012-09-15 14:27:40
    任务管理器应该大家都很熟悉,论坛里也有好多的任务管理器的源码,解决CListCtr刷新滚动条跳到开始处。 VC++实现网络连接查看器源码 非常好的一个实例,把网络连接的UDP/TCP都插入到CList控件中显示出来。 VC++...
  • vc++ 应用源码包_6

    热门讨论 2012-09-15 14:59:46
    任务管理器应该大家都很熟悉,论坛里也有好多的任务管理器的源码,解决CListCtr刷新滚动条跳到开始处。 VC++实现网络连接查看器源码 非常好的一个实例,把网络连接的UDP/TCP都插入到CList控件中显示出来。 VC++...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    vb实例。 p2p+technology 文档。 P2P视频技术源码(含开发文档) 目前的协议有如下一些特点: 1) 客户向服务器发送请求, 每个请求的长度不定. 请求的长度在第一个INT中指定. 2) 每个服务器通常会向多种客户提供服务...
  • vc++ 应用源码包_5

    热门讨论 2012-09-15 14:45:16
    任务管理器应该大家都很熟悉,论坛里也有好多的任务管理器的源码,解决CListCtr刷新滚动条跳到开始处。 VC++实现网络连接查看器源码 非常好的一个实例,把网络连接的UDP/TCP都插入到CList控件中显示出来。 VC++...
  • vc++ 应用源码包_4

    热门讨论 2012-09-15 14:38:35
    任务管理器应该大家都很熟悉,论坛里也有好多的任务管理器的源码,解决CListCtr刷新滚动条跳到开始处。 VC++实现网络连接查看器源码 非常好的一个实例,把网络连接的UDP/TCP都插入到CList控件中显示出来。 VC++...
  • vc++ 应用源码包_3

    热门讨论 2012-09-15 14:33:15
    任务管理器应该大家都很熟悉,论坛里也有好多的任务管理器的源码,解决CListCtr刷新滚动条跳到开始处。 VC++实现网络连接查看器源码 非常好的一个实例,把网络连接的UDP/TCP都插入到CList控件中显示出来。 VC++...
  • Java开发技术大全(500个源代码).

    热门讨论 2012-12-02 19:55:48
    HelloNative.obj 用VB编译生成的目标文件 HelloNativeTest.java 测试本地是否成功的类文件 instanceVar.java 定义一个实例成员变量 invokeByObject.java 对象实参传递示例程序 invokeByValue.java 传值调用...
  • 10.2.3 启动调试模式 538 10.2.4 修改变量的值 542 10.3 添加调试代码 542 10.3.1 使用断言 543 10.3.2 添加自己的调试代码 544 10.4 调试程序 549 10.4.1 调用堆栈 549 10.4.2 单步执行到出错位置 ...

空空如也

空空如也

1 2
收藏数 31
精华内容 12
关键字:

vb启动时窗口最大化