在积木编程中实现物体在左边消失后在右边出现,需要进行以下步骤:
在左边设置一个对象,并设置对象移动的轨迹,直到移动到屏幕左边缘,然后隐藏该对象,使其看起来消失。
在右边设置一个与左边对象相同的对象,并设置该对象的起始位置在屏幕右侧,然后设置对象移动的轨迹,直到移动到屏幕中央的位置。
当左边对象消失后,启动右边对象的移动动画,使其出现在屏幕中央。
具体实现可以参考积木编程平台的API文档或者官方教程,根据平台提供的积木组件实现相应的功能。
setLayoutManager(new BorderLayout())然后像这样依次添加按钮:(具体添加到面板还是窗体由你自己决定了)
add(b1,BorderLayout.south)
add(b2,BorderLayout.north)
add(b3,BorderLayout.east)
add(b4,BorderLayout.west)
用了borderlayout之后,setbounds方法是无效的,可以删除这些冗余代码
假设按钮名为Command1,Command2,Command3,滚动条名为HScroll1则直接添加如下代码到窗体中测试即可Private
Sub
Command1_Click()
If
HScroll1.Value
<=
20
Then
HScroll1.Value
=
0
Else
HScroll1.Value
=
HScroll1.Value
-
20
End
If
End
Sub
Private
Sub
Command2_Click()
HScroll1.Value
=
HScroll1.Max
/
2
End
Sub
Private
Sub
Form_Load()
HScroll1.Min
=
0
HScroll1.Max
=
1000
End
Sub
Private
Sub
Command3_Click()
If
HScroll1.Value
>=
HScroll1.Max
-
20
Then
HScroll1.Value
=
HScroll1.Max
Else
HScroll1.Value
=
HScroll1.Value
+
20
End
If
End
Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)