Question

谁能用VB6.0帮我做一个~~





Answer 1

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
调用API函数声明：该函数允许应用程序为复制或修改而访问窗口菜单（系统菜单或控制菜单）。

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long
调用API函数声明：该函数从指定菜单删除一个菜单项或分离一个子菜单。

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类

以下是操作Excel的常规操作的声明，数值多少不用理，都是固定的，照用就是了。
Private Const MF_REMOVE = &H1000&
Private Const SC_COLSE = &HF060
Private Const SC_MAXIMIZE = &HF030
Private Const SC_MINIMIZE = &HF020

这是VB调用Excel应用程序的声明块。