VB主窗體如何與子窗體粘合,vb 主窗體如何連線到子窗體

2023-03-03 23:35:21 字數 2437 閱讀 8072

1樓:帳號已登出

在form1的resize事件中加入控制form2的top,left及width,height的**.

2樓:七月風

根據你這個問題 搜了很久~~~答案非常少 你想實現的效果我明白 就如flash fireworks中那些會自動沾連的窗體(當然簡單的也可以說是vb中的那種效果)

上面這個連結中是討論如果讓多窗體同時獲取焦點的 你參考一下吧~~~笨一點的方法是自己設定子窗體的width 和height top left 等屬性來模擬~~~~

答案只可以比到這個 其它的 沒啦 因為這種效果大家都沒一個標準的名詞

3樓:獨特且淡雅的財寶

抱歉,我理解錯了,就算路過的吧~~~

vb 主窗體如何連線到子窗體

4樓:

在你的選單裡雙擊開啟**編輯視窗在裡面新增"子視窗的名稱.show"就可以了

例如:private sub 選單名_click()子視窗名稱.show

end sub

5樓:匿名使用者

在選單的事件里加:

子窗體.控制元件名.事件

《表示呼叫子窗體某控制元件的事件》

如何給vb.net窗體新增子窗體?

6樓:

mdi窗體才可以新增子窗體,新增後 假如為form1直接寫form1.mdiparent=meform1.windowstate=system.

formwindowstate.max......

form1.show()

vb 如何使主窗體選單與子窗體的選單同步?

7樓:匿名使用者

新增一個模組,在模組裡宣告一個公共變數

public mynumber as integer假設你在子窗體有3個頁面,分別對應3個**那麼,在父窗體選單有3項

單擊選單1,mynumber=1

單擊選單2,mynumber=2

單擊選單3,mynumber=3

啟動子窗體時,根據mynumber值,確定分別顯示哪個**private sub form_load()select case mynumber

case 1

'顯示**1

case 2

'顯示**2

case 3

'顯示**3

end select

end sub

vb如何建立主窗體的子窗體

8樓:白木道人

先建立一個mdiform1再新增窗體form1。吧form1的mdichild屬性設為ture

9樓:

在屬性裡找mdichild 調整屬性值

vb2013如何在父窗體內開啟一個子窗體並將子窗體最大化類似360那樣的!

10樓:匿名使用者

load事件中最大化。

設定全域性變數,就不會不停地新建。用的時候才show

vb mdi窗體與子窗體的選單如何不合並?

11樓:匿名使用者

沒有辦法取消合併,但是可以考慮把兩個窗體設為正常窗體,然後將父窗體調整為佔滿整個螢幕,並把視窗設為最前、窗體背景顏色設為灰色。這樣有選單的子視窗就在父視窗的範圍內顯示,就產生出 mdi 窗體的效果了。

如果這樣做,還需要注意一個問題,那就是"父窗體"的某些事件沒有影響到"子窗體",例如當"父窗體"最小化時,"子窗體"仍在螢幕上顯示,下面的**可以避免這種現象:

private sub mdiform1_resize()'檢測是否最小化

if me.windowstate = vbminimized then

'隱藏子窗體

form1.hide

else then '父窗體最大化或正常化顯示'顯示子窗體

form1.show

end if

end sub

12樓:

把你的mdi窗體改成正常窗體不就行了麼,vb我好久不使了,有點忘了,盤也沒了,沒法給你驗證一下,把屬性挨個點點看吧。

13樓:巴珈藍德

mdichild = true

VB窗體邊框美化問題,VB窗體邊框美化問題

為窗體新增隨滑鼠移動的功能的 mousedown事件 如果是滑鼠左鍵按下 if button 1 then 標示為移動狀態 movescreen true 得到滑鼠在窗體上的位置 相對與窗體內部座標 mousx x mousy y end if mousemove事件 if movescreen t...

vb 窗體最大化,VB 窗體最大化

vb程式執行時,把視窗最大化後,視窗是不能被調整大小的 最小化除外 在程式中也不行。設計時,可以正常視窗呈現,並遮蔽窗體的最大化按鈕,自己做個替代的 最大化 按鈕,實現窗體放大。當點選 最大化 時,觸發form的resize事件,在form的resize事件中,寫入 private sub form...

vb中控制窗體位置

樓上提供一種思路,如下 option explicit dim wz as boolean 宣告變數private sub form load me.height screen.height 2me.width screen.width 2end sub private sub form mouse...