vb如何调用资源管理器的exe资源。。。小弟是菜鸟。。。。请详细解说。。。 5
1个回答
展开全部
Private Sub Command1_Click()
Dim TempFile() As Byte
Dim FileNum As Integer
TempFile = LoadResData(101, "CUSTOM")
FileNum = FreeFile
Open App.Path & "\A.exe" For Binary Access Write As #FileNum Put #FileNum, , TempFile
Close #FileNum
Shell "explorer.exe http://www.baidu.com", 1
Shell App.Path & "\A.exe", vbNormalFocus
End Sub
Dim TempFile() As Byte
Dim FileNum As Integer
TempFile = LoadResData(101, "CUSTOM")
FileNum = FreeFile
Open App.Path & "\A.exe" For Binary Access Write As #FileNum Put #FileNum, , TempFile
Close #FileNum
Shell "explorer.exe http://www.baidu.com", 1
Shell App.Path & "\A.exe", vbNormalFocus
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
