Snailqiu

Option ExplicitPrivate Declare Function GetTickCount Lib "kernel32" () As LongPrivate Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal 

引子 大师为一帮初学者讲解VB之道。 初学者问道：“VB很容易学习吗？” 大师答道：“是的。” 初学者问道：“VB的结构很简单吗？” 大师答道：“是的。” 初学者又问道：“VB程序很慢吗？” 大师轻轻咳嗽了一下：“呃，今天就讲到这里吧。” 内篇 1、 大师如是说：“人如果明确自己的位置，就可以避免不必要的烦恼；变量如果明确自己的类型，就可以避免不必要的错误。” 2、 大师去参观另一个高

Option ExplicitDeclare Function SetWindowsHookEx Lib "user32" Alias _"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _ByVal hmod As Long, ByVal dwThreadId As Long) As LongDeclare Functi

思路:在TIMER控件中检测当前文件的播放状态,如果为stopped,那么就重复播放Option ExplicitPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Strin

如何播放聲音檔或視訊檔以下是透過 mciSendString 函數執行 MCI 指令進而播放聲音檔的方法：mciSendString  "close c:/windows/media/Ding.wav", vbNullString, 0, 0mciSendString  "open c:/windows/media/Ding.wav", vbNullSt

 --------------------------------------------------------------------------------　　一打开WINDOWS，看着四四方方立在桌面上的应用程序窗口，您是否有些厌倦？别心烦，在WINDOW世界里，只要您能为之"心动",生活总是美丽而又精彩的。因而许许多多爱好"多样"的CFAN，便为自己的窗口做成了"透明的"、"不规

以下代码在模块中Option ExplicitPublic 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

Option ExplicitPrivate Sub Form_Load()Dim a As Integer, b As IntegerOn Error GoTo errhandlerSetAttr "c:/a.dll", vbNormal 为了能够对该文件进行读取,把隐藏属性重新设为NormalOpen ("c:/a.dll" For Input As #1 如文件已经存在,从中读出变量的值

函数AnimateWindow.    尽管MSDN页面上说这个函数是Win2000的最新函数，但经网友证实在Win98里就已经有这个函数了：Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long其中：　

以下代码在模块中Option ExplicitPublic Declare Function AppendMenu Lib "user32" Alias _"AppendMenuA" (ByVal hMenu As Long, ByVal wFlags _As Long, ByVal wIDNewItem As Long, ByVal _lpNewItem As String) As Long

Option ExplicitPrivate Const TOKEN_ADJUST_PRIVILEGES = &H20Private Const TOKEN_QUERY = &H8Private Const SE_PRIVILEGE_ENABLED = &H2Private Const ANYSIZE_ARRAY = 1Private Type LUIDlowpart As Longhighpar

　　   可以这样说，Active平台代表了Microsoft的世界观。使用ActiveX控件,来构筑包括从与用户交互和适应COM的事务处理监视器，到Web服务器，全部实现自动化的机构，这就是Microsoft的打算了。桌面用的、基于COM的组件叫做ActiveX控件。所谓ActiveX控件不过是遵从一定的标准、与客户端交互的COM对象而已。基于组件的应用开发,其方法和组装电子装置一样,可以用已制

在VB中实现"绿色"软件⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加 Winsock 控件（C：/Winddows/System/Mswinsck.ocx），再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：类型： “OCX”(也可以用默认的"CUSTOM")标识号： 101

Option ExplicitPrivate Sub Form_Activate()With Form1.ScaleWidth = 100.ScaleHeight = 100End WithForm1.CurrentX = 50Form1.CurrentY = 50Print "请单击窗体"End SubPrivate Sub Form_Click()Dim i As LongFor i = 0 

在Windows下编程,少不了和各种消息打交道.那么,如何得到各种消息的值呢使用API浏览器是一个好办法,但是API浏览器没有收录进所有的消息值.以下办法将可以得到所有的消息值以下代码在模块中Option ExplicitPrivate Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpP

form1代码:Private Sub Form_Load()   HookForm Me.hWndEnd SubPrivate Sub Form_Unload(Cancel As Integer)   UnHookForm Me.hWndEnd SubMoudle1代码:Private Declare Function CallWindowProc Lib "user32" Al

对程序员和编程爱好者来说，VB中类的技术是学习中的一个难点，在大型软件的开发过程中，模块（Moudle)、控件（Active ocx)、链接库（Active dll)和类（Class moudle)构成了系统化、高效化的软件工程，而类的技术是控件和链接库技术的基础，因此掌握类的理论和编程方法是非常有意义的。         （一）类的基本定义和应用概述；         　　类是包含了方法、属性、

使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：类型： "WAVE"标识号： 102语言： 中文（中国） ⑶保存资源文件，

函数定义我没加，自己找找加上吧！ Dim uSnapShot As Long 系统快照返回值Dim uResult As Long 遍历进程返回值Dim uProcess As PROCESSENTRY32 定义进程结构变量Dim meHandle As Long 进程句柄uSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCE