求VB程序中让TEXT文本框中的文字移动的代码
答案:4 悬赏:10
解决时间 2021-03-05 19:20
- 提问者网友:浪女天生ˇ性情薄
- 2021-03-05 04:56
做课色遇到了 小问题,希望大家能帮我一下能让文字移动的代码
最佳答案
- 二级知识专家网友:一池湖水
- 2021-03-05 06:05
'首先看你的文本框里能显示多少个字符,然后记录下这个数据
'我的文本框可以显示32个字符
'需要进行移动的字符串,比如"123hello@?"
'下面开始进行字符移动
Private Sub Command1_Click()
s = "123hello@?"
Text1.Text = ""
Text1.Text = s + Space(32 - Len(s))
'Timer1.Enabled = True
Timer1.Interval = 500 '文本移动速度500ms
End Sub
'--------以下这段代码为测试文本框显示长度,编程不需要-----------
Private Sub Command2_Click()
For i = 1 To 100
Text1.Text = Text1.Text & i Mod 10
Next
'运行完看前面出现过几次零,然后加上最后一个可以看见的数字即为文本框显示字符数
End Sub
'--------以上这段代码为测试文本框显示长度,编程不需要-----------
Private Sub Timer1_Timer()
'Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) + Left(Text1.Text, 1) '向左移动
Text1.Text = Right(Text1.Text, 1) + Left(Text1.Text, Len(Text1.Text) - 1) '向右移动
End Sub
'我的文本框可以显示32个字符
'需要进行移动的字符串,比如"123hello@?"
'下面开始进行字符移动
Private Sub Command1_Click()
s = "123hello@?"
Text1.Text = ""
Text1.Text = s + Space(32 - Len(s))
'Timer1.Enabled = True
Timer1.Interval = 500 '文本移动速度500ms
End Sub
'--------以下这段代码为测试文本框显示长度,编程不需要-----------
Private Sub Command2_Click()
For i = 1 To 100
Text1.Text = Text1.Text & i Mod 10
Next
'运行完看前面出现过几次零,然后加上最后一个可以看见的数字即为文本框显示字符数
End Sub
'--------以上这段代码为测试文本框显示长度,编程不需要-----------
Private Sub Timer1_Timer()
'Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) + Left(Text1.Text, 1) '向左移动
Text1.Text = Right(Text1.Text, 1) + Left(Text1.Text, Len(Text1.Text) - 1) '向右移动
End Sub
全部回答
- 1楼网友:一场云烟
- 2021-03-05 09:09
不太明白如何移动。
- 2楼网友:时光不老我们不分离
- 2021-03-05 07:30
在窗体中填加一个timer1控件.设置Timer1.enabled=false
timer1.interval=100
然后在timer1_timer事件中输入如下代码
Private Sub Timer1_Timer()
Text1.Left = Text1.Left - 100
If Text1.Left < -Text1.Width Then
Text1.Left = Me.Width - Text1.Width
End If
End Sub
我已经试验过了.可正常使用
- 3楼网友:懂得ㄋ、沉默
- 2021-03-05 06:50
文本框只有两个属性,我的意思是只有Top和Left属性,而没有Under和Ringht属性,所以要实现向下移动,只要Top值增加就可以了,向右,Left值增加就可以了。
可以输入代码:Text1.Top=Text1.Top+n
Text1.Left=Text1.Left+n(n是值任意正整数)
希望这对你有帮助。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