Visual Basic 6.0 安装、配置备忘录

作者

1 安装篇

1、确保安装的是原版 Visual Basic 6.0，否则会影响到后续的更新。

2、安装 Visual Basic 6.0 前，彻底关闭杀毒软件，尤其那些简单粗暴、不容分说的杀毒软件。误判会让安装进程难以持续。

3、安装 Visual Basic 6.0 时，一定要选择“自定义安装”，不要选择“典型安装”，因为我们需要取消一些安装项目：

  1. “Microsoft Visual SourceSafe 6.0”：避免我们所写的代码在别的机器上无法编辑。
  2. “ADO 和 RDS”（具体路径：“数据访问”-“ADO、RDS 和 OLE DB Providers”-“ADO 和 RDS”）。否则 Visual Basic 6.0 安装到最后会一直卡在“安装程序正在更新你的系统”界面动弹不得。

4、按提示重启电脑后，依次取消“安装 MSDN”、“现在注册”。

5、安装 Microsoft Visual Basic Service Pack 6。在安装过程中，注意不要替换了支持中文（简体，中国）的 MFC40.DLL。

6、在安装 Microsoft Visual Basic Service Pack 6 安全汇总更新（2012/8/16更新）后，再安装 Microsoft Visual Basic Service Pack 6 累积更新（2021/3/23更新）。如果不小心搞错安装的次序，可以卸载后重新安装。卸载已安装的累积性更新的方法：在可执行文件的右键菜单中找到“卸载”选项进行卸载。

2 配置篇

1、启动 Visual Basic 6.0 时，弹框提示：方法’~’作用于对象’~’失败。解决办法：在安装目录下，找到“VB6.EXE”，将其“属性”选项中的“兼容模式”更改为以 Windows Vista 兼容模式运行这个程序。

2、关闭 Visual Basic 6.0 时，提示：Visual Basic已停止工作。解决办法：取消 Visual Basic 6.0 外接程序 Source Code Control 的所有加载行为。

3 代码篇

3.1 是非判断

1、判断 text1.text 是否为空。

If Len(Text1.Text) > 0 then '若字符串非空，然后...

2、判断 text1.text 是否为数字。

If IsNumeric(Text1.Text) = True then '若为数字，然后...

3、text1box 控件获得焦点后，插入符跳至最右。

Me.Show
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = Len(Text1.Text)

4、动态增、减控件数组。以 ComboBox 为例，需预先创建一个控件，然后通过复制、粘贴、创建控件数组、删除一系列奇葩操作。

Combo1(0).Top = 100 '设置Combo1(0)坐标位置
Combo1(0).Left = 100
Load Combo1(Combo1().Count) '增加控件数组
Combo1(Combo1().Count - 1).Top = 100 + 500 * (Combo1().Count - 1)
Combo1(Combo1().Count - 1).Left = 100
Combo1(Combo1().Count - 1).Visible = True
If Combo1().Count - 1 > 0 Then '减少控件数组
    Unload Combo1(Combo1().Count - 1)
End If

了解 环评五四三 的更多信息

Subscribe to get the latest posts sent to your email.

发表评论