vb保存she皮肤

2025-05-15 22:01:32
推荐回答(2个)
回答1:

首先啊。你把加载皮肤的路径放在一个变量中

比如
dim a as string
a = App.Path & "/123.she"
SkinH_AttachEx a, ""
然后把变量a也就是路径写入一个文件中
Dim sssa As String * 1000
Dim str2 As String
fn = App.Path & "\" & "HJonny" & ".dll"
sssa = a
If Dir(fn) <> "" Then
Kill fn
End If
Open fn For Binary As #1
Put #1, , sssa '写入数据
Close #1 '关闭

这样就把路径写在一个文件中了。

当窗口载入的时候在加入如下代码

Private Sub Form_Load()
Dim sssa As String * 1000
Dim str2 As String
fn = App.Path & "\" & "HJonny" & ".dll"

If Dir(fn) <> "" Then

Open fn For Binary As #2
Get #2, , sssa
Close #2
str2 = Trim(sssa)
SkinH_AttachEx str2, ""
End Sub

这样就行了。希望能对你有帮助

回答2:

将路径或参数存到注册表,下次运行时候,从注册表读取。