Visual Basic的RND()函数有一个重要的特征：当RND()的参数（我们称这里可以称它为种子）为负值时，同一种子（负值）产生同一个随机数序列。同时Visual Basic还具有强大的二进制技术功能，这样我们可以按以下思路实现文件内容加密： X=RND(-KEY) 'KEY为正数 VAULE=INT(25...

2008-02-23 06:54:54

当需要调用Windows的控制面板时，我常用Shell语句，它最为简单快捷。以下语句可以启动控制面板（如Windows不是装在默认目录下应作修改）： Shell "C:windowscontrol.exe ", VBNormalFocus 当然，这样调出控制面板并未达到我们的目的：控制面板中项目如此之多，而我们...

2008-02-23 06:54:52

获得系统中鼠标支持的键数（两键或三键），首先在程序中做如下定义： Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Public Const SM_CMOUSEBUTTONS = 43 然后在程序中调用 GetSystemMetrics 函数 number =...

2008-02-23 06:54:52

方法一：用VB的函数LCase和UCase 用三个TextBox来展现一下这两个函数的大小写转换功能[运行之前在TextBox1中输入几个大写字母，也可混合输入]： Private Sub Command1_Click() Text2.Text = LCase(Text1.Text) '将Text1的文本全换成小写 Text3.Text = UCase(Text2.Text)...

2008-02-23 06:54:51

下面的函数利用递归原理获得字符串的翻转字符串 Function reversestring(revstr As String) As String ' revstr: 要翻转的字符串 ' 返回值:翻转后的字符串 Dim doreverse As Long reversestring = "" For doreverse = Len(revstr) To 1 Step -1 reversestring = reverse...

2008-02-23 06:54:50

以前使用 DAO 時，Microsoft 有提供 CompactDatabase Method 來压缩 Microsoft Access 文件，RepairDatabase Method 來修复损坏的 Microsoft Access 文件，。可是自从 ADO 出來之后，好像忘了提供相对的压缩及修复 Microsoft Access 文件的功能。 現在 Microsoft 发现了...

2008-02-23 06:54:49

---- 在 编 程 中 经 常 会 遇 到 应 用 程 序 中 要 输 入 大 量 数 据 的 问 题， 如 果 能 在 该 程 序 中 实 现 象 电 子 表 格 那 样 的 输 入 界 面， 就 可 以 解 决 这 个 问 题。 ---- VB 虽 提 供 了Grid 网 格 控 件， 但 其 只 具 有 显 示 输 出 功 能，...

2008-02-23 06:54:48

---- 在Visual Basic中制作报表,通常是用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer),或者使用第三方产品来完成并通过ActiveX控件输出.但对于大多数习惯于Excel报表的用户而言,用以上两种方法生成的报表在格式和功能等方面往往不...

2008-02-23 06:54:48

Microsoft Word 97是大家熟悉的文字处理软件,强大的功能为我们的工作提供了很大的帮助。而Visual Basic for Applications(VBA)的应用更为Word 97增添了不少特色,合理而恰当地使用VBA可为用户提供极大的方便。下面介绍几则使用VBA编程自动处理Word表格的例子。 1. 创建表...

2008-02-23 06:54:46

--- 在VB中提供了相当强的绘图功能, 可以在窗口或图形框中利用各种命令绘制各种图形, 灵活使用这些绘图命令不仅可以完成许多特殊的功能, 而且可以为Windows 的程序界面增加许多活力, 特别是那些巧妙的随机图像则更具有特殊的魅力, 下面仅以三种随机动画为例, 演示VB中...

2008-02-23 06:54:46