为什么到期日是当日

[阅读全文]

在数据输入过程中，有些数据要求一定的格式，比如限制输入的只能为数字或英文字符，这可用VB的格式输入文本框来实现。它与文本框（TEXTBOX）功能基本相似，但多了一个MASK属性，MASK属性常用的设定如下：＃?限定仅能输入数字0～9；A?限定输入为英文字符及数字；？?限定仅能输入英文字符；．?限定小数点位置；：?限定时...

[阅读全文]

我们常会在Control项的LostFocus中去Check其输入的正确性，但如果我们按"取消"的CommandBox又希望不要去Check，直接结束就好，即，如何是是按了该CommandBox而产生的LostFocus呢？在LostFocus中CheckScreen.ActiveControl便可得知下一个Contr...

[阅读全文]

TextBox中文字如何靠中靠右对齐设定Alignment属性，但其在执行阶段为唯读0--靠左1--靠右2--靠中要确保Alignment属性能够正确作用，Textbox控制项中的MultiLine属性就必须设定为True。如果Textbox控制项中的MultiLine设定为False，则会忽略Alignment属性的...

[阅读全文]

一般我们可能在TextBox的MouseDownEvent中Check是否按右键，若是，则设定出现PopupMenu程式如下：PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupM...

[阅读全文]

因为Alignment属性是唯读的，所以只好在Form中使用三个TextBox来完成，Text1.Alignment=0,Text2.Alignment=1,Text3.Alignment=2,而且三者的MultiLine设为True。并在Form中放三个OptionControl，一开始Text2,Text3Move...

[阅读全文]

使List1项目的移动、选取，影响List2项目的动、选取需：两个ListBox，一个Timer但这是vb4.0的作法，在vb5.0时，可以由Thomasaria提供的简易作法完成PrivateSubList1_Scroll(IndexAsInteger)'按卷动轴时list项目位置同步List2.TopIndex=L...

[阅读全文]

Combo方式的输入域，可在程序中事先设定好一组数据，由用户以下拉方式来选择输入项目，这种工作方式可方便用户的使用是显而易见的，使用者无需记住输入的数据，只要拉下数据列表表框，从中选出自己所需的数据便可，特别是对于那些不熟练的用户来说，这种输入方式还兼有使用向导的功能。但是此方法对于那些熟练的用户，对于所选择的数据列表...

[阅读全文]

请问在VB5中如何使机箱内的小喇叭发出不同的声音？-chengdx回答1:Mmsound.drv是小喇叭的系统接口，很多API的书都有用法介绍-219张晶回答2:使用VB中的beep语句，但这只能发出一种声音。如果想发出不同声音，可以使用API函数。详情如下：（摘自VB-Helper）UsetheBeepAPIfunc...

[阅读全文]

[程序语言]MicrosoftVisualBasic4.0,5.0,6.0[运行平台]Windows[功能描述]IPX和NETBIOS接口需要网络地址。该文通过详细的步骤演示了如何通过VB获取网卡地址。步骤：1)在VisualBasic生成标准的EXE文件。缺省创建Form1。2)在Form1中添加一命令按钮，缺省名为...

[阅读全文]

VB中剪贴板的应用是很重要的，它能使你简化程序并能增强程序功能。下下面就把常用的几个用于VB剪贴板的语句作一介绍：一、CLEAR（，，STACK＆）用于关闭文件，清除文件缓冲区的内容和其它一些设置初始值的工作。其中STACK＆为设置堆栈大小。二、CLIPBOARD．GETDATA（［FORMAT］）从剪板中返回一个图片...

[阅读全文]

在VisualBasic中，惊叹号“！”与圆点“．”都用于给对象命名，但两者语法上却存在很大的区别，这点在编程时尤其需要注意。圆点操作符“．”用来表示对象的属性和方法，在引用时，需要用到对象的Name、圆点和需要的属性或方法。例如要引用文本框Textl中的文本属性时可用reponse＄＝Text1．Text，再如要改变...

[阅读全文]

整数间执行除法运算时，要使用"\"而不是"/"。"/"运算符要求返回一个单一数值，所以，表面上看似简单的一行代码：C%=A%/B%实际上包含了3个隐含的转换操作：2个为除法运算做准备，从Integer转换到Single；一个完成最后的赋值操作，从Integer转换到Single。但是如果使用了"\"操作符，情况就大不相...

[阅读全文]

由于WINDOWS的多任务处理功能，有些程序可能打开后忘记了，下次用时还可能再打开，这样做会占用系统资源降低系统效率。<br>为了防止自身被多次运行，可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本，若有则给出提示<br>后结束。一般将检测代码放在FORM＿LOAD（）中，因为程序...

[阅读全文]

