2012年12月_lbuskeep的专栏_蓝图

12月 11月 10月 08月 07月 06月 05月 04月 03月 02月 01月

原创 VB 延时类

Option Explicit Private Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd Type Private Const WAIT_ABANDONED& = &H80&Private Const WAIT_ABANDONED_0& = &H80&Private C

2012-12-06 07:23:41 1088

原创 vb 读取文件指定行

Public Function ReadRowConnent(FileName As String, iRow As Integer) 'FileName = App.Path & "\Config.ini" If Len(Dir$(FileName)) = 0 Then err.Raise 53 '文件没有找到 '这里处理没找到文件事件

2012-12-06 03:38:58 3256

原创 VB 快速读取文件内容的方法

读取text文件的最快方法是使用Input$函数，就象下面的过程：Function FileText(ByVal filename As String) As StringDim handle As Integer' 判断文件存在性If Len(Dir$(filename)) = 0 Then Err.Raise 53 '文件没有找到End If' 以binary模式打开文件

2012-12-06 02:30:29 4195 1

原创 VB 注册表操作

'*****下面先声明一些常量******************************************Public Const HKEY_CLASSES_ROOT = &H80000000Public Const HKEY_CURRENT_CONFIG = &H80000005Public Const HKEY_CURRENT_USER = &H80000001Publ

2012-12-06 02:24:11 1382

原创 vb webbrowser 在原窗口打开弹出新窗口的链接

代码1：Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub 代码2：Private S

2012-12-05 19:51:56 9057