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

FENGJUN · 发表于 2004-4-26 10:50

求教ldhyob斑竹:

1、怎样实现BUTTON的工作表浏览器窗体的RISIZE? 2、该窗体无法显示独立的图表工作表页，如何解决？

2A9cz8Mk.rar (39.68 KB, 下载次数: 192)

===============================

To FENGJUN：

您既然在 Excelhome 提问，请把相关附件贴到这里来，不要给个链接了事。

现在我已帮您将您的附件转贴在此。但仅此一次，下不为例。

[此贴子已经被Edward.Zhou于2004-7-6 11:12:30编辑过]

cofe2000 · 发表于 2004-5-19 23:08

楼主精神可嘉，帮你顶一下

最近好久没看见ldhyob版主了

FENGJUN · 发表于 2004-5-26 16:51

在一楼增加了问题2：（2、该窗体无法显示独立的图表工作表页，如何解决？）

FENGJUN · 发表于 2004-6-1 22:07

ldhyob版主终于面世了，赶紧顶。

FENGJUN · 发表于 2004-6-2 21:44

以下是引用ldhyob在2004-6-1 22:25:00的发言：

TO FENGJUN:

呵呵，“求教”真的不敢当。我们来共同研究研究倒是真的:-)

您说的两个问题，不好意思，我没弄清：

1、是指放置于工具栏的窗体的大小控制吗？

2、“独立的图表工作表页”是什么意思？

To Ldhyob:

第2个问题已经解决。我所说的“独立的图表工作表页”指不是嵌入表页的charts.

第1个问题确是“是指放置于工具栏的窗体的大小控制”，能让其象IE的“历史记录”窗体一样左右改变大小。等待中......

[此贴子已经被作者于2004-6-2 21:45:11编辑过]

FENGJUN · 发表于 2004-6-16 12:15

FENGJUN · 发表于 2004-6-23 12:25

众位大侠：看看这个东东是否有启发来着？

http://www.officefans.net/cdb/viewthread.php?tid=18343

菱角 · 发表于 2004-6-23 20:43

以下是引用FENGJUN在2004-4-26 10:50:00的发言：

1、怎样实现BUTTON的工作表浏览器窗体的RISIZE?

對不起, 插個花... 首先.是不是直接將userform setparent 在XLDESK就好? tWnd = Application.hWnd hForm = FindWindow("ThunderDFrame", vbNullString) ParentHwnd = FindWindowEx(tWnd, ByVal 0&, "XLDESK", vbNullString) SetParent hForm, ParentHwnd

菱角 · 发表于 2004-6-24 21:47

插花沒人收. 我自己看了一下.也認為不值得收. 換一個比較麻辣一點的看看. BUTTON的代碼大致如下... 1. add一個commandbar. 2. 在commandbar上加3個大大的buttons撐大容器. 3. commandbar放置視窗左邊.再將userform放在裡面. 我有個想法.... 1. Thisworkbook... Private Sub WorkBook_Open() TitleInfo.cbSize = Len(TitleInfo) GetTitleBarInfo Application.hwnd, TitleInfo 'frmExplorer.Show End Sub 2. Module... Option Explicit Public TitleInfo As TITLEBARINFO Sub chgXLDESKrgn() Dim tWnd As Long Dim ParentHwnd As Long Dim theRect As RECT Dim x As Long, y As Long, cx As Long, cy As Long Dim tthnd As Long, dsp As Long dsp = TitleInfo.rcTitleBar.bottom - TitleInfo.rcTitleBar.top ParentHwnd = FindWindowEx(Application.hwnd, ByVal 0&, "XLDESK", vbNullString) GetWindowRect ParentHwnd, theRect x = theRect.left + 200: y = theRect.top - dsp: cx = theRect.right - 200: cy = theRect.bottom - theRect.top SetWindowPos ParentHwnd, HWND_BOTTOM, 200, y, cx, cy, SWP_NOZORDER End Sub

fDxwpEV1.rar (31.77 KB, 下载次数: 81)

菱角 · 发表于 2004-6-25 10:07

以下是引用button在2004-6-25 9:31:00的发言： 有启发

終於有人收了. 振奮的心情.加緊趕工. 請大家合計合計以求達到樓主要求...

xLGcqfAe.rar (39.85 KB, 下载次数: 82)

		自动登录	找回密码
密码			免费注册

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

如图：