Question

VB资源文件释放问题!!!

Private Sub Command1_Click() On Error Resume Next Dim v Dim byt() As Byte fname = App.Path & "\1.exe" fname = App.Path & "\2.exe" fname = App.Path & "\3.exe" fname = App.Path & "\4.exe" If Dir(fname) = "" Then Kill fname v = LoadResData(101, "CUSTOM") v = LoadResData(102, "CUSTOM") v = LoadResData(103, "CUSTOM") v = LoadResData(104, "CUSTOM") byt = v Open fname For Binary As #1 Put #1, 1, byt() Close #1 End If End Sub 我要释放 1.exe 2.exe 3.exe 4.exe 但是我点击后只能释放4.exe 我想把他们全部释放出来,请问怎么释放.还是我的代码错误了. 请会的指教下,谢谢了 .

Answer 1

On Error Resume Next Dim v Dim byt() As Byte Dim x As Integer For x = 1 To 4 Select Case x Case 1 fname = App.Path & "\1.exe" v = LoadResData(101, "CUSTOM") Case 2 fname = App.Path & "\2.exe" v = LoadResData(102, "CUSTOM") Case 3 fname = App.Path & "\3.exe" v = LoadResData(103, "CUSTOM") Case 4 fname = App.Path & "\4.exe" v = LoadResData(104, "CUSTOM") End Select If Dir(fname) = "" Then Kill fname byt = v Open fname For Binary As #1 Put #1, 1, byt() Close #1 End If Next x 这个哦!