Visual Basic 6.0
文章平均质量分 61
Lee
这个作者很懒,什么都没留下…
展开
-
VB如何将数据导入WORD模版打印
以前做的一个单据外观小程序,客户可以编辑word模版改变单据的样式,废话不说了,直接上图和代码:http://leek.woku.com/article/4876141.html Public Sub ExporToWord2003()On Error GoTo DocERR **************************原创 2009-08-03 09:43:00 · 3836 阅读 · 1 评论 -
VB 如何去掉引入ImageList的ICO图标背景变黑问题
在VB设计过程中图标显示是正常的,但在运行和生成EXE执行文件后图标的背景边框就显示为黑色。很不美观。很多朋友都遇到过这样的问题。有时换成其他格式的ICO文件就可以使用,不过要随意使用自己喜欢的小图标ICO文件就需要按照以下步骤设计了。 (上图为图标的背景边框就显示为黑色)原创 2012-02-16 15:25:49 · 2515 阅读 · 0 评论 -
VB如何执行命令 打开资源管理器 并选择指定的文件夹或文件
Option ExplicitPrivate Sub Command1_Click() Dim cmd As String '*打开资源管理器 焦点 在【MyDotNetFiles】文件夹 cmd = "cmd /k explorer /select,d:\MyDotNetFiles" '*打开资源管理器 焦点 在【sn_office2007.t原创 2012-02-16 15:13:25 · 6043 阅读 · 1 评论 -
vb代码修改硬盘的分区序列号
谁说VB的功能弱,看看这个程序! 原本我的一个商用程序被破解了,气氛啊~~~ 程序只是将一些关键的注册信息是隐藏到注册表内的。反汇编后很容易被破解,我就想到通过修改这个硬盘分区的序列号来隐藏一些关键的信息虽然只有4个字节。作为动态的内部认证码。外部认证码通过硬件ID硬盘的物理序列号加密计算获得。 通过这些处理增加了解密的复杂度,还是有一些效果的。主要是分区表信息文原创 2012-02-16 15:23:50 · 2085 阅读 · 0 评论 -
VB制作的程序 有时第一次运行提示安装 office 的原因及解决办法
原因1:如果Office是Administrator這個用戶安裝的, 如果你用別的用戶,比如User, Guest, User01,,..... 這些Windows用戶去運行你的程序,就會提示錯誤. 如果用IS的安裝程序的話, 只要將安裝程序在user用戶下再安裝一下就可以 如果是用VB,或Windows Installer的安程序,則需要將Office安裝盤放入光驅,以安原创 2012-02-16 15:28:05 · 2723 阅读 · 0 评论 -
如何在ACCESS数据库表中创建各种数据类型的字段
Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()'长整型On Error GoTo dataErrDim ConnStr As StringDim SQL As String ConnStr = "Provider=Microsof原创 2012-02-16 14:19:09 · 1075 阅读 · 0 评论 -
vb6创建子进程并等待子进程的退出。
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32原创 2012-02-16 14:23:10 · 1311 阅读 · 0 评论 -
如何在VB中利用listview快速显示10000以上的记录
光从代码优化来看,个人支持yunyu97,其实如果是使用控件的话用什么编译语言之间的差距不会很大,因为大部分操作是在控件中的代码做的。即使是使用vb,优化好了,速度也是很快的。本例中由于listview现有行数已知,yunyu97的代码还可以进一步优化为:Dim nItems As ListItemsDim nItem As ListItemDim i As LongWith原创 2012-02-24 09:25:07 · 1789 阅读 · 0 评论 -
程序设计与数据库结构的粒度
先从我做的一个项目开始这个话题,我单位做的一卡通系统在原来设计的的数据库结构上不断的升级目前好像有点吃不消了。原来我给每个用户分配的用户类型来管理用户的单价。用户类型 编号 4 数字(3) - √ - 名称 20 文本(202) - × -水电表类型价格表 编号 4 数字(3) - √ - 类型 4 数字(3) 1 √ - 子表号 4 数字(3) 1 × - 单价 8 货币(6) 0原创 2012-02-24 09:18:27 · 1149 阅读 · 0 评论 -
VB使用ADOX压缩修复ACCESS数据库文件的类模块
Option Explicit'//***********************************************************************'//类模块名称:ClsCompactDatabase'//版权所有:米特仪表有限公司 版权所有'//开发作者:段利庆(Lee)'// QQ:14035344'//原创 2012-02-24 09:11:21 · 813 阅读 · 0 评论 -
运行程序时自动启动office安装程序,问题的原因及解决办法。
原因:程序引用了Office的组件 有的小程序并没有引用,并且有的计算机安装了CAD类似于office打开了CAD的安装 很难具体说清楚是怎么回事,也没有官方的说明 以下是网友对这个问题的说明,也许对大家有用。本人测试过,弹出安装后,继续沿着向导安装完成,下次再起动程序就正常了。--------------------------原创 2011-11-14 13:21:49 · 905 阅读 · 0 评论 -
SQL分组后采用LAST函数查询时字段位置的秘密
SQL分组后采用LAST函数查询时,字段位置将影响到每个组的查询结果的排序规律。如果采用了LAST函数来获得最后一条查询结果,有效的排序是很重要的。 例子:ACCESS 视图设计(一):SELECT 杆塔信息.编号,监控常规数据.时间, 监控常规数据.线路名称,原创 2011-10-08 21:02:04 · 483 阅读 · 0 评论 -
递归有深度,堆栈会溢出。
堆栈空间溢出(错误 28) 堆栈是内存的一个工作区,会随着程序运行的需要而增长或缩小。此错误有以下的原因和解决方法: 有太多活动的 Function、Sub 或Property 过程调用。检查过程的嵌套是否太深,尤其是递归过程,即自己调用自己翻译 2011-10-08 21:00:51 · 553 阅读 · 0 评论 -
微软开发工具(VC,VB,Foxpro)系列MSDN98双CD硬盘单文件安装解决办法
每次安装MSDN98都必须把两张光盘带上,安装完成CD1后光驱放入CD2才能正确的引导安装程序完成整个的安装。如果计算机上没有光驱只有采用U盘来安装的话就没有办法了。 以前听说以前单位的一个朋友有一个办法可以解决安装问题。今天给咨询了他。找到了解决办法。原创 2011-09-12 09:50:22 · 628 阅读 · 0 评论 -
VB使用ADOX压缩修复ACCESS数据库文件的类模块
<br />Option Explicit'//***********************************************************************'//类模块名称:ClsCompactDatabase'//版权所有:米特仪表有限公司 版权所有'//开发作者:段利庆(Lee)'// QQ:14035344'// http://www.duanliqing.kudo.cn'// ht原创 2010-07-28 16:42:00 · 619 阅读 · 0 评论 -
数据库中的记录如何递归添加TreeView
private sub startAdd(treeview tv) dim s as string dim root as Node '在这里先可以创建一个根节点 set root=tv.nodes.add(,,key,"这是根节点") root.expand s="select *from tab where parentid='0'" '进行数据库查询 w原创 2013-02-21 15:11:35 · 573 阅读 · 0 评论