十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
怎么个移动法?其实有更好的,建议你用label和picture来组合实现 。
创新互联专注于双流网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供双流营销型网站建设,双流网站制作、双流网页设计、双流网站官网定制、成都微信小程序服务,打造双流网络公司原创品牌,更为您提供双流网站排名全网营销落地服务。
如果实在要这么做,可以这样:
Dim N As Integer
Dim S As String
Private Sub Form_Load()
S = "欢迎光临。"
Text1.Text = S
End Sub
Private Sub Command1_Click() '右移
N = N + 1
Text1.Text = String(N, " ") S
End Sub
Private Sub Command2_Click() '左移
N = N - 1
If N 0 Then N = 0
Text1.Text = String(N, " ") S
End Sub
文字编辑结束后,选择“移动”工具(工具箱第一个工具,快捷键V),然后按Ctrl+T快捷键进行“自由变换”,会在文字上出现控制框,把鼠标移到控制框外边指针就会变成旋转的样式,按住鼠标左键拖动就可以进行任意角度旋转了。
见下面代码,放置定时器,按钮,标签各一个
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
新建工程,一个按钮,一个label,一个timer
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "停止"
Else
Command1.Caption = "开始"
End If
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10
Command1.Caption = "开始"
Label1.Caption = ""
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
Label1.Left = Label1.Left - 10
If Label1.Left + Label1.Width = 0 Then Label1.Left = Me.Width
End Sub