vb.net滑动换屏 vbs 切换指定窗口

vb.net如何做一个类似手机桌面的效果，就是可以托一下就换一个桌面，还要有拖动的效果。

我晕。。。

目前创新互联已为上千余家的企业提供了网站建设、域名、网站空间、网站托管、企业网站设计、遵化网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

1楼，楼主说的是类似手机桌面，不是说些手机程序（虽然.net确实可以写手机程序（蛋疼。。））

2楼，为啥不直接改变容器的Left。。。。

切入正题，大致思路：

用一个容器，如Panel来盛装所有控件，Panel的MouseMove事件中通过e.Button判断左键按下来实现拖动的效果，然后在计时器中更改Panel的Location。（这样做很简单，但效率非常低）

要流畅的话，就自己写一个容器控件，内部的子控件全部自己绘制（实现一些轻量级的控件类），不过工作量较大

VB.net中点击标签页面触发的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

1、如果不用用户控件，那就用Panel，单击按钮时显示相应的Panel，隐藏不相关的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()'添加完后关闭窗口。

Else ’Else，如果为空。

Dim k = MsgBox("类容为空！" Chr(10) "是否取消添加？", vbYesNo)'提醒用户是否取消向ListView添加类容。

If k = vbYes Then '用户点击确认时。

Me.Close() '取消操作。

End If

End Sub

新建Form2只要点“项目”“添加Windows窗体”，在弹出的对话框中的“名称”写为“Form2.vb”，再“创建”，就行了。之后在里面添加相应的用户控件。

文章标题：vb.net滑动换屏 vbs 切换指定窗口
路径分享：http://myzitong.com/article/dosgcig.html