vb.net滑动换屏 vb移动窗体

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

我晕。。。

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

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

切入正题，大致思路：

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

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

相关问答

Q1: VB.NET中如何实现当鼠标移动到按钮上，按钮的背景图片就变换一张，鼠标移开，又变回原来的背景图。

Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Button1.BackgroundImage = My.Resources.a

    End Sub

  Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

      Button1.BackgroundImage = My.Resources.b

    End Sub

  Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave

      Button1.BackgroundImage = My.Resources.a

    End Sub

End Class

当然，你先得制作两张大小一样的图片

Q2: VB NET窗体页面切换和另一个问题

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 If

End Sub

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

vb.net滑动换屏的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb移动窗体、vb.net滑动换屏的信息别忘了在本站进行查找喔。