vb 怎么对一个文本编译

发布网友发布时间：2023-08-20 13:57

共1个回答

热心网友时间：2023-08-26 02:13

建立一个新工程，打开资源管理器（在外接程序菜单－>外接程序管理器中找），将那两个文件拖入到资源管理器中，应该会建立两个自定义资源“CUSTOM”101 102.
Option Explicit

Dim p As String, F1 As String, F2 As String

Private Sub Form_Load()
Dim TEMP() As Byte
p = App.Path
If Right(p, 1) <> "\" Then p = p & "\"
TEMP = LoadResData(101, "CUSTOM")
If UBound(TEMP) > 0 Then
Open p & F1 For Binary As #1
Put #1, , TEMP
Close #1
End If

TEMP = LoadResData(102, "CUSTOM")
If UBound(TEMP) > 0 Then
Open p & F2 For Binary As #1
Put #1, , TEMP
Close #1
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
Kill p & F1
Kill p & F2
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com