如何解决下载的一个VB6.0老提示“运行安装程序前，必须首先运行安装向导”

程序 -> 开始 -> 运行 -> 输入 regedit 然后回车。

删除HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VisualStudio\下面的所有信息。把VisualStudio这个文件夹也一起删。

然后再运行setupexe。

Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。

在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。

随着版本的提高，Visual Basic的功能也越来越强。50版以后，Visual Basic 推出了中文版，与前个版本相比，其功能有了很大提升。

注意看下，看看是不是设置了窗体ICON的属性，，把ICON清空看看，我也碰过类似问题。

实在不行，可以在运行程序出错的电脑上装一个VB6的精简版，再把原代码在精简版上跑一下，有错误就会有提示了。在源代码的目录下会有个Fram1Log文件，打开看下就知道错误出在哪里。

我的就是这个错误提示，一看就是ICON设置有问题。

在网上找的对于这个错误提示的处理办法，都不准确，我的这个办法是可以把错误提示精确到哪里出了错。那问题就很好办了。

Line 2: Property Icon in Form1 could not be set

最简单的代码

在load事件写

'声明

private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()

if FindWindow(null,'你的程序标题')<>0 then

msgbox"程序已经运行了,请勿重复运行"

end if

end sub

你可以编译后试下

给你个最简单的程序~~~~

新建一个文本文档，将下面代码复制到新建的文本文档里面，修改文本文档名字为：form1frm,然后用vb60编译器打开，运行之。。。

VERSION 500

Begin VBForm Form1

Caption = "Form1"

ClientHeight = 5025

ClientLeft = 60

ClientTop = 450

ClientWidth = 6990

LinkTopic = "Form1"

ScaleHeight = 5025

ScaleWidth = 6990

StartUpPosition = 3 '窗口缺省

Begin VBComboBox Combo1

Height = 300

Left = 960

TabIndex = 1

Text = "Combo1"

Top = 840

Width = 2535

End

Begin VBListBox List1

Height = 3480

Left = 4680

TabIndex = 0

Top = 720

Width = 1335

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

Private Sub Combo1_Click()

Select Case Combo1Text

Case "第一项"

List1Clear

List1AddItem "111"

List1AddItem "222"

List1AddItem "333"

Case "第二项"

List1Clear

List1AddItem "222"

List1AddItem "333"

List1AddItem "111"

Case "第三项"

List1Clear

List1AddItem "333"

List1AddItem "111"

List1AddItem "222"

End Select

End Sub

Private Sub Form_Load()

List1Clear

Combo1Clear

Combo1AddItem "第一项"

Combo1AddItem "第二项"

Combo1AddItem "第三项"

End Sub

您好: vb中有一个控件是可以实现你要的功能的：

需要找到VB的安装盘(不是安装以后的目录)的COMMON\TOOLS\VB\UNSUPPRT\SYSTRAY目录，将Systray目录拷到硬盘上面并编译为ocx控件（编译前记得要先把只读属性修改掉，有时候会提示要先保存，直接保存。），

然后在自己的VB程序中添加改控件(工程-部件-浏览)。

最好把这个ocx放到C:\WINDOWS\system32。

改控件的属性InTray属性用来设置是否显示在托盘中，True为显示在托盘，False为不显示。TrayIcon属性是在托盘中显示的图标式样。TrayTip属性是鼠标移到改控件上面显示的提示文字。如果要使程序最小化时显示到托盘，如下：

Private Sub Form_Resize()

If MeWindowState = vbMinimized Then

cSysTray1InTray = True

MeVisible = FalseEnd If

End Sub

点击托盘图标后让程序显示出来，如下：

Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)

MeWindowState = vbNormal

MeVisible = True

cSysTray1InTray = False

MeSetFocus

End Sub

以上就是关于如何解决下载的一个VB6.0老提示“运行安装程序前，必须首先运行安装向导”全部的内容，包括:如何解决下载的一个VB6.0老提示“运行安装程序前，必须首先运行安装向导”、vb6程序unexpected error、VB6如何让程序只运行一个程序实例等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！