VB中关于资源编辑器的两个问题
这是一段将VB中资源编辑器的文件输出的代码
VB code:
Private Function ExportFilefromRes(ByVal ID As Long, ByVal Filename As String) As Boolean
ExportFilefromRes = False
Dim bytDbt() As Byte
Dim intT As Integer
If Dir(Filename) <> "" Then
ExportFilefromRes = False
Exit Function
End If
bytDbt = LoadResData(ID, "CUSTOM")
intT = FreeFile
Open Filename For Binary As intT
Put intT, , bytDbt
Close intT
ExportFilefromRes = True
End Function
Private Sub Form_Load()
ExportFilefromRes 101, "c:\123.exe"
ExportFilefromRes 102, "c:\234.exe"
End Sub
对于这段代码，我有两个问题
1、怎么显示进度
2、这是用ExportFilefromRes 101, "c:\123.exe"操作的，需要输入文件名，请问怎么直接从资源编辑器里得到文件名呢（我要批量输出，一个个输文件名很麻烦）
期待
第二个问题应该不难,文件名同样可以放入资源文件,用时用LoadResString获取后,代替 ExportFilefromRes中的文件名就行了
对不起，我刚接触资源编辑器，你能说清楚点吗，给个范例
你从外接程序管理器加载资源编辑器,你把各类资源放进去,保存,你再把各类资源释放出来,就知道怎么回事了,外来资源文件,从工程---添加文件加入到工程中再编辑下,自己搞下就明白.
这段代码是从 .exe 文件自身的资源里释放数据，写到磁盘上吧！
应该说，它跟“资源编
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
