Option ExplicitPrivate WithEvents IE As VBControlExtenderPrivate Sub Command1_Click() Dim IE Set IE = Me.Controls.Add("Shell.Explorer.2", "IE", ...
分类：
Web程序 时间：
2014-08-21 11:13:54
阅读次数：
460
Dim doc As HTMLDocument Set doc = WebBrowser1.Document Dim inputs As IHTMLElementCollection Set inputs = doc.getElementsByTagName("input"...
分类：
Web程序 时间：
2014-08-19 14:17:44
阅读次数：
217
Private withevents M_Conn as adodb.connectionPrivate CmdFinished as booleansub somesub AdoCmd.Execute , , adAsyncExecute do while not CmdFinishe...
分类：
其他好文 时间：
2014-08-19 12:35:44
阅读次数：
173
vb.net是vb与面向对象技术结合的产物。90年代，基于面向对象的vb6使编程变得快捷、方便。但是随着社会的发展，软件要解决的问题越来越复杂，基于面向对象已经不能满足要求了。我们知道面向对象技术能解决大型复杂问题。随着面向对象技术的发展，vb加强了对面向对象技术的吸收，最终形成vb.net。
vb.net继承了vb的优点，比如可视化开发、语法逻辑清晰等等。也继承了vb的数据类型、运算符...
分类：
Web程序 时间：
2014-08-12 19:03:44
阅读次数：
225
在做第一次机房收费系统中，有一项很令人头疼的事情，那就是临时用户的问题，在结账的时候，我们需要考虑该用户是固定用户还是临时用户，原来在用VB6.0做的时候，如果我们实现了这个功能，那么在代码中会出现很多的IF....else 语句，同时，我们必须要调用数据设定窗体中的数据，这样的话，会很麻烦，写出来的代码也会很乱，如今学习了设计模式，我们可以利用策略模式来实现对不同用户的消费金额进行计算。将不同的...
分类：
其他好文 时间：
2014-08-12 17:23:37
阅读次数：
272
1 '很简单的配置密码验证提示 2 3 Dim add As String 4 add = Trim(InputBox("请输入配置密码", "报表配置")) 5 If add = "" Then 6 MsgBox "密码不能为空，请重新输入！", 64...
分类：
其他好文 时间：
2014-07-29 11:52:16
阅读次数：
496
工作中免不了需要为自己的程序添加日志，我也从网上扒拉了一个老外写的模块，修改修改了下，凑合用吧。 1 Option Explicit 2 '************************************** 3 ' 模块名称: AppendToLog 通过API写入日志 4 '******...
分类：
移动开发 时间：
2014-07-29 11:48:56
阅读次数：
938
平常搞数据库操作多了就想把经常用的内容放在一起，我也懒，在一本书里的工程例子挑了一个bas，修修改改，凑合这用吧。 1 Public strCnn As String '数据库连接字符串 2 Public AdoCnn As ADODB.Connection '数据库连接 3 Public IsC....
分类：
数据库 时间：
2014-07-29 11:46:47
阅读次数：
227
在一次做图片打印的时候，对位置的调整老是不得法，后来通过CBM666老师的帮助才解决问题，分享以下他给的帮助。'PaintPicture pic, destX, destY, destWidth, destHeight, scrX, scrY, scrWidth, scrHeight'其中Pic:为...
分类：
其他好文 时间：
2014-07-29 11:45:16
阅读次数：
253
因为工作原因，自学会了vb后陆续接触了其它语言，在工作中经常需要与各家使用不同语言公司的开发人员做程序对接，初期特别需要一个各种语法的对照比，翻看了网络上已有高人做了整理，自己在他基础上也整理了一下，摘抄如下（最后附上原作，网上也可以找到）：类别Vb6 & Vb.NetDelphiC#语法不区分大小...
分类：
编程语言 时间：
2014-07-29 11:42:06
阅读次数：
376
