十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在工具箱上面右键=选择工具栏箱,去找到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