文字写在label的caption属性中，调用timer()函数
创新互联主要企业基础官网建设，电商平台建设，移动手机平台，小程序定制开发等一系列专为中小企业按需网站开发产品体系；应对中小企业在互联网运营的各种问题，为中小企业在互联网的运营中保驾护航。
附上我写的左右往复运动代码，实现image1在picture1中左右往复运动
Private
Sub
Timer1_Timer()
If
Image1.Left
=
Picture1.ScaleWidth
-
Image1.Width
Then
k
=
1
If
k
=
1
Then
Image1.Left
=
Image1.Left
-
50
Else
Image1.Left
=
Image1.Left
+
50
End
If
If
Image1.Left
=
Then
k
=
End
Sub
建立滚动条的方法如下：
（1）将鼠标移到ToolBox内的WinForm标签页的HscrollBar控件上，单击鼠标左键。
（2）将指针移至窗体中适当的位置，按住鼠标左键并拖动鼠标将HscrollBar控件调整到合适的大小放开左键。
（3）同样，再在Form上设置一个VscrollBar控件。
思路：
利用几个可以作为容器的控件，添加滚动条就可以了：
我举个例子：（这个问题我记得回答过的！）
添加1个PicTureBox1，作为容器
在PicTureBox1里添加PicTureBox2，在窗体上添加一个垂直滚动条。
把你所谓的许多控件放到PicTureBox2里，滚动条改变的是PicTureBox2在PicTureBox1里的Top属性，我想你通过一定的空间想象力，可以想到效果了吧？
注意：默认状态设置PicTureBox2的Top属性为0，当该属性为负值的时候，PicTureBox2显示的效果是向上移动，即下面原来隐藏的内容为可见了。
要设置PicTureBox2的AutoRedraw 属性为True。
若要左右移动效果，那么改变其 Left 属性，原理不再赘述了。
本篇文章的主要开发环境是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
重庆分公司
重庆分公司
