可以采用“旁门左道”的方式使用Instr函数实现代码的简练。下面是一个典型的例子，检测字符串中是否包含一个元音字母： 1、普通的方法： IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then 'itisavowel EndIf 2、更加...

2018-06-17 17:16:00

UDP协议基础： UDP(UserDatagramProtocol)是一种无连接协议，与TCP操作不同，计算机间并不需要建立一个连接，同时，一个UDP应用可同时作为应用的客户或服务器方。 由于UDP协议并不需要建立一个明确的连接，因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中，一个W...

2018-06-17 17:15:59

->在开发软件过程中，界面的美观程度是软件商品化程度的一个重要因素。本文介绍一种窗体背景花纹的实现方法，为此，可以方便灵活地设计出富有立体感的美丽的背景。 1.新建窗体Form1,属性如下： Caption=“背景花纹的实现” Borderstyle=3(无最大、最小化按钮） 2.建网...

2018-06-17 17:15:59

大型应用系统启动运行的时间需要很长时间,其时间会根据需要初始化的数量和用户系统的速度变化,因此在主窗口显示前,应显示一个初始化窗口,使应用程序看起来更具吸引力,因为当装载程序时不断可以向用户显示一些信息，而且可产生美观的视觉效果。例如vb、delphi在启动时均...

2018-06-17 17:15:57

假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读 表单画面 '表单部分 '------------------------------------------------------------- Form.Name="Form1" Caption="Form1" CommandButton.Name=Command2 Caption="停止测试" CommandButton.Name...

2018-06-17 17:15:57

你知道ADO控件和DATA控件有冲突吗？试一试下面的例子： DimdbAsDatabase DimrsAsRecordset Setdb=OpenDatabase("d:\stock\yline.mdb") Setrs=db.OpenRecordset("selectcount(*)astotalcountfromylinewhere条件")*** MsgBox(rs(0)) rs.Close db.Close Setrs=Nothing Set...

2018-06-17 17:15:55

作为Access-Office-VBADVISOR的技术编辑，我见过许多编程风格。我常常惊异于VBA程序员能够找到不同的方法来执行相同的任务，同时我也对VBA能够容忍如此差的技术而感到沮丧。VBA是一种相当宽容的语言，几乎能够运行一切那些糟糕的程序员所赋予它的任务。 在我评价和测试...

2018-06-17 17:15:55

共有二种方法 方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码： Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2 方法2: VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->...

2018-06-17 17:15:54

本节将创建并测试自己的ActiveXEXE程序。 示例中将使用这样一个组件，它是一个有效的文件探测器。大约每隔60秒检测指定文件的存在性。如何该文件存在，该组件激发一个事件来调用应用程序，如果不存在，则另作处理。 -align="right">->->-> 当然，如果将所有代码写到Act...

2018-06-17 17:15:53

以前使用DAO時，Microsoft有提供CompactDatabaseMethod來压缩MicrosoftAccess文件，RepairDatabaseMethod來修复损坏的MicrosoftAccess文件，。可是自从ADO出來之后，好像忘了提供相对的压缩及修复MicrosoftAccess文件的功能。 現在Microsoft发现了这个问题了，也提供了...

2018-06-17 17:15:52