锐客网

  1. 首页 > 生活百科 > it技术 > >

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

IT技术stringstream

vb.net如何做一个类似手机桌面的效果，就是可以托一下就换一个桌面，还要有拖动的效果 。我晕 。。。
1楼，楼主说的是类似手机桌面 ， 不是说些手机程序（虽然.net确实可以写手机程序（蛋疼 。。））
2楼，为啥不直接改变容器的Left 。。。。
切入正题，大致思路：
用一个容器，如Panel来盛装所有控件，Panel的MouseMove事件中通过e.Button判断左键按下来实现拖动的效果，然后在计时器中更改Panel的Location 。（这样做很简单 ， 但效率非常低）
【vb.net滑动换屏 vb移动窗体】要流畅的话 ， 就自己写一个容器控件，内部的子控件全部自己绘制（实现一些轻量级的控件类），不过工作量较大
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
当然，你先得制作两张大小一样的图片
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滑动换屏的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：qt远程访问数据库 qt远程服务器怎么样

    下一篇：如何在电视上播ppt的简单介绍