karl_han的专栏

<br />上面代码省略了……<br />h8 = FindWindowEx(h7, 0, "TGridPanel", vbNullString)<br />h9 = FindWindowEx(h8, 0, "TEdit", vbNullString)<br />h10 = FindWindowEx(h8, h9, "TEdit", vbNullString)<br />SendMessage h9, WM_SETTEXT, 0, ByVal "test1"<br />SendMessa

用VB6.0实现将窗体最小化到系统托盘区 两个方法均测试部分有效或完全有效1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas3、在Module1中写下如下代码：Option ExplicitPublic Const MAX_TOOLT

方法一：Error方法就是采用通用的错误捕获功能On Error Goto 行号       '遇到错误，转到行号处处理On Error Resume Next '忽略错误，继续执行On Error Goto 0           '强制取消错误捕获功能Function IsNotEmpty(ByVal sArray As Variant) As Boolean '判断数组是

Option ExplicitPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _     (ByVal hwnd As Long, ByVal lpOperation As String, _      ByVal lpFile As String, ByVal lpParame

Dim WshShell, bKeySet WshShell = CreateObject("Wscript.Shell")bKey = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")MsgBox bKey

'Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As

Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, B

1.当发现你的项目Project注册控件（比如增加component的ACTIVEX 控件）失败，显示错误。应该尝试使用run as administrator的方式运行VB.EXE程序并加载工程，然后再添加控件。2. 如果此种方法可行。修改VB.EXE，属性，run as administrator，之后再双击打开工程，都可以默认按照run as administrator方式打开。...