Snailqiu-CSDN博客

原创使用mcisendstring重复播放音乐文件

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

2005-02-13 22:26:00 5264

原创从进程里得到其它进程的句柄

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

2005-02-11 23:06:00 1815

原创为您的应用程序建立投影式立体窗口(阴影)

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

2005-02-11 23:02:00 1512

原创 vb大师讲谈录

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

2005-02-11 22:44:00 1426

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

2005-02-11 22:04:00 2532

原创 mciSendString的使用

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

2005-02-11 21:25:00 3268 2

原创为窗体增加淡入淡出效果

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

2005-02-08 19:05:00 1738

原创得到所有的Windows消息值

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

2005-02-08 13:08:00 1634

原创为系统菜单添加新的菜单并响应单击事件

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

2005-02-07 22:38:00 1908

原创如何成为一名优秀的程序员(六)

....最重要的是程序的算法和数据结构. 他们是程序的灵魂. 而语言是一种工具,所谓君子善假于物也好的工具可以加快开发进程. 高级的语言可以屏蔽细节,可以把时间用在算法的考虑上. 当然,特殊的程序功能要求特殊的语言, 另当别论,但是语言的学习主要在多用的. 不难理解.而算法和数据结构包含了很多的基础理论在里面,不容易掌握 . 比如,许多的计算机专家可能不是编程高手. 也不话时间去学 DELP

2005-02-07 22:06:00 1981

原创如何成为一名优秀的程序员(五)

....关于VC，MSDN是必备的，D版MSDN也到处有卖的，英文水平也不见得要多高，看的多了就好办了，另外，没有VC的MSDN中文版，要养成看英文的习惯。基础方面，要了解C++的特性，继承、重载什么的，WINDOWS程序的消息、窗口等基础，然后就是MFC了，你会发痕7b编程是非常有成就感的//不知编答7b还需什么“基础”，希望明示！──半句话没意思嘛！你上大学以后所要学的基础课程大部分都是编然b

2005-02-07 22:05:00 1930

原创如何成为一名优秀的程序员(四)

...偶从初中的时候就开始学编程(数据结构和C),高中的时候帮大四的朋友做计算机专业的毕业设计... 后来高考,也许是舆论影响,也许是家庭压力,也许是受同学感染, 还是奋力于这个天知道有没有意义的考试, 并且成功录取了一所名牌大学的计算机系. 可是现在呢? 偶几乎读不下去,每天上的课,那些和计算机八杆子也打不着的数学分析, 物理什么的不算,还要上一大堆代表80年代的技术的所谓"专业课", 每门课

2005-02-07 22:04:00 2266 1

原创如何成为一名优秀的程序员(三)

...程序员不妨多学学解密、杀毒。肯定在中国有大的用场。首先一定要理解c++中的面向对象理论,最好理解MFC的编程,这样一步步下去行呀，不过你准备接受VC的时候同时认识MSDN，这可真是个大宝库，还要有C++的基础，WINDOWS编程的基础等。再加上毅力和汗水。我现在就是这样。。。。...我不知道,现在该是从c开始学起,还是应该从c++开始. 现在都用面向对象的编程语言,当然是c++的

2005-02-07 22:02:00 1730

原创如何成为一名优秀的程序员(一)

一位仁兄说的“程序员写的程序不是算法+语法，而是要能够满足用户需求的工具”我非常赞同，要想达到用户需求就必须从各个方面来考虑如业务、人机交互、效率等方面，而不只是一个语言（语法）的问题，语言（语法）只是工具，只知语法不知其他那就真是编程机器了！编程机器在印度高中生经过几个月培训，按照严谨的软工方法，加上较高的管理，就可以胜任了！大家相信吗，我是相信的！谈到这里我就不禁说到了国内教育界

2005-02-07 21:56:00 3415 2

原创多线程与VB

--------------------------------------------------------------------------------“协作式多任务”、“抢占式多任务”、“多进程”、“多线程”这些词真可以算是如雷贯耳了，不过词是词，了解是了解，两回事。我曾经煞有介事的向一个同学说明什么是“多进程”，什么是“多线程”，不多久就发现我的解释是完全错了的，所以现在我要讲的是 β

2005-02-07 19:47:00 2011

原创有关于VB

-------------------------------------------------------------------------------- Visual Basic 已经变得像 C 一样结构化，像 Pascal 一样灵活，像 FORTRAN 一样适于科学工作，比 COBOL 更适用于商业工作，比 Xbase 更适于操作数据，甚至可能像 Smalltalk 一样面向对象，

2005-02-07 19:46:00 1589

原创从《加速VB》说开去

前一段收的网易期刊里有一篇《加速VB》，我以为切实说到了大多数VB程序员的缺点，所以不嫌罗嗦，在这里先复述一遍。在此篇里，主要的一段程序的三种写法，因为原文被我给误删掉了，我只是凭记忆写出，和原文程序有出入，但大体不错，首先是作者的朋友的： If Form1.WindowState = vbNormal Then MsgBox "此窗口在正常状态"Else If Form1.Wind

