谁能帮我解答一段VB中的代码 Public Face As Long
来源:百度知道 编辑:UC知道 时间:2024/05/16 05:40:27
Public Face As Long
Private Sub Form_Load()
Me.Show
DoEvents
Face = CreateRegionFromFile(App.Path & "\bill2.bmp")
Form2.Show
SetWindowRgn Form2.hWnd, Face, True
' make window stay on top
SetWindowPos Form2.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_SHOWWINDOW
Me.Visible = False
End Sub
Private Sub Form_Load()
Me.Show
DoEvents
Face = CreateRegionFromFile(App.Path & "\bill2.bmp")
Form2.Show
SetWindowRgn Form2.hWnd, Face, True
' make window stay on top
SetWindowPos Form2.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_SHOWWINDOW
Me.Visible = False
End Sub
Public Face As Long //定义个变量
Private Sub Form_Load() //窗口载入事件
Me.Show //显示窗体
DoEvents
Face = CreateRegionFromFile(App.Path & "\bill2.bmp") //载入个图片区域
Form2.Show //显示form2
SetWindowRgn Form2.hWnd, Face, True
' make window stay on top //将窗口置于顶层
SetWindowPos Form2.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_SHOWWINDOW //设置窗口位置为0,0,格式无法调整,无法移动
Me.Visible = False //隐藏窗体
End Sub