 |
站长中国 | 问高手 | 注册会员 | 登录 |
 |
已经解决问题： 135858 未解决问题： 714 问题总数：136572
悬赏
0 | 提问者： | 等级：平民 | 积分：
回答者： | 等级：平民 | 积分：
|
你的代码中我没看到添加list的地方..你在那个地方使用一下redim OpenForm$(0) Dim OpenForm$() Sub NewForm(s$) Dim a As Form3 Set a = New Form3 a.Caption = s a.Show End Sub Private Sub List1_DblClick() Dim i%, j% For i = 0 To List1.ListIndex For j = 0 To UBound(OpenForm) If CStr(List1.Text) = OpenForm(j) Then Exit For Next If j >= UBound(OpenForm) Then NewForm (CStr(List1.Text)) ReDim Preserve OpenForm(UBound(OpenForm) + 1) OpenForm(UBound(OpenForm)) = (CStr(List1.Text)) End If Next End Sub 以上内容来源网络，仅供参考，本站不为其负任何责任，如有侵权我们立即删除！ |