十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
你对For循环的理解是完全错误的!
富川网站制作公司哪家好,找创新互联建站!从网页设计、网站建设、微信开发、APP开发、响应式网站建设等网站项目制作,到程序开发,运营维护。创新互联建站从2013年开始到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。
For循环的代码应修改为:
For i = 0 To un
ListBox2.Items.Add(ListBox1.Items(i))
Next
就这三行就行了!i的值会自动递增的,再放i=i+1不但多余,而且会使i的值按0、2、4、6……递增,这样的话ListBox1的第1、3、5……项就被跳过了!另外,i的值是肯定不会大于un的,所以if i=un then是完全多余的。
yyyymmdd不是数组,需要定义成数组后才能使用
Dim yyyymmdd(2) as String
while为条件循环,for为计数循环。一般情况下,WHILE可替代FOR,反之则不然。
你有控件是没错,有方法也没错
但是你没有为控件添加对应的委托,即没有把事件处理方法(Bt_Click)添加到控件的事件队列中去
你应该使用AddHandler语句,具体请查看MSDN
For i As Integer = 1 To 8
Dim TC As CheckBox = Me.Controls("ComboBox" i)
If TC.Checked Then
TextBox1.Text = TextBox1.Text "," TC.Checked.ToString()
End If
Next