vb.net滚动窗体 vb移动窗体

VB.NET中，如何编写代码使文字在窗口中上下循环滚动？

文字写在label的caption属性中，调用timer()函数

创新互联主要企业基础官网建设，电商平台建设，移动手机平台，小程序定制开发等一系列专为中小企业按需网站开发产品体系；应对中小企业在互联网运营的各种问题，为中小企业在互联网的运营中保驾护航。

附上我写的左右往复运动代码，实现image1在picture1中左右往复运动

Private

Sub

Timer1_Timer()

Image1.Left

Picture1.ScaleWidth

Image1.Width

Then

Image1.Left

Else

Image1.Left

End

Image1.Left

Then

End

Sub

vb.net中如何添加滚动条，像在VB6中那样的。不是窗体本身的滚动条

建立滚动条的方法如下：

（1）将鼠标移到ToolBox内的WinForm标签页的HscrollBar控件上，单击鼠标左键。

（2）将指针移至窗体中适当的位置，按住鼠标左键并拖动鼠标将HscrollBar控件调整到合适的大小放开左键。

（3）同样，再在Form上设置一个VscrollBar控件。

VB.net中窗体上控件太多，运行时在桌面上显示不全，怎样用滚动条来解决？请详细说明，最好给个小例子。

思路：

利用几个可以作为容器的控件，添加滚动条就可以了：

我举个例子：（这个问题我记得回答过的！）

添加1个PicTureBox1，作为容器

在PicTureBox1里添加PicTureBox2，在窗体上添加一个垂直滚动条。

把你所谓的许多控件放到PicTureBox2里，滚动条改变的是PicTureBox2在PicTureBox1里的Top属性，我想你通过一定的空间想象力，可以想到效果了吧？

注意：默认状态设置PicTureBox2的Top属性为0，当该属性为负值的时候，PicTureBox2显示的效果是向上移动，即下面原来隐藏的内容为可见了。

要设置PicTureBox2的AutoRedraw 属性为True。

若要左右移动效果，那么改变其 Left 属性，原理不再赘述了。

VB.net2008精彩实例，窗体应用技巧

本篇文章的主要开发环境是Visual Studio Visual Studio系列产品一直以来都提供了强大的控件功能然而我们利用这些控件可以编写出功能强大的应用程序本文主要利用微软的最开发工具为大家展示窗体特效的应用方法为大家介绍创建炫酷的透明化窗体以及浮动型窗体的一些技巧很适开发工具的初学者具有一定的实用价值

打开 Visual Studio 在文件 (File) 菜单上单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中单击 Windows 应用程序(Windows Application) 单击确定 (OK)

窗体应用技巧一创建浮动窗体

创建新工程后选择Form 窗体添加Timer 和Timer 控件为窗体选择一个好看的背景当然你也可以使用系统默认的背景

进入代码编辑器输入代码

Public Class Form Inherits System Windows Forms Form Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load Dim pos As Point = New Point( ) 设置窗体初始位置 Me DesktopLocation = pos Timer Interval = 设置Timer的值 Timer Enabled = True Timer Interval = Timer Enabled = False End Sub 进入Timer _Tick事件 Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick Dim pos As Point = New Point(Me DesktopLocation X + Me DesktopLocation Y + ) 窗体左上方横坐标的timer 加 If pos X Or pos Y Then Me DesktopLocation = pos Else Timer Enabled = False Timer Enabled = True End If End Sub 进入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick Dim pos As Point = New Point(Me DesktopLocation X Me DesktopLocation Y ) 窗体的左上方横坐标随着timer 减一 If pos X Or pos Y Then Me DesktopLocation = pos Else Timer Enabled = True Timer Enabled = False End If End Sub 创建完成后我们来运行程序测试一下测试成功程序在屏幕中不断地来回走动了

窗体应用技巧二创建透明的窗体

创建新工程后选择Form 窗体添加Label TrackBar Timer 控件为了突出效果为窗体选择一个好看的背景

相关的属性设置如下 TrackBar Value属性: TickFrequency: 属性: Maximum属性: Label Text属性: 选择窗体的透明度: Timer Interval属性:

进入代码编辑器输入代码

首先进行声明 Public Class Form Inherits System Windows Forms Form Dim tps As IntegerDim bol As Boolean 进入TrackBar _Scroll事件 Private Sub TrackBar _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles TrackBar Scroll Me Opacity = TrackBar Value / Label Text = 窗体透明度 CStr(Me Opacity * ) % End Sub 进入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As Object ByVal e As System EventArgs) Handles Timer Tick If bol = False Then tps = tps + Me Opacity = tps / If Me Opacity = Then Timer Enabled = False bol = True End If Else tps = tps Me Opacity = tps / If Me Opacity = Then Timer Enabled = False bol = False End If End If End Sub 进入Form _Load事件

Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load Timer Enabled = TrueEnd Sub 进入Form _Closing事件 Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) Handles MyBase Closing Timer Enabled = True If MsgBox( 你确实要关闭窗体吗？ MsgBoxStyle OkCancel) = MsgBoxResult Ok Then e Cancel = False Else Timer Enabled = False Me Opacity = tps = bol = True e Cancel = True End IfEnd Sub 创建完成后我们来运行程序测试一下测试成功程序窗体是不是变得透明了通过调节滚动条我们甚至可以使得窗体消失达到完全隐形的目的这是不是很神奇呢？

lishixinzhi/Article/program/net/201311/11580

新闻标题：vb.net滚动窗体 vb移动窗体
浏览路径：https://www.cdcxhl.com/article4/hhigoe.html

成都网站建设公司_创新互联，为您提供品牌网站建设、用户体验、做网站、网站内链、微信小程序、网站制作

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容