VB编程:编制一个带有简单动画效果的程序:使一行字从左到右的移动,到达边界后再从头开始、不间断的移动

悲哀~

窗体上放置一个标签label1

然后

修改label1caption(要移动的文字)

再放置一个timer

interval为500(速度)

编写timer事件

label1left=label1left+100

if

label1left>form1width

then

label1left=0

end

if

不懂就算了,我已经是罪过了

奇数阶魔方阵（幻方阵）的生成，方法较多，Yidie教授于２００７－６－１５在算法设计栏目中，发表的“［原创］奇数幻方阵生成打印程序”，是属于右下方斜行法。我也转载过一个右上方斜行法的程序。这里将刚刚学会的控件数组的添加，用在奇数魔方阵生成程序上，加上个Timer，让它动态显示：如何右上方斜行布阵的。右上方斜行法布阵规则，参见算法设计中我转载的程序。敬请大侠高手给出改进意见！程序代码如如下： Dim n As Integer, i As Integer, j As Integer, k As Integer Private Sub Command2_Click() Dim m As Integer For m = 0 To n n - 1 Label2(m)Visible = False Next m k = 0: i = 0: j = n \ 2 Label2(k)Top = i (11000 / n) Label2(k)Left = j (12000 / n) Label2(k)Visible = True Timer1Enabled = True End Sub Private Sub Form_Load() List1Selected(0) = True Command2Enabled = False '布阵命令失效 End Sub Private Sub list1_click() '列表框中选择魔方阵的阶数，布阵命令失效 Command2Enabled = False End Sub Private Sub command1_click() '“生成”命令过程代码 For i = 1 To n n - 1 Unload Label2(i) Next i n = List1Text For i = 1 To n n - 1 Load Label2(i) Next i For i = 0 To n n - 1 With Label2(i) Top = (i \ n) (11000 / n) Left = (i Mod n) (12000 / n) + 100 Width = 11000 / n Height = 10000 / n Caption = i + 1 BackColor = RGB(255, 0, 0) FontSize = 360 / n Visible = True End With Next i Command2Enabled = True End Sub Private Sub timer1_timer() k = k + 1 If k < n n Then If k Mod n = 0 Then i = i + 1 Else i = IIf(i = 0, n - 1, i - 1) j = IIf(j = n - 1, 0, j + 1) End If Label2(k)Top = i (11000 / n) Label2(k)Left = j (12000 / n) + 100 Label2(k)Visible = True Else Timer1Enabled = fase End If End Sub Private Sub command3_click() Unload Me End Sub

求采纳

很简单的嘛，

就是一个框（P1）加一个图像框，一个文本框，一个按控件，一个时钟啦

是利用它们的左右距离参数的。

可以不用他的题目，他的题目太简单了，就是一个的可见和不可见，

我们可以让时间改变小球位置来实现的

比如时钟的，P1HEIGHT=P1HEIGHT+X

其中X可以为图像框的高度允许的任意值

时钟那么简单就不用说了吧

以上就是关于VB编程:编制一个带有简单动画效果的程序:使一行字从左到右的移动,到达边界后再从头开始、不间断的移动全部的内容，包括:VB编程:编制一个带有简单动画效果的程序:使一行字从左到右的移动,到达边界后再从头开始、不间断的移动、求制作VB奇数阶幻方阵的动画布阵方法和详细代码、设计个简单的VB程序，小球来回动的等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！