编译错误后点停止vb就自动退出了是怎么回事

[fengyin520]

由于代码写的比较多，以前也发生过这样的事，后来不知怎么好的，最近又出这样的问题了，假如我的代码里有个未定义的变量或其他能导致运行时出现编译错误的提示然后点调试，再点窗口的停止按钮，vb就自己退出了，vb没问题，新建的工程就没问题。哪位高手遇到过这种情况，应该是我的某个代码的问题，但如何能找到具体有问题的代码啊。

[sonic_andy]

全编译执行试试?

[zsj05]

好像有病毒

[qap22]

友情up

[hbsjz33]

友情up

[xielang127]

顶一下

[fengyin520]

应该不是病毒，因为在好几台机器上试都是这样的呀

[xredhat]

首先窗体用上option explicit
然后再检查一下api调用
导致这个问题应该是读写了不允许的内存引起的

[fengyin520]

option explicit 一直用，api也很少用，出问题之前和之后好像没用过api，以前用过，但用完一直好好的，没出问题，还有没有其他方面的原因了呢？

[fengyin520]

终于找着问题的原因了，原来以为没信用api但后来发现了以前被注释掉的api又用了，导致了vb退出，具体代码是这样的，朋友们帮我分析一下这个代码出了什么问题了，为什么会导致vb异常


'控制窗体最小限定的代码
'新建一个标准模块.
'代码如下
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" ( _
lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Public Const GWL_WNDPROC = (-4)
Public Const WM_GETMINMAXINFO = &H24
Type POINTAPI
X As Long
Y As Long
End Type
Type MINMAXINFO
ptReserved As POINTAPI
ptMaxSize As POINTAPI
ptMaxPosition As POINTAPI
ptMinTrackSize As POINTAPI
ptMaxTrackSize As POINTAPI
End Type
Public preWinProc As Long

Public Function wndproc(ByVal hWnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Dim lwd As Long, hwd As Long
If Msg = WM_GETMINMAXINFO Then
Dim maxmin As MINMAXINFO
CopyMemory maxmin, ByVal lParam, Len(maxmin)
'maxmin.ptMaxTrackSize.x = 500 '设定最大Resize的宽度
'maxmin.ptMaxTrackSize.y = 400 '设定最大Resize的高度
maxmin.ptMinTrackSize.X = 800 '设定最小Resize的宽度
maxmin.ptMinTrackSize.Y = 600 '设定最小Resize的高度
CopyMemory ByVal lParam, maxmin, Len(maxmin)
Else
wndproc = CallWindowProc(preWinProc, hWnd, Msg, wParam, lParam)
End If
End Function



在form load里写
'控制窗体最小限定的代码
Dim ret As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)
'控制窗体最小限定的代码

在unload里写
'控制窗体最小限定的代码
Dim ret As Long
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, preWinProc)
'控制窗体最小限定的代码

[是是非非]

搜索一下 无崩溃子类化

[klj123]

我也出现过类似的问题，我是重新建个工程，然后将代码拷过去就解决了问题。