有什么软件能够替换vb6.0？

理论上是没有问题。

在Windows 10 也好还是Windows 7 64位上都可以正常运行

你的程序出现未知错误

从下面几个地方进行检查

1。安装包，VB 6.0 自带的安装程序在Windows 10 下安装会产生未知错误，导致安装失败。

更换成为FactorySetup 9.0 生成安装包

2。 程序要安装在C盘以外的驱动器上

3。如果还有问题，可能是里面用的一些DLL 或者是其他的调用的比较高版本的 系统本身的东西。 在Windows 7 甚至是Window XP 下重新编译一次。

4。注意程序的icon， 用16*16，或者16*16复合32*32 的，颜色用16色的icon

这是一个根据窗口标题用枚举法模糊查找一个匹配的窗口句柄，并将该句柄指向的窗口呼出前台。为了能100%选择记事本窗体，应尽量提供完整的窗口标题，并确保窗口标题的唯一性，否则程序只会将第最后一个匹配的窗口呼出。

以下代码运行后点击按钮即将标题含有“记事本”的窗口转到当前状态。我都加了注释，你可以根据需要来修改：

'新建一个工程 _

'创建一个textbox：text1

'创建一个按钮：command1

'粘贴以下代码：

Private Sub Form_Load()

Text1 = "记事本"

End Sub

Private Sub Command1_Click()

If Text1 = "" Then Exit Sub

LHWND = 0 '枚举前为0，预防找不到时查错

EnumWindows AddressOf EnumWindowsProc, 0&'枚举第一个匹配的句柄

ShowWindow LHWND, SW_RESTORE '窗口被最小化时的呼出

SetForegroundWindow LHWND'设置为活动状态

If LHWND = 0 Then MsgBox "找不到匹配窗口标题的句柄！"

End Sub

添加一个模块粘贴以下代码：

添加一个模块粘贴以下代码：

添加一个模块粘贴以下代码：

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Const SW_RESTORE = 9

Public LHWND As Long

Public Function EnumWindowsProc(ByVal lngHwnd As Long, ByVal lParam As Long) As Boolean

Dim s As String * 255

GetWindowText lngHwnd, s, 255 '获得窗口标题文字

If InStr(s, Form1.Text1) <>0 Then '判断是否匹配要查找的窗口的标题

LHWND = lngHwnd '得到匹配的窗口的句柄

End If

EnumWindowsProc = True

End Function

---