十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
这可以理解,bottom,right代表控件底和右部边界的坐标值,而非高度和宽度。移动的话对边的边界自然同步移动的了。
创新互联公司主要从事网站建设、网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务太原,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
见下面代码,放置定时器,按钮,标签各一个
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '定时器
If Label1.Right Me.Width Then
Label1.Left += 10'移动距离
Else
Label1.Left = 0
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '开启或者关闭定时器
Timer1.Interval = 1000 '1秒
If Timer1.Enabled = False Then
Timer1.Start() '开定时器
Else
Timer1.Stop() '关定时器
End If
End Sub
End Class
需要引用命名空间
Imports Microsoft.VisualBasic
或者在使用的时候,直接前导命名空间,例如;
s = Microsoft.VisualBasic.right("12345",3)
select case strings.right(S1,4)
case ".jpg",".bmp",".png"
你的处理代码
end select
string 里的功能很基本。
strings类里有很多静态的字符串处理函数,很好用的,好好研究吧。