Example: Private Sub Command1()Dim a_hEnv As LongDim a_hDBC As LongDim s_District As LongDim u_District As Long<p>Dim Query As StringDim aToken ...
随着微软Windows产品风格的不断演进，各应用软件厂商也在跟进，但经常是主流的开发工具跟不上节奏，这时往往就需要用一些辅助的工具来编制那精美的界面了。本文只是略谈一点这方面的感受，举两个小工具的例子。 用ActiveBar制作Office97风格的菜单与工具条 在微软的最新97风格（以Office...
需要VB API函数： FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口 GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符 ------------------------------------------------------...
下面的代码向你演示在VB中如何创建一个快捷方式。 Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String,...
声明： Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nSh...
原帖及讨论：http://bbs.bccn.net/thread-164051-1-1.html*/ --------------------------------------------------------------------------------------*/ 出自： 编程中国 ...
这个小软件的功能，自然无法同久已成名的WPC（wallpaper changer）相媲美，但由于是自制的，用起来又别有一番乐趣。古人言，“独乐”不如“众乐”，所以我拿出来与大家共享，又希望能让初学者对于VB编程窥见一斑。 这个小软件所用控件仅一列表框，两文本框，两标签，两命令及一定时控件而已...
声明以下函数变量常量： Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "Re...
Private Sub Form_Load() On Error GoTo errorhandler ' Command 函数返回 ' 命令行的字符串信息 ' 该程序需要两个参数 ' 如:(thisprog.exe c:\localdir\prgcopied.exe ' k:\servrdir\pr...
微软的Visual Basic确实是个好东西，编写应用程序快捷高效。但是入门容易，想玩转它可不简单。我个人学VB就深有体会：一个人在VB的殿堂里摸索是何等的辛苦啊！有时为了一个特技、一句代码甚至一个变量要反复调试运行几十遍，也未必能通过，真恨不得一枪崩了VB。所以，我连这一点点小技巧都不敢独品，拿出...
发表这篇文章的目的在于让各位了解Love Letter, 并且有效地予以预防 。 ' 如果认为本文章可能被坏人利用，请予以删除。 ' 程序中的中文注释为本人所加，并针对病毒特点予以解释，同时，给出了预防病毒的方法。 ' 我个人认为Love Letter写的并不是十分的棒，但是它使用的不少技术确实令人...
添加快捷键 ------------------------------------------------------------------------------------------------------------------------------------------------...
