求VB程序中让TEXT文本框中的文字移动的代码

做课色遇到了 小问题,希望大家能帮我一下能让文字移动的代码

'首先看你的文本框里能显示多少个字符,然后记录下这个数据
'我的文本框可以显示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个回答  2010-06-21
文本框只有两个属性,我的意思是只有Top和Left属性,而没有Under和Ringht属性,所以要实现向下移动,只要Top值增加就可以了,向右,Left值增加就可以了。

可以输入代码:Text1.Top=Text1.Top+n
Text1.Left=Text1.Left+n(n是值任意正整数)
希望这对你有帮助。
第2个回答  2010-06-21
在窗体中填加一个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个回答  2010-06-21
不太明白如何移动。

求VB程序中让TEXT文本框中的文字移动的代码
'首先看你的文本框里能显示多少个字符,然后记录下这个数据 '我的文本框可以显示32个字符 '需要进行移动的字符串,比如"123hello@?"'下面开始进行字符移动 Private Sub Command1_Click()s = "123hello@?"Text1.Text = ""Text1.Text = s + Space(32 - Len(s))'Timer1.Enabled = True Time...

vb小问题,如何让text里的内容动起来?
首先,定义一个变量i,并初始化为1。接下来,使用For循环从1开始,循环次数设定为需要显示的数字个数,这里以1000为例。在循环体内,将文本框的文本内容更新为当前循环变量i的值。为了使文本内容呈现动态效果,需要调用DoEvents函数。DoEvents函数的主要作用是将当前线程的控制权交给操作系统的事件队列,允...

vb中改变text中的文字移动text控件
Text1.Text = "向左移动的文字示例 "Text2.Text = "向右移动的文字示例 "Timer1.Interval = 200 End Sub Private Sub Timer1_Timer()Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) & Left(Text1.Text, 1) '文本左移 Text2.Text = Right(Text2.Text, 1) & Left...

vb文本框中内容左右移动代码
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...

vb中text的文字会闪动
Text2.Text = Space(2 * (k - n)) + Left(txt, n)Else n = 0 Text1.Text = ""Text2.Text = ""End If If n Mod 2 = 0 Then Text3.Text = txt Else Text3.Text = ""End If End Sub '@@@以上是Timer1定义的时间到了,让Text1.Text 和Text2.Text 显示的文字变化 ...

vb程序让输入在text中的文字显示的代码?
```在最后的`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)`这两行代码,我们分别...

VB字符移动代码
Text2.Text = Right(tmp2, Len(tmp2) - 1) & Left(tmp2, 1)End Sub让点击开始按钮让文字滚动也很简单,你先吧计时器(Timer)的Enablad属性改为False代码如下:Timer1.Enablad = FalseCommand1(就是你的开始按钮,复制的时候把括号去掉) ="停止"中间的分歧写一下,然后把Enablad改为True...

vb.net textbox1选中的文本,拖放到textbox2?
1、向一个窗体中添加两个文本框,分别名为TextBox1,TextBox2。注意:把TextBox2控件的AllowDrop属性设置成True,这点不要遗漏。2、完整的代码如下:Public Class Form1 Private MouseIsDown As Boolean = False Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows....

VB中把光标移到text1中的代码如何写
在VB编程中,若要将光标移动到名为"Text1"的文本框中,首先确保文本框的可见性(Visible)和可激活状态(Enabled)都为真(True)。在满足此条件后,使用"Text1.SetFocus"这句代码即可实现将光标定位至"Text1"文本框的目的。将光标定位到文本框是编程中常见的操作,它为用户提供了与程序互动的入口。

用vb 实现文本框的移动? 求指导
怎么移动啊,自动移动,就把timer1控件时间间隔属性设为100,然后,Private Sub Timer1_Timer()Text1.Left = Text1.Left + 10 '向左移动 End Sub

相似回答