2009年10月_cncco

12月 11月 10月 09月 08月 07月 06月 05月 01月

原创 VB中第三方控件(OCX)脱壳的方法

　　在用VB编程中合理的使用第三方控件，往往能够事半功倍。但是使用第三方控件也有不好的地方，那就是为了保证程序正常运行，必须使程序能够在系统目录或程序目录下找到所用的第三方控件。要做到这一点通常有两种办法：一是把控件和程序制成一个压缩包发行，这样的缺点是有可能导致在程序传播过程中丢失控件文件。二是制作安装程序，缺点是制作过程烦琐。而且上面两种办法也不符合绿色软件的要求。所谓的绿色软件是指软件只有

2009-10-28 17:06:00 1477

转载 VB调用系统的"打印机设置"和"页面设置".

VB调用系统的"打印机设置"和"页面设置". Option Explicit Const FW_NORMAL = 400 Const DEFAULT_CHARSET = 1 Const OUT_DEFAULT_PRECIS = 0 Const CLIP_DEFAULT_PRECIS = 0 Const DEFAULT_QUALITY = 0 Const D

2009-10-15 16:21:00 5724

转载两个MSFlexGrid的函数点击表头排序函数以及依据内容自动调整列宽为最合适的宽度

MSHFLEXGRID也可以用的哦~Public Const STR_SORT_ASC = "△"Public Const STR_SORT_DESC = "▽"//排序函数Public Sub Sort(sgrd As MSHFlexGrid, y As Single) With sgrd If y >= .RowPos(0) And y < .RowPos(1)

2009-10-13 23:28:00 1195 1

原创在VB中创建和使用动态数组控件的方法总结

在VB中,MSHFEXGRID不支持文本框,为了解决这个问题,一般的方法就是通过一个文本框的显示和隐藏,并获得表格单元的坐标,来实现向MSHFLEXGRID中录入数据的,具体方法我记得在本博中有,就不说了,自己搜一下今天要说的是在MSFLEXGRID中动态添加多个控件的问题: 先看一个动态添加的例子:Option ExplicitPrivate WithEvents

2009-10-13 19:26:00 5726

原创在ADO下修改ACCESS字段名的方法与思路

字段名可以在ACCESS的窗口化操作界面或SQL语句来进行修改,但在ADO环境下,则不能修改,下面是变通的办法: DB.Execute "alter table [表] add [cz_temp] text(50)" 新建临时中转字段cz_temp DB.Execute "update [表] Set cz_temp=[A]" 把A字段数据复制到临时中转字

2009-10-04 20:23:00 2143