作者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/m.aspx?n=bbs/Visual_Basic/M.1512482787.A.C71.html