不大清楚。
是不是象word的自定义工具栏那样的效果?
如果是.有个很笨的办法:请用frmSplash制作
再
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Form_Load()
SetWindowPos Me.hwnd, -1, 0, 0, Screen.Width, Screen.Height, 0
End Sub
是不是象word的自定义工具栏那样的效果?
如果是.有个很笨的办法:请用frmSplash制作
再
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Form_Load()
SetWindowPos Me.hwnd, -1, 0, 0, Screen.Width, Screen.Height, 0
End Sub
如果不是制作ActiveX控件,可以用设置form.borderstyle为ToolWindow
和SetWindowPos实现.
xxlroad的frmSplash方法好象用不着.
EMAIL:Fujinsan@163.NET