
正文
vb.net动画控件 vb动画效果
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
我知道在VB和VB.net中怎样添加动态控件,可是我添加的这些控件怎样添加相应的事件呢?
Dim Text() As Object
Private Sub Form_Load()
Dim i As Integer
Dim nTop As Long
ReDim Text(1 To 10)
For i = 1 To 10
Set Text(i) = Controls.Add("VB.TextBox", "Text1" CStr(i))
Text(i).Height = 300
Text(i).Top = nTop
Text(i).Visible = True
nTop = nTop + 30 * 15
Next i
End Sub
添加动态控件。vb.net动画控件你可以自己试试看。 form1上什么都不加运行这个程序后会发现自动生成vb.net动画控件了10个text控件
相关问答
Q1: 如何在vb.net里面动态添加控件
Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新vb.net动画控件的命令按钮
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub
Q2: vb.net 动画
可以啊
me_paint 事件中添加画图语句
me.creategraphic.drawellipse(pen,center,r,r)
center 是圆心位置point 类型数据
添加一个timer控件 控制动画
在控件的tick事件中添加语句
center.x+=1
center.y=center.x * 10+50
me.invalidate '(以一次函数y=10x+50运动,可以换成你需要的运动轨迹)
Q3: VB.NET问题:TreeView控件放置GIF动画
只是picturebox支持而已...
把gif每帧都单独存成一张图片,加个timer不断更换treeview节点显示的图片,用来实现简单的动画是够了。
Q4: VB.NET怎么制作带有动画效果的控件
DoEvents是一个内部函数,不用定义,其功能是:转让控制权,以便让操作系统处理其它的事件vb.net动画控件!
如果在一个循环中不加doevents,那么程序在执行到此循环时,就会紧紧抓住控制权不放,如果此循环很大很费时,那么直到循环结束,否则你做的程序的其它功能(点击按钮,输入文字等)都会不可用,但如果循环里加了doevents这个函数,那么循环每次执行到此函数的时候,就会等一下,看看你的程序的其它部分有没有动作,表面上看就不会出现卡死的现象,这样的话,程序会显得更人性化!
注vb.net动画控件:此函数会占用较高的CPU使用率,如果可能的话,建议配合sleep()函数一起用,能降低CPU使用率!
Q5: VB.NET 动态控件 属性问题
布局方面vb.net动画控件,建议你用FlowLayoutPanel,不用手工控制控件位置了。假设有一个FlowLayoutPanel1。
先在窗体类中建一个控件的集合:
Dim
TextBoxes
As
New
List(Of
TextBox)
在button1的
Click事件
中写:
For
i
=
1
To
5
'5是每次加入的数量
Dim
newTextBox
As
New
TextBox()
'newTextBox.Size
=
New
Size(100,20)
'
TextBoxes.Add(newTextBox)
'加入vb.net动画控件我们的集合中
FlowLayoutPanel1.Controls.Add(newTextBox)
'加到窗体的FlowLayoutPanel中去
Next
i
然后button2的Click事件中:
For
Each
itemTextBox
As
TextBox
In
TextBoxes
'这里的itemTextBox.Text就代表每个TextBox里的文本
'如果你需要清空,调用TextBoxes.Clear()和FlowLayoutPanel.Controls.Clear()即可
Next
关于vb.net动画控件和vb动画效果的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。






