程序
文章平均质量分 56
c945124
a
展开
-
VB:新建一个桌面
Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopA" _ (ByVal lpszDesktop As String, ByVal lpszDevice As String, pDevmode As String, _ ByVal dwFlags As Long, ByVal dwDesire原创 2005-05-23 03:11:00 · 543 阅读 · 0 评论 -
VB:更改桌面背景的例子
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Declare Function SystemParametersInfo Lib "user3原创 2005-05-23 03:46:00 · 991 阅读 · 1 评论 -
VB: 全局键盘、鼠标钩子
---------------------------------Form 安装钩子Private sub AddHook() 键盘钩子 lHook(0) = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf CallKeyHookProc, App.hInstance, 0) 鼠标钩子 lHook(1) = SetWindowsHookEx(原创 2005-05-23 23:51:00 · 2785 阅读 · 2 评论 -
VB: 用通用对话框同时选择多个文件
--------------------------------------用通用对话框同时选择多个文件-------------------------------------- 洪恩在线 求知无限--------------------------------------------名称-------------作用------------ mnuOpen原创 2005-05-23 23:13:00 · 2187 阅读 · 0 评论 -
VB: 写文件时怎样判断磁盘已满
建一窗体,加入一Label1 Caption属性为 "将文本框中的文件拷到A:盘"在其下加一文本框 text1 Text属性为 "c:/command.com"再下面加一Label2 Caption 属性为空再下面加一Command1 Caption属性为 "拷贝"加入以下代码Option ExplicitPrivate Declare Function GetDiskFreeSpace Lib原创 2005-05-23 23:08:00 · 749 阅读 · 0 评论 -
VB:防止程序多次运行并自动将已经运行的程序最大化显示
打开VB,新建一个工程,选择菜单中的“工程->工程1 属性”,把工程名称改为“P1”(我爱偷懒,能短则短 ^_^ ),把已有的一个窗体的“LinkTopic”属性改为“FormDDE”,把“LinkMode”属性改为“1 - Source”,添加一个PictureBox控件作为DDE执行控件,命名为picDDE。然后添加一个TextBox控件,命名为“txtInfo”,并把“MultiLi原创 2005-05-23 21:47:00 · 1395 阅读 · 1 评论 -
VB:置于最上层
Option ExplicitPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags原创 2005-05-23 12:38:00 · 508 阅读 · 0 评论 -
VB:实现“显示桌面”功能
在窗体上建立一个command1按钮Private Const VK_LWIN = &H5BPrivate Const KEYEVENTF_KEYUP = &H2Private Const VK_APPS = &H5DPrivate Const VK_PLAY = &HFAPrivate Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte原创 2005-05-23 02:57:00 · 728 阅读 · 0 评论 -
VB: 检测A盘是否写保护
在一些软件中,我们会发现,当软件运行到需要向A驱读写文件时,它会自动对A驱进行检测。如果用户没有按要求在A驱插入磁盘,程序会提示用户将磁盘插入到A驱中;如果需要向A驱进行写文件,而这时A驱里的磁盘“写保护”了,程序无法向其写文件,程序也会提示用户去掉磁盘的“写保护”。 这种智能化的提示功能能否在VB中实现呢?答案是肯定的! 用VB写过程序的人都应该知道,在VB中有一个非常有用的语句:ON ER原创 2005-05-23 22:47:00 · 500 阅读 · 0 评论 -
VB: ShellExecute 用法
ShellExecute 声明如下:Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lp原创 2005-05-23 22:30:00 · 2359 阅读 · 0 评论 -
实现随意开关explorer.exe的方法
在http://search.csdn.net/Expert/topic/2618/2618921.xml?temp=.2139551讨论了怎么开关explorer.exe,但是都没有完美的解决方法。本人可能可以提供一个方法:explorer.exe之所以一被关闭就会被重新启用,原因是这个程序是windows的shell,我这么说可能大家就明白了,只要用把windows的shell定义成其他的程序原创 2005-05-23 03:34:00 · 509 阅读 · 0 评论 -
VB:嵌入桌面的实现
在窗体安置command1按钮Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SetParent原创 2005-05-23 03:19:00 · 808 阅读 · 0 评论 -
VB:实现隐藏桌面图标功能
在窗体放置command1和command2按钮Option ExplicitPrivate Const SW_HIDE = 0Private Const SW_SHOW = 5Private Declare Function FindWindowEx Lib "user32" Alias _ "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2原创 2005-05-23 03:02:00 · 601 阅读 · 0 评论 -
VB: 进程监控
首先Timer的模块里面应该有Do ... Loop,或者While ... End While,这样Timer就不会自动退出了。关闭Timer的语句应该在程序退出前即将执行的地方。或者,你可以直接用END来关闭全部。如果你是做保护程序,那么完全可以不用Timer线程,直接把Timer的东西写到Main最后就可以了。这样程序就不会退出了。你需要在循环内加入一个判断,来确定是不是需要退出程序原创 2005-05-23 23:58:00 · 984 阅读 · 0 评论 -
VB: 遍历文件夹
如何用Dir()函数来列出C下所有TMP文件并且用文本框输出 下面是一个列出指定目录下所有符合要求的文件名的函数: Public Function AutoListFiles(ByVal sDirName As String,ByVal FileFilter As String ) As Boolean On Error GoTo RF_ERROR Dim sName As Strin原创 2005-05-23 23:28:00 · 2160 阅读 · 0 评论 -
VB: ShellWait示例
ShellWait示例先点击command3运行Notepad.exe然后再点点Command1如果在10秒之内关闭Notepad,则弹出提示框0如果10秒内未关闭Notepad.则弹出提示框258in a FormOption ExplicitDim ProcessID As LongPrivate Sub Command1_Click()Dim WaitHandle As Long原创 2005-05-23 22:15:00 · 636 阅读 · 0 评论 -
VB:不规则窗体的实现
http://search.csdn.net/Expert/topic/525/525279.xml?temp=.368252原创 2005-05-23 03:54:00 · 558 阅读 · 0 评论 -
VB: 强行删除目录或文件
有一各强行删除函数,很厉害Public Enum FO_Operation FO_MOVE = 1 FO_COPY = 2 FO_DELETE = 3 FO_RENAME = 4End EnumPublic Enum FOFlags FOF_MULTIDESTFILES = &H1 Destination specifies multiple files原创 2005-05-23 22:51:00 · 1680 阅读 · 0 评论