vb.net滑动换屏 vbs 切换指定窗口-成都创新互联网站建设

关于创新互联

多方位宣传企业产品与服务 突出企业形象

公司简介 公司的服务 荣誉资质 新闻动态 联系我们

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

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

我晕。。。

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

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

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

切入正题,大致思路:

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

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

vb.net中tabcontrol的页面切换事件怎么写

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

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滑动换屏 vbs 切换指定窗口
文章源于:http://kswsj.cn/article/dosgcig.html

其他资讯