[VB6 ] SetParent 使用方式

[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

請問板大建議如何防止圖形被干擾









--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.121.30.146
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1512229873.A.EB7.html
推 chinoyan: Try Form1.Refresh