隐藏窗体但显示控件的代码
这个代码会重画窗体区域来隐藏代码,但是实现不了,请问是怎么的呢.
Public Sub hideform1(fm As Form, t As Timer)
t.Interval = 100: t.Enabled = True
fm.BackColor = &HFF0000
fm.Move 0, 0, Screen.Width, Screen.Height
w = Screen.Width / Screen.TwipsPerPixelX - 100
h = Screen.Height / Screen.TwipsPerPixelY - 100
fm.ScaleMode = 2
area = CreateRectRgn(0, 0, w, h + 100)
area = SetWindowRgn(fm.hWnd, area, True)
End Sub