在程序设计时，经常需要用倒计时，倒计时程序一般不能用时间函数来进行设计，常用的方法是在计时器的触发过程中设置计数变量来进行控制，程序如下：Dimhh,mm,ssSubForm_Load()hh=0:mm=5:ss=0timer1.Interval=1000EndSubSubTimer1_Timer()s=IIf(ss<...

[阅读全文]

在开发软件时，有时可能需要使软件在运行时不让别人从控制面板中修改修改系统的日期和时间，实现此功能的具体思路是：在软件运行是自己建立一个时钟，如果发现系统时间被修改，再用自己的时钟将系统时间改回来就可以了，VB中有一个控件叫SysInfo,可以用它的TimeChanged事件来监测系统时间是否已修改，请看下面的例子程序：...

[阅读全文]

本示例的功能是如何计算给定的两个日期之间的工作日，你可以选择是否将星期六或星期日也包括进去。同时本程序还允许你可入一些假期，从而在计算时将这些假期排除在外。函数：PublicFunctionBusinessDateDiff(ByValdDate1AsDate,ByValdDate2AsDate)AsLong该函数的功能...

[阅读全文]

我想每0.005秒做某一件工作，所以撰写了以下程序：Dimtm1AsSingleDotm1=TimerWhileTimer-tm1<0.005'等于0.005秒DoEventsWend...做某一件工作Loop但实际上，在While循环里面，Timer函数几乎每次都得到相同的时间，只有大约隔了0.05秒才会得到不同的时...

[阅读全文]

如果您安装了某一个软件之后，想要反安装，您有二个方法：1、打开【控制面板】中的【添加删除新程序】，选择该软件?反安装。2、选择【开始】【程序集】中软件所产生的程序?中的反安装。上面的第一种方法，您不需要作任何处理，一般软件在安装完后，都会在【控制面板】中的【添加删除新程序】多一个该软件的选项。而第二种方法，就必须要我们...

[阅读全文]

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

[阅读全文]

每次开机都面对同样的墙纸，真让人感到单调乏味。是不是可以在每次开机的时候，都能给你一个意外的惊喜，自动地更换墙纸呢?笔者用VB5.0编了一个小程序，可以轻松地解决这个问题。而其关键在于一个WINDOWSAPI函数的使用，该函数的功能是用来设置或询问系统范围参数的，其表达形式如下：　　DeclareFunctionSys...

[阅读全文]

大家都知道，屏幕保护密码最多为16个字符。微软内置了16字节的密钥：48EE761D6769A11B7A8C47F85495975F。Windows便用上述密钥加密你输入的密码。其加密过程为：首先将你输入的密码字符逐位转换为其16进制的ASCⅡ码值（小写字母先转为大写字母），再依次与对应密钥逐位进行异或运算，把所得16...

[阅读全文]

为让你的程序更加专业一点，我们往往需要在程序处理过程时的鼠标形状显示为“沙漏”状态。我们一般的方法是在子程序的开始及结尾编程来改变鼠标形状，这样十分烦琐且容易忘记。我们还可以以下面的方法来实现这一目标：1、创建一个新类，命名为：CHourGlass；2、在此类中加入以下代码：PrivateSubClass_Initia...

[阅读全文]

通常用VB制作的安装向导的背景色是渐变的蓝色。其实通过改变生成的setup.lst文件中的设置，你就可以把背景色换成其它的颜色。首先在该文件中找到下面这一行[Setup]Color=N把N换成下面这些数字0:黑色1:红色2:绿色3:黄色4:蓝色5:洋红6:浅蓝7:灰色8:红色，不过是颠倒的渐变，也就是说屏幕的上面颜色较...

[阅读全文]

例如在BorderStyle中有以下的四个选择：0-None1-Dashed2-SingleLine3-DoubleLine4-3D首先在控件中定义以下的集合：EnumBorderTypeNoneDashed[SingleLine][DoubleLine][3D]EndEnum然后就可以把属性的类型设置好：Public...

[阅读全文]

所谓图形热点就是指定图形或图像上的某部分区域，当鼠标在这部分区域上单击或双击时，就像命令按钮一样会引发相应事件。笔者在VB5中用Windows提供的三个API函数轻松实现了任何形状的图形热点，在此具体介绍这一技术的实现步骤。　　首先在VB5中新建一"标准EXE工程"，设置窗体Form1的ScaleMode属性为3。在窗...

[阅读全文]

PrivateTypeRECTLeftAsLongTopAsLongRightAsLongBottomAsLongEndTypePrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLongPrivateDeclareFunctionReleaseDCLib"...

[阅读全文]

读写数组中的元素速度通常都慢于访问一个简单变量，因此，如果在一个循环中要重复使用同一数组元素值，就应该分配数组元素值到临时变量中并使用这个变量。下面举一个例子，检测整数数组中是否存在重复项：FunctionAnyDuplicates(intArray()AsInteger)AsBoolean’如果数组包含重复项，返回T...

[阅读全文]

在用VisualBasic编写好自己的应用软件后，通常需要一个安装程序来安装它。VB本身提供了几种方法，一是使用“应用程序安装向导”（ApplicationSetupWizard），二是修改VB提供的安装示范程序Setup.EXE（该程序的工程文件及源代码在VB\SETUPKIT\Setup1）子目录下）。第一种方法生...

[阅读全文]

是否觉得你的应用程序启动得太慢了？你可以用下面小技巧让你的程序启动起来感觉快一点。在你的启动窗口的Form_Load事件的第一行加入下面一行代码：Me.ShowVB在窗口显示前一般先执行Form_Load事件中的程序，如果你在Form_Load中加入大量代码，就可以导致VB执行代码很久而不显示窗口，我们在Form_Lo...

[阅读全文]