比如说，我们在表单上设置了一个计时器控件，这个定时器的任务就是在表单上显示当前的时间，同时设置当程序运行时启动定时器。程序运行后，当前的时间将在表单上实时地显示出来。但如果我们同时设置一个command按钮，并设计它的click事件为调用msgbox显示一个随意的信...

2018-06-17 17:16:08

作为轻量级的控件，TextBox控件使用率很高，但相关的资料极少谈及如何用TextBox控件打开和保存文件，大都采用回避的态度，对VB初学者带来很多不便。笔者近日为友人做一个英文朗读软件，按友人的要求，软件要能象MS的记事本那样能打开和保存文档。其实实现方法并不复杂...

2018-06-17 17:16:07

为用户提供选择的控件 大多数应用程序需要向用户提供选择，如简单的“Yes/No”选项、或者从包含成百个可能性的列表中进行选择。VisualBasic包含几种用于提供选择的标准控件。下列表格总结了这些控件及其用途。 用CheckBox选择单个选项 CheckBox表明一个特定的状态是选...

2018-06-17 17:16:06

编译为本地代码的VB应用程序中，如果使用GoSubs命令，就会比通常的Subs或者Function调用慢5-6倍；相反，如果是p-code模式，就会相当快。->...

2018-06-17 17:16:05

OptionExplicit PrivateDeclareFunctionOSGetLongPathNameLib"VB5STKIT.DLL"Alias"GetLongPathName"(ByVallpszLongPathAsString,ByVallpszShortPathAsString,ByValcchBufferAsLong)AsLong PublicDeclareFunctionOSGetShortPathNameLib"kernel32"Alias"GetShortPathName...

2018-06-17 17:16:05

VB利用高级音频函数编写多媒体播放器 现在使用VB编程的朋友越来越多了.但是如何使用VB来编写播放多媒体文件的播放器呢?本篇将详细的介绍如何利用高级音频函数编写媒体播放器! 内容提要: 了解高级音频函数各参数的意思; 提供一些高级音频函数的命令集; 编写一个简单的多...

2018-06-17 17:16:04

先回答以下问题吧！经过以下的叙述之后，变量A、B、C、D分别等于0、 ""、Null、Empty、Nothing的哪一个？ DimA DimBAsString DimCAsInteger DimDAsObject A等于Empty，因为尚未初始化的「不定型变量」都等于Empty。但如果检 测A=""或A=0，也都可以得到True值。 B等于""...

2018-06-17 17:16:02

当我们要移动控制项(Control)或表单(Form)时，很多人习惯这样写： frmCustomer.Left=frmCustomer.Left 100 frmCustomer.Top=frmCustomer.Top 50 但是若使用MoveMethod，可以加快40： frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->...

2018-06-17 17:16:01

FunctionCompFile(F1asstring,F2asstring)asboolean Dimissameasboolean OpenF1ForBinaryAs#1 OpenF2ForBinaryAs#2 issame=True IfLOF(1)LOF(2)Then issame=False Else whole=LOF(1)\10000'numberofwhole10,000bytechunks part=LOF(1)Mod10000'remainingbytesatendoffi...

2018-06-17 17:16:01

在中文环境下，每个字被当做两个Byte： Len("汉1")=2 LenB("汉1")=4 但在许多情况下，我们希望中文字长度为2，英文字符为1。可用以下的函数： LenB(StrConv("汉1",vbFormUnicode)) (此方法不能用于VB6.0。)->...

2018-06-17 17:16:00