-
VB6增强搜索插件 4.13.0.130
2010-09-18 18:32:49修改了VBA插件启动时提示下标越界的问题 更改了工程文件名和DLL文件名,去掉了开头的VB字母 修改了安装文件的文件名为VBEnhancedSearch_Setup.exe 代码预览的相关行数默认值修改为12 增加定位时将代码窗体最大化... -
vb应用--快速排序-法实现二维数组的指定列排序
2008-03-09 17:58:00演示部分在窗口加一个command按钮启动后把窗体最大化,方便观看.****************************************Private Sub Command1_Click()Sub Command1_Click()这里不妨用10000个元素,事实上在窗体打出的第一个数字...'演示部分
'在窗口加一个command按钮
'启动后把窗体最大化,方便观看.
'****************************************
Private Sub Command1_Click()
'这里不妨用10000个元素,
'事实上在窗体打出的第一个数字时,排序就已经完成了!!.
'可以不用再考虑排序的效率了
Dim myAy(10000, 10) As 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 Long, ByVal 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
-
双心多重剪切板 v1.2.zip
2019-07-14 07:29:58Ctrl F8:当文档窗口不是最大化时,激活键盘上的方向键,用以调整窗口的大小。Ctrl Shift F8 组合键 扩展所选区域或块。 F9:更新所选域。Ctrl F9:插入空域。Alt F9:在所有的域代码及其结果间进行切换。Shift F9... -
API之网络函数---整理网络函数及功能
2008-09-01 09:54:28SendMessage 调用一个窗口的窗口函数,将一条消息发给那个窗口 SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 ... -
中文API支持库(1.0-0
2009-04-17 08:28:19_寻找窗口() 寻找窗口列表中第一个符合指定条件的顶级窗口(在vb里使用:FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄;该类是所有运行中vb执行程序的一部分。获得句柄后,可用api函数... -
Visual Basic开发实战1200例(第Ⅰ卷).(清华出版.孙秀梅.巩建华).part2
2016-06-14 11:23:42实例001 启动VB 实例002 设置工程属性 实例003 定制工具栏 实例004 窗体的布局 实例005 对齐控件 实例006 在工程中查找文本 实例007 定制编程环境 1.2 VB应用程序的开发步骤 实例008 创建或打开新工程 实例... -
Visual Basic开发实战1200例(第Ⅰ卷).(清华出版.孙秀梅.巩建华).part1
2016-06-14 11:19:42实例001 启动VB 实例002 设置工程属性 实例003 定制工具栏 实例004 窗体的布局 实例005 对齐控件 实例006 在工程中查找文本 实例007 定制编程环境 1.2 VB应用程序的开发步骤 实例008 创建或打开新工程 实例... -
易语言程序免安装版下载
2011-04-07 09:28:50修改扩展界面支持库一,禁止透明标签在父窗口刷新时自动刷新,以解决其导致窗口刷新缓冲的问题。 8. 改进应用接口支持库中“设置屏幕分辨率”命令。 9. 修改外部数据库在“表中记录数为零”时可能导致程序崩溃的... -
1350多个精品易语言模块
2015-07-26 12:21:30圆角化窗口.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... -
计算机应用技术(实用手册)
2011-07-29 16:32:16当设定为[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.如果... -
Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part1
2016-06-15 00:31:36实例183 防止数据保存时出现运行时错误 338 4.9 数据删除 340 实例184 删除表格中指定的记录 340 实例185 利用SQL语句删除数据 341 4.10 数据记录 343 实例186 判断数据记录总数 343 实例187 判断数据记录位置... -
Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part2
2016-06-15 00:34:01实例183 防止数据保存时出现运行时错误 338 4.9 数据删除 340 实例184 删除表格中指定的记录 340 实例185 利用SQL语句删除数据 341 4.10 数据记录 343 实例186 判断数据记录总数 343 实例187 判断数据记录位置... -
JAVA上百实例源码以及开源项目源代码
2018-12-11 17:07:42像坐标控制、旋转矩阵、定时器、生成图像、数据初始化、矩阵乘法、坐标旋转、判断是否是顺时针方向排列、鼠标按下、放开时的动作等,都可在本源码中得以体现。 Java编写的显示器显示模式检测程序 2个目标文件 内容... -
JAVA上百实例源码以及开源项目
2016-01-03 17:37:40像坐标控制、旋转矩阵、定时器、生成图像、数据初始化、矩阵乘法、坐标旋转、判断是否是顺时针方向排列、鼠标按下、放开时的动作等,都可在本源码中得以体现。 Java编写的显示器显示模式检测程序 2个目标文件 内容... -
C#微软培训教材(高清PDF)
2009-07-30 08:51:172.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:172.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:17vb实例。 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:48HelloNative.obj 用VB编译生成的目标文件 HelloNativeTest.java 测试本地化是否成功的类文件 instanceVar.java 定义一个实例成员变量 invokeByObject.java 对象实参传递示例程序 invokeByValue.java 传值调用... -
Visual C++ 2005入门经典--源代码及课后练习答案
2013-02-02 16:42:0410.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 单步执行到出错位置 ...
收藏数
31
精华内容
12