我暈。。。
目前創(chuàng)新互聯(lián)已為上千余家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)站空間、網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計、遵化網(wǎng)站維護(hù)等服務(wù),公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
1樓,樓主說的是類似手機(jī)桌面,不是說些手機(jī)程序(雖然.net確實可以寫手機(jī)程序(蛋疼。。))
2樓,為啥不直接改變?nèi)萜鞯腖eft。。。。
切入正題,大致思路:
用一個容器,如Panel來盛裝所有控件,Panel的MouseMove事件中通過e.Button判斷左鍵按下來實現(xiàn)拖動的效果,然后在計時器中更改Panel的Location。(這樣做很簡單,但效率非常低)
要流暢的話,就自己寫一個容器控件,內(nèi)部的子控件全部自己繪制(實現(xiàn)一些輕量級的控件類),不過工作量較大
VB.net中點(diǎn)擊標(biāo)簽頁面觸發(fā)的Selected事件,代碼如下。
Private Sub TabControl_Selected(sender As Object, e As TabControlEventArgs) Handles TabControl.Selected
If e.TabPage.TabIndex = TabPage1.TabIndex Then
MsgBox("你點(diǎn)擊了第一個標(biāo)簽控件")
End If
End Sub
1、如果不用用戶控件,那就用Panel,單擊按鈕時顯示相應(yīng)的Panel,隱藏不相關(guān)的Panel。
2、E死了:
ADD按鈕的Click事件:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'要先新建一個Form2窗口,里面有一個文本輸入框TextBox1和一個按鈕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的類容不為空時。
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)時。
Me.Close() '取消操作。
End If
End If
End Sub
新建Form2只要點(diǎn)“項目”“添加Windows窗體”,在彈出的對話框中的“名稱”寫為“Form2.vb”,再“創(chuàng)建”,就行了。之后在里面添加相應(yīng)的用戶控件。
分享題目:vb.net滑動換屏 vbs 切換指定窗口
分享地址:http://jinyejixie.com/article6/dosgcig.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、服務(wù)器托管、營銷型網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、小程序開發(fā)、網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)