VB循环建立

发布时间：2020-12-16 23:31:16 所属栏目：大数据来源：网络整理

导读：Private Sub Form_Load()If Dir("C:",vbDirectory) "" Then a = 1 If Dir("D:",vbDirectory) "" Then a = 2 If Dir("E:",vbDirectory) "" Then a = 3 If Dir("F:",vbDirectory) "" Then a = 4 End If End If End IfEnd IfMe.Width = 1 '循环Me.Height = 1fil

Private Sub Form_Load() If Dir("C:",vbDirectory) <> "" Then a = 1 If Dir("D:",vbDirectory) <> "" Then a = 2 If Dir("E:",vbDirectory) <> "" Then a = 3 If Dir("F:",vbDirectory) <> "" Then a = 4 End If End If End If End If Me.Width = 1 '循环 Me.Height = 1 fileid = 1 End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!