1、如果不用用戶控件,那就用Panel,單擊按鈕時(shí)顯示相應(yīng)的Panel,隱藏不相關(guān)的Panel。
麗江網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),麗江網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為麗江超過(guò)千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢(qián),請(qǐng)找那個(gè)售后服務(wù)好的麗江做網(wǎng)站的公司定做!
2、E死了:
ADD按鈕的Click事件:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'要先新建一個(gè)Form2窗口,里面有一個(gè)文本輸入框TextBox1和一個(gè)按鈕Button1。
Form2.Show() '打開(kāi)編輯窗口。
End Sub
Form2窗口的Button1按鈕事件Click:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text "" Then '當(dāng)TextBox1的類(lèi)容不為空時(shí)。
Form1.ListView1.Items.Add(TextBox1.Text)'把TextBox1的類(lèi)容添加到ListView中。
Me.Close()'添加完后關(guān)閉窗口。
Else ’Else,如果為空。
Dim k = MsgBox("類(lèi)容為空!" Chr(10) "是否取消添加?", vbYesNo)'提醒用戶是否取消向ListView添加類(lèi)容。
If k = vbYes Then '用戶點(diǎn)擊確認(rèn)時(shí)。
Me.Close() '取消操作。
End If
End If
End Sub
新建Form2只要點(diǎn)“項(xiàng)目”“添加Windows窗體”,在彈出的對(duì)話框中的“名稱(chēng)”寫(xiě)為“Form2.vb”,再“創(chuàng)建”,就行了。之后在里面添加相應(yīng)的用戶控件。
這是6.0的方法:
用
先在每個(gè)窗體上畫(huà)一個(gè)“下一步”按鈕
然后用
窗體名稱(chēng).Show的方法
切換窗體
例如:
Form1.show
就可以激活Form1窗體
全局變量建議定義在模塊(Moudle)中
建立模塊的方法是單擊菜單
【工程】|【添加模塊】命令添加
然后用
Public 變量 As 類(lèi)型
語(yǔ)句來(lái)定義全局變量
Public關(guān)鍵字也可以用Global代替
兩者的作用一樣
補(bǔ)充:比如流程是這樣的(VB6.0版)
Form1-Form2-Form3-FormEnd
在每個(gè)窗體上畫(huà)一個(gè)Command按鈕
命名為cmdNext
然后在cmdNext_Click事件中添加代碼:
Form1:
Private Sub cmdNext_Click()
Form2.show
unload me
end Sub
Form2:
Private Sub cmdNext_Click()
Form3.show
unload me
end Sub
Form3:
Private Sub cmdNext_Click()
FormEnd.show
unload me
end Sub
FormEnd:
Private Sub cmdNext_Click()
END
end Sub
其他的自己加上就行了
vb中有例子,你可以嘗試自行研究。
方法:工程
-
添加窗體
-
選項(xiàng)對(duì)話框。這個(gè)選項(xiàng)對(duì)話框已經(jīng)有相關(guān)的應(yīng)用代碼。
不過(guò)你可以嘗試人性化的自定義。方法:
工程
-
部件
-
microsoft
windows
common
controls
*.*
點(diǎn)解tabstrip圖標(biāo),添加到窗體。
右鍵點(diǎn)擊tabstrip,選擇屬性,對(duì)tabstrip進(jìn)行自定義。
點(diǎn)擊選項(xiàng)卡,在標(biāo)題欄填寫(xiě)類(lèi)似新建、現(xiàn)存、最新等名字。如果需要添加選項(xiàng)卡,可以點(diǎn)擊插入選項(xiàng)卡按鈕
實(shí)現(xiàn)點(diǎn)擊切換:我比較喜歡在窗體中添加frame,點(diǎn)擊選項(xiàng)卡則顯示相應(yīng)的frame。例如:
private
sub
tabstripsite_click()
'設(shè)置選項(xiàng)卡點(diǎn)擊顯示情況
for
counter
=
to
tabstripsite.tabs.count
-
1
'從0開(kāi)始計(jì)算判斷所點(diǎn)擊的選項(xiàng)卡
select
case
tabstripsite.selecteditem.caption
'判斷選中的選項(xiàng)卡的標(biāo)題欄(caption)的值
case
frasitebasic.caption
frasitebasic.visible
=
true
'設(shè)置visible狀態(tài)
frasiteowner.visible
=
true
frasitelocal.visible
=
false
frasitepower.visible
=
false
case
frasitelocal.caption
frasitebasic.visible
=
false
frasiteowner.visible
=
false
frasitelocal.visible
=
true
frasitepower.visible
=
false
case
frasitepower.caption
frasitebasic.visible
=
false
frasiteowner.visible
=
false
frasitelocal.visible
=
false
frasitepower.visible
=
true
end
select
next
end
sub
==========
希望能幫上一點(diǎn)忙
VB中的窗體是程序執(zhí)行的窗口,也是其他控件的容器。一個(gè)VB工程中可能含有多個(gè)窗體,但只有一個(gè)窗體是主窗體,VB程序的運(yùn)行默認(rèn)從主窗體開(kāi)始??梢栽赩B6.0 菜單欄“工程”最下方“工程屬性”設(shè)置啟動(dòng)窗體。
VB是一種面向?qū)ο蟮氖录?qū)動(dòng)機(jī)制的程序設(shè)計(jì)語(yǔ)言。窗體的常用事件有Hide(隱藏船體);Show(顯示窗體);Unload(將窗體從內(nèi)存中卸載);Load(將窗體加載到內(nèi)存中)。
切換窗體比如當(dāng)前是窗體1,需要切換到窗體2可以用以下代碼:
Unload Form1 ? ? ? ? ? ? ? ‘從內(nèi)存卸載Form1
Form2.Show ? ? ? ? ? ? ? ? ? ?'顯示Form2,完成切換
如果不想把Form1從內(nèi)存卸載,以后還要用到Form1,可以用以下代碼:
Form1.Hide ? ? ? ? ? ? ? ? ? ? ?'隱藏Form1,但保留在內(nèi)存中
Form2.Show ? ? ? ? ? ? ? ? ? ? '顯示Form2,完成切換