一、用控件拖放表单 ----怎样用控件拖放表单呢？很简单，将这段代码插入到Declare部分。 DeclareFunctionReleaseCaptureLibuser32()AsLong DeclareFunctionSendMessageLibuser32AliasSendMessageA(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLo...

2018-06-17 17:15:05

在编程中，我们经常需要对文件系统中的驱动器、文件夹和文件进行处理，比如收集驱动器的相关信息；创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO（FileSystemObject）对象模型来对文件系统进行访问处理。该模型提供了一个基于对象的工具，通过它...

2018-06-17 17:15:05

Point方法返回图片框控件里指定X,Y坐标处的颜色。要获得鼠标指针所在位置的颜色，就要将这样的代码放入用户该控件的MouseMove事件过程里。MouseMove过程会被传递给指针的当前X,Y坐标，这就让这段代码变容易了： PrivateSubPicture1_MouseMove(ButtonAsInteger,_ ShiftA...

2018-06-17 17:15:04

一个小例子，在编程之前，请选择“工程”-“引用” 确定引用“microsoftDAO3.51Objectlibrary” dimdbasdatabase dimrsasrecordset privatesubform1_load() Setdb=OpenDatabase(App.Path "\TTT.mdb")'（）内是你的数据库所在位置 Setrs=db.OpenRecordset("ABC")'（）内...

2018-06-17 17:15:03

第一次运行，或通过运行程序的方式来启动ICQ时，随着一声火车的长鸣，我们都能看到一朵背景为透空的大花，这就是ICQ独特的欢迎画面！通常，我们都是用一整个带图形及文字的窗体来做为欢迎画面的。我们要如何去做才能实现类ICQ的欢迎画面呢？这看起来像是件十分复杂的工...

2018-06-17 17:15:03

微软的VisualBasic确实是个好东西，编写应用程序快捷高效。但是入门容易，想玩转它可不简单。我个人学VB就深有体会：一个人在VB的殿堂里摸索是何等的辛苦啊！有时为了一个特技、一句代码甚至一个变量要反复调试运行几十遍，也未必能通过，真恨不得一枪崩了VB。所以，我...

2018-06-17 17:15:02

一.通过鼠标在屏幕上的移动来控件程序界面 本例通过鼠标在屏幕上的移动来控制程序窗体的显示与隐藏：当鼠标移动到窗体所在区域时窗体显示，反之隐藏起来。仅需一条API函数：GetCursorPos。注意：如果需要将API函数置于模块中请对代码作相应修改。要尝试本例，需给标准E...

2018-06-17 17:15:00

->如何关闭ScreenSave功能,改变Timeout时间 此外希望只有本次使用Windows时改变(下次开机时还原原状)，则最後参数改为 SPIF_SENDWININICHANGE(没有SPIF_UPDATEINIFILE) ConstSPI_SETSCREENSAVEACTIVE=17 ConstSPI_SETSCREENSAVETIMEOUT=15 ConstSPIF_SENDWININICHANGE=...

2018-06-17 17:15:01

一般是在ACCESS或是SQLSERVER中查寻，或是汇总，然后生成一个‘记录集’可以显示在GRID里，也可以将这个记录集导出到磁盘中。 下面可以导出Xls,DBF,DB,MDB(表）,这些功能是由ISAM数据库接口实现，为了导出各种版本的文件，我在MS网站下载了最新的JET4和MDAC6。前者到用...

2018-06-17 17:14:59

欲将TextBox内的文字向右靠，除了将Alignment属性设为「1-靠右对 」之外，亦 将MultiLine属性设为True。 但是若您希望只有单行，不要多行，则必须判断User是否按了EnterKey，那只好在TextBox的KeyPress中加入以下程序码，以去除Enter的作用： PrivateSubText1_KeyPress...

2018-06-17 17:14:57