发新话题
打印

在隐含工具条中如何建立一个ActiveX控件

在隐含工具条中如何建立一个ActiveX控件

  How to create an ActiveX Control which hides the Taskbar

This tip shows how to really hide the Windows Taskbar, not to move it outside the desktop, and to avoid the API磗 in the future we can make an ActiveX Control which does the work.

First create a new ActiveX Control project, add a module to it, just like you would in a normal .exe project. Put the following API declaracions into it:

Declare Function ShowWindow Lib _
"user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Declare Function FindWindow Lib _
"user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As LongNow we have to set some properties for the UserControl1.

Name="TaskBar"
BorderStyle=1-Fixed Single
CanGetFocus=False
EditAtDesignTime=False
InvisibleAtRuntime=True
Picture= Choose one
ToolBoxBitmap=Choose one
Adjust the UserControl磗 size to the picture.

Put the following codes to the UserControl:

注释:Creates the property TaskBar.Show
Public Property Let Show(ByVal VShow As Boolean)
TBwnd

TOP

发新话题