hehui211的专栏

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★控制光驱Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★打开电脑对应文件夹Shell "explorer.exe /e," & path, vbMaximizedFocus'explorer.exe /e资源管理方式打开path为路径Shell "explorer.exe /n," & Path, vbMaximizedFocus'explor

一、打开CD-ROM mciSendString("Set cdAudio door open wait",NULL,0,NULL); 二、关闭CD_ROM mciSendString("Set cdAudio door closed wait",NULL,0,NULL); 三、关闭计算机 OSVERSIONINFO OsVersionInfo; //包含操作系统版本信息的数据

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★透明定义Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★光标穿透有形无影'声明Const LWA_COLORKEY = &H1Const LWA_ALPHA = &H2Const GWL_EXSTYLE = (-20)Const WS_EX_LAYERED = &H80000Const WS_EX_TRANSPARENT As

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★自动运行 Const REG_SZ As Long = 1 Const HKEY_LOCAL_MACHINE = &H80000002Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long)

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★显示桌面Const CSIDL_APPDATA = &H1AConst MAX_PATH = 260Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _  (ByVal hw

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★获取指针位置Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Type POINTAPI  X As Long  Y As LongEnd Type '

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★16进制to10进制Function chex(tt As String) As IntegerDim ii As IntegerDim ee As Integer chex = 0 tt = UCase(Trim(tt)) For ii = 1 To Len(tt) S

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★窗体前置或后置Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As L

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★托盘定义Const MAX_TOOLTIP As Integer = 64Const NIF_ICON = &H2                          '删除图标Const NIF_MESSAGE = &H1Const NIF_TIP = &H4Const NIM

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★嵌入桌面Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPr

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★关闭显示器关机Private Declare Function SendMessage Lib "user32" _Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg _As Long, ByVal wParam As Long,

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★打开网站1Private Declare Function ShellExecute Lib "shell32.dll" Alias _    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _

最近做了一个数据库工具，数据库数据导出成excel后自动打开excel文件，但发现第二次打开同一个文件时（打开前用VB关闭了的），无法正常运行。网上也是很多人碰到此问题，无法解决。后来我不用VB关闭excel，而是模拟操作手动关闭excel。这样就完全可以了。代码如下：Private Declare Function FindWindow% Lib "user32" Alias "FindWi

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★剪粘板应用Clipboard.Clear'剪粘板清除Clipboard.SetText Text2.SelText'将text2中的选取文字复制到剪粘板上Text2.SetText=""'如果想剪粘则加此行Text1.Text = Clipboard.GetText'粘贴所选字符放