[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