[开_43] 在同一活頁簿中顯示 2 個視窗 ★★ (已總結)

Emily · 发表于 2005-6-23 17:26

在同一活頁簿中顯示 2 個視窗

要求:

1. 編碼運行後顯示 2 個視窗

2. 視窗大小是 400 x 400

3. 視窗 1 及視窗 2 距離 50，同時在同一水平線

4. 當關閉活頁簿時需要編碼關閉所有視窗及視窗設定 xlMaximized

各位參予的朋友，你們對條件 1 可能忽略，我想用另外方式表達:

開啟檔案但不軌執行宏時只得 1 Window，執行才產生 2 個或以上 - Emily , 27-06-2005

[此贴子已经被作者于2005-6-30 11:56:52编辑过]

rylane · 发表于 2005-6-23 17:48

楼主能抓张图看一下吗？这样更形象些，视窗是指哪一种？是EXCEL程序窗口，还是指USERFORM窗口？

清风_ll · 发表于 2005-6-23 17:49

视窗是指什么?

Emily · 发表于 2005-6-23 19:33

以下是引用rylane在2005-6-23 17:48:05的发言：
楼主能抓张图看一下吗？这样更形象些，视窗是指哪一种？是EXCEL程序窗口，还是指USERFORM窗口？

如果你做到 2 個 Userform 同時顯示，那就更好。 [em24]

清风_ll · 发表于 2005-6-23 20:39

Open book2.xls.OK?

anEyowvw.rar (11.21 KB, 下载次数: 78)

是一活頁薄中顯示 2 視窗，不是 2 活頁薄 - Emily

[此贴子已经被Emily于2005-6-24 20:51:38编辑过]

清风_ll · 发表于 2005-6-23 20:47

以下是引用Emily在2005-6-23 19:33:06的发言： >
如果你做到 2 個 Userform 同時顯示，那就更好。 [em24]

在第一个窗体的激活事件中,显示另一个窗体就可以了,因VBA为单线程,不可能同时显示

两个窗体的ShowModal设为false

Emily · 发表于 2005-6-23 21:00

以下是引用清风_ll在2005-6-23 20:39:53的发言：

是一活頁薄中顯示 2 視窗，不是 2 活頁薄

清风_ll · 发表于 2005-6-23 22:26

以下是引用Emily在2005-6-23 21:00:18的发言：
是一活頁薄中顯示 2 視窗，不是 2 活頁薄

oxMNEdDm.rar (9.63 KB, 下载次数: 55)

可以不限定 Window 的多小嗎？i.e. If ThisWorkbook.Windows.Count > 1 Then Exit Sub - Emily

[此贴子已经被Emily于2005-6-24 21:08:18编辑过]

rylane · 发表于 2005-6-23 23:56

我这儿两个400*400视口怎么显示不下呢，可能还是有一点问题。两个FORM窗口的显示模块也做了，但也不理想，能并排显示，可关了一个，另一个FORM想最大化时还没想到办法。

DKkM3Shb.rar (15.87 KB, 下载次数: 41)

是一活頁薄中顯示 2 視窗，不是 2 活頁薄 - Emily

[此贴子已经被Emily于2005-6-24 21:11:24编辑过]

apolloh · 发表于 2005-6-24 08:44

To Emily， [开放式竞赛区]的开放式的竞赛发言不需要屏蔽答案，要公开答案才好让别人想办法超越，答案重复或雷同是不能得分的。如果屏蔽了大家就不知道自己的答案是否与别人重复了。因为这个区的主要目的是发现新的方法。 [正式竞赛区]的正式的竞赛，答案公布前是看不到的，所以允许重复，但我们选择最优的答案。下面的链接是开放区的运作和评分原则，可能你还没读到：）

http://club.excelhome.net/viewthread.php?tid=105069

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

[Excel 程序开发] [开_43] 在同一活頁簿中顯示 2 個視窗 ★★ (已總結)

有点麻烦