VB笨問題 = =

[尚未認證通過]

想請問一個問題..
VB可以直接在程式裡面新增一個物件ㄇ??
例如本來沒有button
要用程式新增一個button在form上
如果可以ㄉ話..要怎麼寫ㄋ??
可以教我ㄇ..謝謝

--
[m [1;35m※ 來源:‧蛋捲廣場 bbs.tku.edu.tw‧[FROM: 163.13.99.156] [m

[)]

※ 引述《treebi...@bbs.tku.edu.tw (尚未認證通過)》之銘言：

> 想請問一個問題..
> VB可以直接在程式裡面新增一個物件ㄇ??
> 例如本來沒有button
> 要用程式新增一個button在form上
> 如果可以ㄉ話..要怎麼寫ㄋ??
> 可以教我ㄇ..謝謝

你可以先讓按鈕隱形..
--
天氣熱..想到蠢魚..於是不熱..:)

~vegafish~
--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: h115.s80.ts32.hinet.net

[草兒]

==> 在 vegafi...@bbs.cs.nthu.edu.tw (回家了..:)) 的文章中提到:

> ※ 引述《treebi...@bbs.tku.edu.tw (尚未認證通過)》之銘言：
> > 想請問一個問題..
> > VB可以直接在程式裡面新增一個物件ㄇ??
> > 例如本來沒有button
> > 要用程式新增一個button在form上
> > 如果可以ㄉ話..要怎麼寫ㄋ??
> > 可以教我ㄇ..謝謝
> 你可以先讓按鈕隱形..

嗯…一開始先隱形…index屬性設為0
然後如果到時你要新增按鈕的話…
就直接load.command(n)這樣就可以複製一個command物件…
不過…visible記得設回true這樣才可以顯示出來…
這個方法是當你要新增的按扭不只一個的時候用的…
如果純粹是新增一個的話…隱形就可以囉~~
--
不怕死的十七歲小鬼…
^~~~^
( ^_^*)//
───GRASSBOY
--
* Origin: ★ 交通大學資訊科學系 BBS ★ <bbs.cis.nctu.edu.tw: 140.113.23.3>

[尚未認證通過]

《 在 chint...@bbs.mgt.ncu.edu.tw (小逃兵) 的大作中提到: 》
: ==> : treebi...@bbs.tku.edu.tw (尚未認證通過), 看板: OOP 提到:
: : 發信人: treebi...@bbs.tku.edu.tw (尚未認證通過), 看板: OOP
: : 標 題: VB笨問題 = =
: : 發信站: 淡江大學 BBS (Mon Jan 21 17:02:58 2002)
: : 轉信站: totoro!news.mgt.ncu!news.ncu!news!tkunews!news.tku!TKU-BBS
: 最簡單的方式
: 就是先在form上放一個invisible的button
: 然後設定這個button的index屬性為0
: 使這個button成為button array
: 往後..你就可以使用load這個命令
: 動態的在run time時產生新的button
: ex:
: Sub IncreaseButton(intIndex as Integer)
: Load CommandButton(intIndex)
: CommandButton(intIndex).Visible = True
: End Sub
: 不過聽說在VB6中可以有另外的方式
: 我現在並沒有記下來!
: 印象中好像是利用CreateObject
: 直接產生一個Button的instance
: 你可以找書看看!

嗯嗯...這個我了解ㄌ
可是沒有辦法可以隨機增加n個buttonㄇ???
因為我是要做踩地雷
想讓他可以讓使用者作10~100見方ㄍbuttonㄉ範圍
那上面ㄉ方法不就要先在form建立100*100ㄍbutton
然後設成invisible....
想問問看有沒有辦法就直接從程式建立button
而事先不用先建立...
上面有錯還請多多指教...謝z

[小逃兵]

ㄜ..我想你可能會錯意了哦
首先..先在form上放一個button
只放一個哦..
這時候此button的index為0
然後當你要新增一個按鈕的時候
你就可以執行下面這段程式
Dim i as Integer

Sub Main()
For i = 1 to 100 step 1
IncreaseCommandButton(i)
Next
End Sub

Sub IncreaseCommandButton(i as Integer)

Load CommandButton(i)
CommandButton(i).Visible = True
Sub

這樣就可以動態產生一百的button囉..
不過如果你的程式一執行..可能看起來還是會只有一個button
因為這100個button都在同一個位置上..!
所以你還要設定一下每個button的left及top屬性
Good Luck to you
--
◎ [1;31m龍 [32m貓 [33m資 [34m訊 [35m天 [36m地 [0m( [1mbbs.mgt.ncu.edu.tw [0m)
◎[ [1;33;46mchintau [0m]From: ns1.gemtek.com.

[尚未認證通過]

《 在 chint...@bbs.mgt.ncu.edu.tw (小逃兵) 的大作中提到: 》
: ㄜ..我想你可能會錯意了哦

: 首先..先在form上放一個button
: 只放一個哦..
: 這時候此button的index為0
: 然後當你要新增一個按鈕的時候
: 你就可以執行下面這段程式
: Dim i as Integer
: Sub Main()
: For i = 1 to 100 step 1
: IncreaseCommandButton(i)
: Next
: End Sub
: Sub IncreaseCommandButton(i as Integer)
: Load CommandButton(i)
: CommandButton(i).Visible = True
: Sub
: 這樣就可以動態產生一百的button囉..
: 不過如果你的程式一執行..可能看起來還是會只有一個button
: 因為這100個button都在同一個位置上..!
: 所以你還要設定一下每個button的left及top屬性
: Good Luck to you

soga...原來是這樣歐....嗯恩...我了解ㄌ..
謝謝指教...來做我ㄉ採地雷去嚕..謝z

--
[m [1;37m※ 來源:‧蛋捲廣場 bbs.tku.edu.tw‧[FROM: 163.13.99.156] [m