📄 17678.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>A question about varray and file</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>A question about varray and file</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:soapkkk@yahoo.com.hk">soap</a> on August 22, 1999 at 00:15:40:<p>I define a 3D array (99,99,2)<br>And save it in a file<br>code:<<br>Dim FileHandle As Integer<br>Dim i As Long<br>For i1 = 0 To 99<br>    For i2 = 0 To 99<br>        For i3 = 0 To 2<br>            msetkey(i1, i2, i3) = "map" & i1 & i2 & i3: mSetValue(i1, i2, i3) = map(i1, i2, i3)<br>        Next i3<br>    Next i2<br>Next i1<br>FileHandle = FreeFile<br>Open FileString For Output As #FileHandle<br>For i = 0 To UBound(SetKey)<br>Write #FileHandle, SetKey(i), SetValue(i)<br>Next<br>For i1 = 0 To 99<br>    For i2 = 0 To 99<br>        For i3 = 0 To 2<br>            Write #FileHandle, msetkey(i1, i2, i3), mSetValue(i1, i2, i3)<br>        Next i3<br>    Next i2<br>Next i1<br>Close #FileHandle<br>><br>After the program run this sub, the program isn't wrong.<br>But after the program is end, the vb6.0 is hang!<br>Why and how ? <br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17678--></ul><!--end: 17678--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -