关于Byte数组的问题
<p><font face="Verdana">添加3个自定义资源文件，序号分别是101，102，103。想在需要的时候把这三个自定义资源释放到某个路径。写了以下代码：</font></p><p> </p>
<p><font face="Verdana">'先引用Microsoft Shell Controls And Automation</font></p>
<p> </p>
<p><font face="Verdana">Dim Shlshell As New Shell, Shlfolder As Folder<br/>Private Const BIF_RETURNONLYFSDIRS = &H1<br/>Dim ResFile() As Byte</font></p>
<p> </p>
<p><font face="Verdana">Private Sub Command1_Click()<br/>'让用户选择一个文件夹</font></p>
<p><font face="Verdana"> Set Shlfolder = Shlshell.BrowseForFolder(Me.hWnd, "选个文件夹", BIF_RETURNONLYFSDIRS)<br/> Text1.Text = Shlfolder.Items.Item.Path</font></p>
<p><font face="Verdana">End Sub</font></p>
<p> </p>
<p><font face="Verdana">Private Sub Command2_Click()<br/>'释放到此文件夹</font></p>
<p><font face="Verdana"> If Text1.Text <> "" Then<br/> ResFile() = LoadResData(101, "CUSTOM")<br/> ResFile() = LoadResData(102, "CUSTOM")<br/> ResFile() = LoadResData(103, "CUSTOM")</font></p>
<p><font face="Verdana"> Open Text1.Text & "\文件1.doc" For Binary As #1<br/> Put #1, , ResFile()<br/> Close</font></p>
<p><font face="Verdana"> Open Text1.Text & "\文件2.doc" For Binary As #1<br/> Put #1, , ResFile()<br/> Close</font></p>
<p><font face="Verdana"> Open Text1.Text & "\文件3.doc" For Binary As #1<br/> Put #1, , ResFile()<br/> Close<br/> MsgBox "释放完成", vbInformation, "提示"</font></p>
<p><font face="Verdana"> End If</font></p>
<p><font face="Verdana">End Sub</font></p>
<p> </p>
<p><font face="Verdana">结果释放后的3个文件都是同样的内容。请指导一下应该怎么办。<br/></font></p> <div class="msgheader">QUOTE:</div><div class="msgborder"><b> ResFile() = LoadResData(101, "CUSTOM")<br/> ResFile() = LoadResData(102, "CUSTOM")<br/> ResFile() = LoadResData(103, "CUSTOM")</b><font face="Verdana"><br/></font></div>
<p>ResFile() 里面肯定总是103号资源啊.</p>
<p> </p>
<p>载入一个释放一个吧</p> 谢谢
页:
[1]