求教ldhyob斑竹:怎样实现BUTTON的工作表浏览器窗体的RISIZE?

菱角

唉!唉! 大家幫忙看看.我的想法是這樣.. 1. thisworkbook Private Sub WorkBook_Open() XLhwnd = FindWindow("XLMAIN", vbNullString) ParentHwnd = FindWindowEx(XLhwnd, ByVal 0&, "XLDESK", vbNullString) 'prevWndProc = SetWindowLong(ParentHwnd, GWL_WNDPROC, AddressOf WndProc) Set myApp = New Class1 Set myApp.clsApp = Application Me.IsAddin = False flg = True With Application.CommandBars("standard").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True) .FaceId = 200 .OnAction = "myReload" End With myInit chgXLDESKrgn End Sub 2. module Public prevWndProc As Long

Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam) If Msg = WM_SIZE Then If flg Then 'Call frmExplorer.Image1_Click 'Use this statement if you want to hide the explorer after the window resized 'Call myReload 'Use this statement if you want to show the explorer after the window resized End If End If End Function 情形是這樣的... remark這一行 'prevWndProc = SetWindowLong(ParentHwnd, GWL_WNDPROC, AddressOf WndProc) 當然就沒有callback啦.沒有解決上面的問題.但是功能大致可行.僅是有時候要要多按一下而已. 請大家測試callback功能.去掉這行remark. 為何就是不穩定總是當機?難道callback函數在excel還不行用?

cP0IctR5.rar (42.05 KB, 下载次数: 37)

2004-7-5 16:59 上传

点击文件名下载附件
求教ldhyob斑竹:怎样实现BUTTON的工作表浏览器窗体的RISIZE?

菱角

終於不負眾望.圓滿完成.
感謝BUTTON及ldhyob版主熱心指導.
請各位先進大力給予批評指教.
口令:crdotlin

GWRhskWJ.rar (48.27 KB, 下载次数: 139)

2004-7-6 10:56 上传

点击文件名下载附件
求教ldhyob斑竹:怎样实现BUTTON的工作表浏览器窗体的RISIZE?

粉累! 原來插花的.不意竟然下桌主打至今.

[此贴子已经被清风_ll于2006-8-28 13:40:54编辑过]

Edward.Zhou

菱角 辛苦了，理应给一个精华。

台湾朋友中，高手真是不少。

gpgpgp

我这也出现了这个问题。我的环境是winxo+off2000

菱角

呵....真的還沒完沒了. 要丟還給BUTTON了. 請BUTTON多費心了.

sunnet

以下是引用Emily在2004-7-6 11:29:00的发言：

不是 "理應.."

強烈要求給 精華

谢谢 Emily 的“抗议”。

不过，在您的“抗议”之前，菱角的此答复已经被定为精华了！哈哈。

菱角

以下是引用button在2004-7-6 11:52:00的发言：

我的环境是win2k+offxp,无法开启其它工作表,新建的工作表也找不到

只要用了鉤子函數就會如button所說. 請測試看看. Private Sub WorkBook_Open() XLhwnd = Application.hWnd 'FindWindow("XLMAIN", vbNullString) ParentHwnd = FindWindowEx(XLhwnd, ByVal 0&, "XLDESK", vbNullString) Set myApp = New Class1 Set myApp.clsApp = Application With Application.CommandBars("standard").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True) .FaceId = 200 .OnAction = "myReload" End With myInit chgXLDESKrgn 'HookMe '試試這個.可以準確抓到move,size,mix,min但..... mySizeCh '最後還是用回這個. End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'UnhookWindowsHookEx hHook On Error Resume Next Application.OnTime nTm, "reNewIt", schedule:=False Application.OnTime mTm, "mySizeCh", schedule:=False On Error GoTo 0 Do With Application.CommandBars("standard").Controls(1) If .FaceId = 200 Then .Delete End With Loop Until Application.CommandBars("standard").Controls(1).FaceId <> 200 Unload frmExplorer MYrestore Set myApp = Nothing End Sub 敬請指教.並提供更佳方法

0YXYUik5.rar (52.02 KB, 下载次数: 159)

2004-7-6 22:01 上传

点击文件名下载附件
求教ldhyob斑竹:怎样实现BUTTON的工作表浏览器窗体的RISIZE?

gpgpgp

文件执行错误,语句停留在 : XLhwnd = Application.hWnd 'FindWindow("XLMAIN", vbNullString) ，我用的是：winXP+office2000 ，请指教。

FENGJUN

菱角:

辛苦了!这样专业水准的帖子是不多见的.

似乎还有些微瑕:滑鼠的箭头老在抖动.

FENGJUN

以下是引用菱角在2004-7-6 22:01:00的发言：

只要用了鉤子函數就會如button所說. 請測試看看. Private Sub WorkBook_Open() XLhwnd = Application.hWnd 'FindWindow("XLMAIN", vbNullString) ParentHwnd = FindWindowEx(XLhwnd, ByVal 0&, "XLDESK", vbNullString) Set myApp = New Class1 Set myApp.clsApp = Application With Application.CommandBars("standard").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True) .FaceId = 200 .OnAction = "myReload" End With myInit chgXLDESKrgn 'HookMe '試試這個.可以準確抓到move,size,mix,min但..... mySizeCh '最後還是用回這個. End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'UnhookWindowsHookEx hHook On Error Resume Next Application.OnTime nTm, "reNewIt", schedule:=False Application.OnTime mTm, "mySizeCh", schedule:=False On Error GoTo 0 Do With Application.CommandBars("standard").Controls(1) If .FaceId = 200 Then .Delete End With Loop Until Application.CommandBars("standard").Controls(1).FaceId <> 200 Unload frmExplorer MYrestore Set myApp = Nothing End Sub 敬請指教.並提供更佳方法