1、如果不用用戶控件,那就用Panel,單擊按鈕時(shí)顯示相應(yīng)的Panel,隱藏不相關(guān)的Panel。
成都創(chuàng)新互聯(lián)公司是一家專注于成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)與策劃設(shè)計(jì),隆昌網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:隆昌等地區(qū)。隆昌做網(wǎng)站價(jià)格咨詢:13518219792
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() '打開編輯窗口。
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的類容不為空時(shí)。
Form1.ListView1.Items.Add(TextBox1.Text)'把TextBox1的類容添加到ListView中。
Me.Close()'添加完后關(guān)閉窗口。
Else ’Else,如果為空。
Dim k = MsgBox("類容為空!" Chr(10) "是否取消添加?", vbYesNo)'提醒用戶是否取消向ListView添加類容。
If k = vbYes Then '用戶點(diǎn)擊確認(rèn)時(shí)。
Me.Close() '取消操作。
End If
End If
End Sub
新建Form2只要點(diǎn)“項(xiàng)目”“添加Windows窗體”,在彈出的對(duì)話框中的“名稱”寫為“Form2.vb”,再“創(chuàng)建”,就行了。之后在里面添加相應(yīng)的用戶控件。
它的原理,應(yīng)該是這樣,,上面那行是 工具欄 經(jīng)過加工處理的。。
應(yīng)該有多個(gè)界面重疊在一起。。單擊哪個(gè)再顯示相應(yīng)的界面。。
在Form1中
Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub
在Form2中
Private Sub Command1_Click()
Form1.Show
Me.Hide
End Sub
--------------------------】、
希望能采納