刪除所有列表項(xiàng)目
從策劃到設(shè)計(jì)制作,每一步都追求做到細(xì)膩,制作可持續(xù)發(fā)展的企業(yè)網(wǎng)站。為客戶提供成都做網(wǎng)站、網(wǎng)站建設(shè)、網(wǎng)站策劃、網(wǎng)頁設(shè)計(jì)、國際域名空間、虛擬空間、網(wǎng)絡(luò)營銷、VI設(shè)計(jì)、 網(wǎng)站改版、漏洞修補(bǔ)等服務(wù)。為客戶提供更好的一站式互聯(lián)網(wǎng)解決方案,以客戶的口碑塑造優(yōu)易品牌,攜手廣大客戶,共同發(fā)展進(jìn)步。
combobox2.Clear
增加新項(xiàng)目,n為你選中第一個(gè)Combobox索引,來確定你二維數(shù)組的值
n = Combobox1.Items.SelectIndex
GetLength(1) 是得到你二維數(shù)組的長(zhǎng)度
for i = 0 to aTemp.GetLength(1)
if aTemp(n,i) "" then
Combobox2.Items.Insert aTemp(n,i)
end if
next
新窗體中寫
構(gòu)造函數(shù)
,然后調(diào)用。
比如你要調(diào)用的新窗體是From1.cs這個(gè)窗體,
public
Form1(要傳入的參數(shù))
{
//把傳入的參數(shù)傳入窗體中
//執(zhí)行窗體標(biāo)準(zhǔn)內(nèi)容
}
然后在需要調(diào)用的地方調(diào)用
Form1
f
=
new
Form1(傳出的參數(shù));
'--------Form1--------
Dim
f2
As
Form2
Private
Sub
Command1_Click()
Set
f2
=
New
Form2
f2.Show
vbModal
End
Sub
'--------Form1
End--------
'--------Form2--------
Dim
WithEvents
f3
As
Form3
Private
Sub
Command1_Click()
Set
f3
=
New
Form3
f3.Show
End
Sub
Public
Sub
f3_f2W()
Me.Command1.Caption
=
"f2W"
End
Sub
'--------Form2
End--------
'--------Form3--------
Public
Event
f2W()
Private
Sub
Command1_Click()
RaiseEvent
f2W
End
Sub
'--------Form3
End--------
f.Show();
如此就能實(shí)現(xiàn)調(diào)用了。
1、沒有事件是直接由最小化、還原觸發(fā)的,它們都會(huì)觸發(fā)SizeChanged事件。所以你可以寫主窗體的SizeChanged事件來控制副窗體顯隱,順便改變副窗體的相對(duì)位置;
2、在SizeChanged事件中,通過判斷窗體的WindowState屬性來確定用戶是最小化還是還原了;(FormWindowState.Minimized和FormWindowState.Normal枚舉)
3、調(diào)用副窗體的BringToFront方法可以把副窗體帶到最前面來
首先引入那個(gè)項(xiàng)目的命名空間,在代碼最上方用Imports語句,比如
Imports Project1
然后在需要用的地方寫
Dim aform As New MyForm1()
然后通過aform對(duì)象的Show方法(彈出普通窗口)或ShowDialog(彈出窗口時(shí)后方窗口無響應(yīng))方法來顯示窗口,最后調(diào)用Dispose方法釋放對(duì)象內(nèi)存。
Private Sub Form_Click() Form2.Show Form1.Hide End Sub Private Sub Form_Load() Form1.Show End Sub 效果是一樣的