在播放器的主界面放置一个能随音乐的播放而旋转的光盘是不是很诱人？如若你对此感兴趣又不知从何下手，请往下看。 先准备几幅图，格式不论，但Icon图标最理想。图的数量将是光盘旋转效果的决定因素之一，一般八张比较合适。这八幅图必须是光盘处于0度、45度、90度……3...

2018-06-17 17:12:42

PrivateDeclareFunctionEnableWindowLib"user32"(ByValhWndAsInteger,ByValaBOOLAsInteger)AsInteger PrivateDeclareFunctionIsWindowEnabledLib"user32"(ByValhWndAsInteger)AsInteger PrivateDeclareFunctionGetMenuLib"user32"(ByValhWndAsInteger)AsInteger Privat...

2018-06-17 17:12:41

以下之程序在计算时会扣除工作列所占的高度(或宽度)，如果有启动MicrosoftOffice的快捷列的话，也会扣除快捷列所占的高度(或宽度)。 PublicConstSM_CXFULLSCREEN=16 PublicConstSM_CYFULLSCREEN=17 #IfWin32Then DeclareFunctionGetSystemMetricsLib"user32"(ByValnInd...

2018-06-17 17:12:42

1、在工具栏中添加复选（切换）按钮 工具栏中的复选按钮是指当按钮被按下以后就保持被按下的状态，只有下次再按才会弹起来，这就是工具栏的复选切换状态。要实现这样的效果，必须将它的STYLE属性设为tbrCheck，这个设置可以在工具栏的属性页中完成。方法是右击工具栏并...

2018-06-17 17:12:40

文件系统控件方案：文件搜索器 应用程序因为用户常常希望快速查找应用程序的可用文件或文件组，所以，许多应用程序都提供查询文件系统的功能。Winseek.vbp示例应用程序协助用户浏览驱动器和目录并显示所有类型的文件。 下表总结了WinSeek应用程序在Seek.frm窗体中使用...

2018-06-17 17:12:40

这里我们直接创建一个应用程序来测试一下前面生成的ActiveXEXE文件监视组件： 新建一个"StandardEXE"工程； 下面需要添加一个引用到我们的新的文件组件中去，然后添加少量的代码作尝试： 选择"Project"-"References"菜单； 选中"File"组件选项，然后单击[OK]按钮； 在...

2018-06-17 17:12:39

Windows提供了一个API函数GetDesktopWindow,该函数返回桌面窗口的设备描述。因此利用它就可以轻松获取桌面窗口的图象。 参见下例： 步骤1----建立新工程。 步骤2----编写如下代码： PrivateDeclareFunctionGetDesktopWindowLib"user32"()AsLong PrivateDeclareFunction...

2018-06-17 17:12:38

按照百分秒格式显示时间 你可以编写下面的代码来显示时间，其中包括百分秒格式： txt=Format$(Time,hh:mm:ss)Format$(Timer-Fix(Timer),.00) 注意：Timer函数不能显示百分秒格式的时间，它只能精确到50毫秒。 简易安装注册表项目 这里有一个安装程序时设置注册表项目的...

2018-06-17 17:12:38

由于Bug，在使用InternetTransferControl时，Username及Password必须设定在URL之后，否则无效！以下的程序码是错的： Inet1.Password="Chicken_Feet" Inet1.UserName="JohnnyW" Inet1.URL=FTP://ftp.32X.com Inet1.Text=Inet1.OpenURL 但是如果改成以下之程序，将URL放...

2018-06-17 17:12:36

RecordSet事件的编程 也可以对这个Recordset对象的事件进行编程。在该类模块中，单击“对象”框（在位于左上角），然后单击“rsNames”。在“过程/事件”框（在右上角）中，下拉列表将显示这个Recordset对象的所有事件。 给类添加一个属性 类模块也可以进行修改，来响...

2018-06-17 17:12:35