Re: [VB6 ] SetParent 使用方式

楼主: gecer (gecer)   2017-12-05 22:06:24
※ 引述《gecer (gecer)》之铭言:
: 小定想在应用程式上嵌入一个视窗 挡掉部分按键防止被user点到 小弟做法如下 用VB6
: 创建form 设为应用程式的child windows
: Private Sub Form_Load()
: Locked = False
: LockedFormName = InputBox("Input the Form would be locked", "Mask-0.1")
: LockedProberMaskWhnd = Me.hWnd
: LockedFormNameWhnd = FindWindow(vbNullString, LockedFormName)
: If LockedFormNameWhnd = 0 Then
: MsgBox "Not Found"
: End
: End If
: SetParent LockedMaskWhnd, LockedFormNameWhnd
: End Sub
: ==============================================================================
: 其中LockedMaskWhnd 为vb6 创建的form , LockedFormNameWhnd 是 findwindow get的
: 应用程式的handle 上面这一段code成功嵌进form 但是图形却被应用程式干扰(下图黑框
: 部分)
: https://imgur.com/a/ZqLhF
: 请问板大建议如何防止图形被干扰
小弟发现用
"hWndForm = CreateWindowEx(0, "Mask", "MaskForm", WS_CLIPCHILDREN,
ParentForm.Left + P_Left_Offset, ParentForm.Right + P_Top_Offset, P_Width,
P_Height, hWndParentForm, 0, App.hInstance, ByVal 0&)"
利用win32的 windows form 了话 就不会被干扰 (不过也没嵌进去parent form就是了)
虽然解决此问题 但是不知道原因

Links booklink

Contact Us: admin [ a t ] ucptt.com