vb使窗口置前
Option
Explicit
Const
Hwndx = -1
Private
Declare
Function
SetWindowPos
Lib
"user32"
(
ByVal
Hwnd
As
Long
, _
ByVal
hWndInsertAfter
As
Long
,
ByVal
x
As
Long
,
ByVal
y
As
Long
,
ByVal
cx
As
Long
,
ByVal
cy
As
Long
,
ByVal
wFlags
As
Long
)
As
Long
Private
Sub
Form_Load()
Dim
XX
As
Long
'载入窗体
data_back_F.Show
XX = SetWindowPos(
data_back_F.Hwnd, Hwndx, 0, 0, 0, 0, 3)
End
Sub
=========================================================================
vb6.0关闭时弹出“0x005a8ea”指令引用的“0x608af85c”内存,不能为read
前几天重装了系统,vb6.0自然也重新安装了,可是居然发现了问题,每次关闭VB时都弹出错误提示,提示"0x0043f08f"指令引用的"0x608af85c"内存。该内存不能为"read":
这个问题在以前默认安装vb6.0从来没有出现过,问题遗留了好几天都没解决的了,包括删除VB6再重装。
后来无意中发现VB6.0默认加载了Source Code Control,它是SourceSafe的控制插件,会在保存完窗体和项目后询问是否将工程加入到SourceSafe (Add this project to SourceSafe?),而我这次安装vb6.0的时候并没有安装SourceSafe,估计问题出现在这里了。
打开VB6.0,然后菜单栏的"外接程序"-->"外接程序管理器"-->选择
source code control项,然后下面的多选去掉"在启动加载"和"加载/卸载"的勾勾.重新启动VB就OK了`
(当前操作关闭的时候也会有引用内存错误,那是程序已经加载到内存中了,不要管它,下次启动的时候就没事了.)
我们已经了解了引起故障的原因,由此我们可以知道还有一个解决办法,就是用vb6.0的安装文件重新安装SourceSafe。
==========================================================================================
FindWindow和FindWindowEX到底有什么区别,EnumWindows
FindWindow一般用了查找主窗口,
查找到主窗口后,用FindWindowEx查找里面的子窗口,FindWindowEx找子窗口。通常它的第一个参数需要由FindWindow得来。
简单的说:
FindWindow 能查找窗口句柄
FindWindowEx 不仅能查找窗口,还能查找指定窗口的控件句柄
EnumWindows可以枚举窗口,可以把所有窗口都枚举出来,不需要知道窗口的内容~~ FindWindow,则需要知道窗口的标题,或是窗口的名字。