作者gecer (gecer)
看板Visual_Basic
标题Re: [VB6 ] SetParent 使用方式
时间Tue Dec 5 22:06:24 2017
※ 引述《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就是了)
虽然解决此问题 但是不知道原因
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 122.121.28.242
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1512482787.A.C71.html