2005-02-07 19:44:00 1422

原创 WIN32API讲座7

第七课∶位图一、概述在Windows中每屏是一个图形图像，灵巧的Windows制作系统，面对庞大的图形编程任务，建立了为绘画多彩的边界、按钮、图标、字体的函数库。当然啦，通过Windows API，这些函数都是可调用的。所谓Windows显示屏幕以及数量众多的打印机其实都是属于“光栅设备”。在光栅设备中，一幅图象由多条扫描线以及能访问的单独像素构成。Windows也支持非光栅设

2005-02-07 19:33:00 4842 2

原创 WIN32API讲座6

第六课∶绘图函数一、位操作前几天，在很远很远又是那么远的地方，有位网友来信问一些有关位操作的内容。我一开始不大注意这个环节，认为估计大家都能知道。可现在来仔细一想，也并非如此。《Win32 API开发人员指南》一书中也讲了一些位操作的内容，但它位于一开始的象是概论的部分。那么，我想，对位操作不太熟悉的朋友，可以通过以下我对这位网友的回答，学习或加深一些认识。这位网友的提问非

2005-02-07 19:31:00 3352 1

原创 WIN32API讲座5

第五课∶设备场景一、什么是设备场景关于设备场景，叫法颇多，有些书上说为设备环境、显示场景，更常见的叫做设备描述表或设备描述体。当然你爱怎么叫随你的便，我还是喜欢说为设备场景。那么究竟什么是设备场景呢? 设备场景是一种Windows对象，而Windows则是一种图形环境，其图形系统令人难以自信地灵活和强大。而实质上，Widnows下的所有绘图都是通过设备场景进行的，而不是直接

2005-02-07 19:30:00 3038 1

原创 Win32API讲座4

第四课：鼠标、插入符及系统函数一、指针剪切什么是指针呢?我想大家都知道，没必要我多讲。只是概念上应当清楚，指针是指针，鼠标是鼠标，鼠标控制着指针。在win16中，指针只有一个，运行在系统中的应用程序共享这个指针。但在win32中，各个窗体都具有着自己的指针。这倒不是说屏幕上能同时出现好几个指针，而是说每个窗体都具有它自己的样式和一些特征的指针。指针移动到某窗体的时候，指针就自动变成

2005-02-07 19:27:00 2687 1

原创 Win32API讲座3

第三课∶窗口函数一、关于窗口函数在上一堂课里，我们已经提出了"句柄"的概念，并为此进行了较深度的讨论。现在来想，我要补充的是，句柄并非是仅仅是窗口才有的。似乎所有的WINDOWS对象都具有句柄。如，GDI对象中的画笔、刷子等，不久即将要学习的设备场景等也有自己的句柄，等等。但，和一些控件不同，这些对象并不属于窗口。什么是窗口呢?有一句非常有趣的

2005-02-07 19:26:00 2571

原创 Win32API讲座2

第二课∶句柄、矩形和画点函数一、句柄今天开始，我向大家讲有关API的是实质性内容。我们就从"句柄"开始。只要你来到了API的世界，经常碰到的问题之一就是句柄。那么究竟什么是句柄呢? 如果你从来都没有听说过"句柄"这个词，可能首先觉得句柄当中有很多内容。其实不然，所谓句柄实际上是一个数据，是一个Long (整长型)的数据。在API中，它经常是以一个参数的形式传递

2005-02-07 19:23:00 2156

原创 Win32API讲座1

第一课∶认识API 一、什么是API 首先，有必要向大家讲一讲，什么是API。所谓API本来是为C和C++程序员写的。API说来说去，就是一种函数，他们包含在一个附加名为DLL的动态连接库文件中。用标准的定义来讲，API就是Windows的32位应用程序编程接口，是一系列很复杂的函数，消息和结构，它使编程人员可以用不同类型的编程语言编制出的运行在Windows95和Window

2005-02-07 19:22:00 2717

原创捕获窗体移动并处理

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

2005-02-07 19:08:00 1468

原创 ActiveX深入浅出

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

2005-02-07 18:43:00 3890

原创 VB中的类开发

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

2005-02-07 18:42:00 1838

原创 Windows消息大全

Windows消息大全消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产生的消息来说，这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg，它在Windows单元中是这样声明的：

2005-02-07 18:40:00 1015

原创直接播放EXE文件中的声音文件

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

2005-02-07 18:33:00 2327

原创在VB中实现"绿色"软件

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

2005-02-07 18:32:00 1349

原创在NT下取得关机权限的类

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

2005-02-07 18:30:00 944

原创得到系统的一些基本信息的类

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

2005-02-07 18:29:00 1090

原创动画清屏

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

2005-02-07 18:27:00 1168

原创隐藏开始按钮

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

2005-02-07 18:25:00 2231

原创限次版功能的简单实现

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 如文件已经存在,从中读出变量的值

2005-02-07 18:21:00 1268

Snailqiu