189 8069 5689
在工具箱上面右键=选择工具栏箱,去找到flashshockwave控件,然后加入到工具箱中,再拖到窗口上就行了,期间编辑器会自动添加引用,不需要提前引用
创新互联公司专注于中大型企业的网站设计、成都网站设计和网站改版、网站营销服务，追求商业策划与数据分析、创意艺术与技术开发的融合，累计客户上千，服务满意度达97%。帮助广大客户顺利对接上互联网浪潮，准确优选出符合自己需要的互联网运用，我们将一直专注品牌网站建设和互联网程序开发，在前进的路上，与客户一起成长！
''' summary ''' 添加多个按钮到一个容器中. ''' /summary ''' param name="StartPos"所有按钮开始点./param ''' param name="
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
添加动态控件。你可以自己试试看。 form1上什么都不加运行这个程序后会发现自动生成了10个text控件
DoEvents是一个内部函数，不用定义，其功能是:转让控制权,以便让操作系统处理其它的事件！
如果在一个循环中不加doevents，那么程序在执行到此循环时，就会紧紧抓住控制权不放，如果此循环很大很费时，那么直到循环结束，否则你做的程序的其它功能（点击按钮，输入文字等）都会不可用，但如果循环里加了doevents这个函数，那么循环每次执行到此函数的时候，就会等一下，看看你的程序的其它部分有没有动作，表面上看就不会出现卡死的现象，这样的话，程序会显得更人性化！
注：此函数会占用较高的CPU使用率，如果可能的话，建议配合sleep()函数一起用，能降低CPU使用率！
可以啊
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运动，可以换成你需要的运动轨迹)
布局方面，建议你用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)
'加入我们的集合中
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