新聞中心
vb.net如何做一個類似手機桌面的效果,就是可以托一下就換一個桌面,還要有拖動的效果。
我暈。。。
目前創(chuàng)新互聯(lián)已為上千余家的企業(yè)提供了網(wǎng)站建設、域名、網(wǎng)站空間、網(wǎng)站托管、企業(yè)網(wǎng)站設計、遵化網(wǎng)站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
1樓,樓主說的是類似手機桌面,不是說些手機程序(雖然.net確實可以寫手機程序(蛋疼。。))
2樓,為啥不直接改變?nèi)萜鞯腖eft。。。。
切入正題,大致思路:
用一個容器,如Panel來盛裝所有控件,Panel的MouseMove事件中通過e.Button判斷左鍵按下來實現(xiàn)拖動的效果,然后在計時器中更改Panel的Location。(這樣做很簡單,但效率非常低)
要流暢的話,就自己寫一個容器控件,內(nèi)部的子控件全部自己繪制(實現(xiàn)一些輕量級的控件類),不過工作量較大
vb.net中tabcontrol的頁面切換事件怎么寫
VB.net中點擊標簽頁面觸發(fā)的Selected事件,代碼如下。
Private Sub TabControl_Selected(sender As Object, e As TabControlEventArgs) Handles TabControl.Selected
If e.TabPage.TabIndex = TabPage1.TabIndex Then
MsgBox("你點擊了第一個標簽控件")
End If
End Sub
VB NET窗體頁面切換和另一個問題
1、如果不用用戶控件,那就用Panel,單擊按鈕時顯示相應的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 '當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 '用戶點擊確認時。
Me.Close() '取消操作。
End If
End If
End Sub
新建Form2只要點“項目”“添加Windows窗體”,在彈出的對話框中的“名稱”寫為“Form2.vb”,再“創(chuàng)建”,就行了。之后在里面添加相應的用戶控件。
網(wǎng)頁名稱:vb.net滑動換屏 vbs 切換指定窗口
本文路徑:http://fisionsoft.com.cn/article/dosgcig.html