vb
frost_007
ERP
展开
-
获取一个目录下的文件结构
环境:VB6控件:一个List,一个TextBox,一个Label代码:Dim wpath As StringDim cnt As IntegerPublic Function GetExtName(strFileName As String) As String Dim strTmp As String Dim strByte As String Dim i As Long F原创 2016-05-05 14:02:33 · 295 阅读 · 0 评论 -
ADO的Type
当初找了好久才找到的ADO的所有TypePublic Function SQLDataTypeName(dtIndex) Select Case dtIndex Case adEmpty: SQLDataTypeName = "Empty" Case adTinyInt: SQLDataTypeName = "TinyInt" Case ad原创 2016-05-05 14:25:15 · 233 阅读 · 0 评论 -
获取一个数据库中的Table
环境:VB6 首先要引入ADO(ActiveX Data Object) 还有 ADO Ext. 2.8实现:第一步,连接数据库ADO连接数据库就不说了,生成DBcnn第二步,定义DBC=New ADOX.Catalog。设置DBC的ActiveConnection DBC.ActiveConnection=DBcnn然后,DBC.Tables就是所有的表和视图。 DBC.Tables(i)原创 2016-05-05 14:48:14 · 337 阅读 · 0 评论 -
VB修改注册表
以前找到一个修改注册表的模块。 功能很全,不知道是谁写的。 有时候,由于Window权限设置,从开始运行那里不能启动注册表,那么用这个就可以修改注册表了。VB代码:Option ExplicitGlobal Const REG_SZ As Long = 1Global Const REG_DWORD As Long = 4Global Const HKEY_CLASSES_ROOT = &H原创 2016-05-05 16:42:43 · 1806 阅读 · 0 评论 -
模拟鼠标移动和点击
模拟鼠标点击很常用, 模拟鼠标移动不常用,但是当你用到时就明白了。该加的控件都加上,命名随意。 代码很少Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPrivate Declare Sub mouse_event Lib "user32" (ByVal d原创 2016-05-05 16:54:31 · 2500 阅读 · 1 评论 -
截图工具
Windows自带了snipping tool。但是在某些情况下用起来非常卡。 所以那时只好用了这个工具,用来截测试结果图。环境:VB6 两个窗体,一个模块 第一个窗体,要设置的很小,不要影响到正常操作。 第二个窗体,设为无边框,上面放一个shape,最好设为虚线。第一个窗体:Private Declare Function GetKeyState Lib "User32" (ByVal n原创 2016-05-16 17:51:42 · 490 阅读 · 0 评论 -
VB代码撰写约定
转载自月光博客原地址:http://www.williamlong.info/archives/133.html这篇文章是作者在10年前写的,虽然现在没有谁再用VB6来开发软件了,但是仍然有些老系统需要维护。需要的看看,不需要的略过。一、变量和对象 程序中的变量遵循匈牙利表示法,即“前缀+变量含义”,变量的含义为一个或多个英文单词,每个单词的第一个字转载 2016-05-06 14:27:40 · 456 阅读 · 0 评论 -
常用方法
1.日期范围判断Public Function InDate(Par_date As String, par_from As Variant, par_to As Variant) As IntegerDim i As Integer InDate = 0 If IsDate(Par_date) = False Then Exit Function End I原创 2016-06-15 18:40:06 · 289 阅读 · 0 评论