关于窗体的问题！

chenchen

我的窗体可以最大化最小化，但是窗体最小化以后，EXCEL表格也最小化了，无法编辑。怎么样把焦点放在EXCEL表格里，不使EXCEL最小化，并且可以编辑呢？请高手指点。

chenchen

牌主在吗？没有人会吗？会的高人就批点一下。

liujun

我也想问怎样取消圈里的东西！

taller

窗体中添加两个按钮,并且写入下面的代码

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

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

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const SC_CLOSE As Long = &HF060
Private Const SW_SHOW As Long = 5

Private hwnd, hMenu, lStyle As Long
Sub DisableClose()
hwnd = FindWindow("ThunderDFrame", Me.Caption)
hMenu = GetSystemMenu(hwnd, 0)
DeleteMenu hMenu, SC_CLOSE, 0&
ShowWindow hwnd, SW_SHOW
DrawMenuBar hwnd
End Sub
Sub EnableClose()
hwnd = FindWindow("ThunderDFrame", Me.Caption)
hMenu = GetSystemMenu(hwnd, 1)
ShowWindow hwnd, SW_SHOW
DrawMenuBar hwnd
End Sub

Private Sub CommandButton2_Click()
Call EnableClose
End Sub
Private Sub CommandButton1_Click()
Call DisableClose
End Sub

[此贴子已经被作者于2006-6-29 12:21:30编辑过]

opiona

不能正确断句

提示缺少语言结束

那位能够帮忙，做成一行代码占一行的

例如：

Private Sub CommandButton1_Click()

Call DisableClose

End Sub

这个坑挖的深吧！！

onERR

似乎那个叉叉还是存在，只是不可以点了而已。

期待解决...