[VB6 ] SetParent 使用方式

作者: gecer (gecer)   2017-12-02 23:51:11
小定想在應用程式上嵌入一個視窗 擋掉部分按鍵防止被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
請問板大建議如何防止圖形被干擾
作者: chinoyan   2017-12-04 14:47:00
Try Form1.Refresh

Links booklink

Contact Us: admin [ a t ] ucptt.com