VB调试下可以运行，但是编译成EXE可执行文件后，就连在本机都无法运行

我在做一个VB程序，在VB调试下可以运行，但是编译成EXE可执行文件后，就连在本机都无法运行，且未出现任何错误提示，不知道是哪里出错，大家帮帮忙吧，谢谢！！

23 个解决方案

#1

这向哪里找错啊,以前我也碰到过,也没找出来
安装个SP6试试?

#2

VB早安装SP6了啊

#3

那就不知道了,以前做过一个软件也这样,由于是做着玩,出现这种错误后就放弃了

引用 2 楼 linqlou 的回复:

VB早安装SP6了啊

#4

ActiveX exe 是不能直接运行的。
如果不是的话，关掉杀毒软件试试。

#5

与这些没关系
没用到ActiveX exe
我当时怀疑我的机器太老或者SP版本不够

引用 4 楼 bestbadgod 的回复:

ActiveX exe 是不能直接运行的。
如果不是的话，关掉杀毒软件试试。

#6

引用 5 楼 getemail 的回复:

与这些没关系
没用到ActiveX exe
我当时怀疑我的机器太老或者SP版本不够

如果不是的话，关掉杀毒软件试试。

没文化真可怕，你到底是脑残还是智障，我回答楼主的问题，你吓搅合个啥劲？
如果这贴是你发的，我绝对如你所愿“眼神不好”。

#7

这可是你先挑衅的
你的回帖中说明不允许回复了么?
你是不是有脑残家族史啊?

引用 6 楼 bestbadgod 的回复:

引用 5 楼 getemail 的回复:
与这些没关系
没用到ActiveX exe
我当时怀疑我的机器太老或者SP版本不够

如果不是的话，关掉杀毒软件试试。

没文化真可怕，你到底是脑残还是智障，我回答楼主的问题，你吓搅合个啥劲？
如果这贴是你发的，我绝对如你所愿“眼神不好”。

#8

想起来了,祖传疑难杂症,果然

引用 7 楼 getemail 的回复:

这可是你先挑衅的
你的回帖中说明不允许回复了么?
你是不是有脑残家族史啊?

引用 6 楼 bestbadgod 的回复:
引用 5 楼 getemail 的回复:
与这些没关系
没用到ActiveX exe
我当时怀疑我的机器太老或者SP版本不够

如果不是的话，关掉杀毒软件试试。

没文化真可怕，你到底是脑残还是智障，我回答楼主的问题，你吓搅合个啥劲？
如果这贴是你发的，我绝对如你所愿“眼神不好”。

#9

這種事情我也遇到過，VB調試狀態沒問題，編譯後，一啟動不自動關閉。
這應當是程式中代碼有問題。比如Combox的預設值有問題等。比如Combox的Text值在它的選擇List項中沒有。

#10

将MSVBVM60.DLL和程序中用到的.ocx控件文件（可用从.vbp文件中查看）拷贝到执行文件目录下试试。

#11

用OD跟踪一下

#12

Ctrl+F5

#13

ls的方法可行，跟踪一下看看是哪个地方出了问题！

#14

谢谢大家的热心参与，对几位朋友因争议而引发冲突表示不安，同时也希望大家不要因热衷于技术交流而伤了和气。
经过提醒，感觉双龙说的情况跟和实际有些相符，我回去再调试一下。

#15

把代码贴出来或者打包大家帮你看看

#16

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Dim mDatos() As Byte

    With PropBag
        MyButtonType = .ReadProperty("BTYPE", 2)
        elTex = .ReadProperty("TX", "")
        isEnabled = .ReadProperty("ENAB", True)
        Set UserControl.Font = .ReadProperty("FONT", UserControl.Font)
        MyColorType = .ReadProperty("COLTYPE", 1)
        showFocusR = .ReadProperty("FOCUSR", True)
        BackC = .ReadProperty("BCOL", GetSysColor(COLOR_BTNFACE))
        BackO = .ReadProperty("BCOLO", BackC)
        ForeC = .ReadProperty("FCOL", GetSysColor(COLOR_BTNTEXT))
        ForeO = .ReadProperty("FCOLO", ForeC)
        MaskC = .ReadProperty("MCOL", &HC0C0C0)
        UserControl.MousePointer = .ReadProperty("MPTR", 0)
        Set UserControl.MouseIcon = .ReadProperty("MICON", Nothing)
        Set picNormal = .ReadProperty("PICN", Nothing)
        Set picHover = .ReadProperty("PICH", Nothing)
        useMask = .ReadProperty("UMCOL", True)
        isSoft = .ReadProperty("SOFT", False)
        PicPosition = .ReadProperty("PICPOS", 0)
        useGrey = .ReadProperty("NGREY", False)
        SFX = .ReadProperty("FX", 0)
        Me.HandPointer = .ReadProperty("HAND", False)
        isCheckbox = .ReadProperty("CHECK", False)
        cValue = .ReadProperty("VALUE", False)
        m_IconPath = .ReadProperty("PATHICON", "")
        mColor1 = .ReadProperty("GCOLOR1", GetSysColor(COLOR_BTNFACE))
        mColor2 = .ReadProperty("GCOLOR2", GetSysColor(COLOR_BTNFACE))
        mGradirection = .ReadProperty("GRADDIR", 0)
         mDatos() = .ReadProperty("PICPNG")   
        Call picPng.LoadPicture_Stream(mDatos())
    End With

    UserControl.Enabled = isEnabled
    Call CalcPicSize
    Call CalcTextRects
    Call SetAccessKeys

End Sub
提示 PICPNG 值不存在

#17

mDatos() = .ReadProperty("PICPNG")   

这句没看懂。

#18

引用 11 楼 modest 的回复:

用OD跟踪一下

具体怎么做?

#19

自定义控件里面的代码吧
读某个属性
出错可能是没找到这个属性

引用 17 楼 jennyvenus 的回复:

mDatos() = .ReadProperty("PICPNG") 

这句没看懂。

#20

那你这个 .ReadProperty("PICPNG")   到底存在不？里面是什么样的值？
再说数组不是这么赋值吧

#21

应该是一个属性的名称

引用 20 楼 clear_zero 的回复:

那你这个 .ReadProperty("PICPNG")  到底存在不？里面是什么样的值？
再说数组不是这么赋值吧

#22

可能是一个向导生成的

引用 21 楼 getemail 的回复:

应该是一个属性的名称

引用 20 楼 clear_zero 的回复:
那你这个 .ReadProperty("PICPNG")  到底存在不？里面是什么样的值？
再说数组不是这么赋值吧

#23

引用别人的代码,其实我也看不大懂