求资源文件（.res）工作法.

Question

http://zhidao.baidu.com/question/36501228.html一.文本资源文件的建立 第一步：启动资源编辑器 如果VB资源编辑器没有被加载，请单击 "外接程序 "，选取 "外接管理器 "启动外接管理器，然后选中 "VB6   资源编辑器 "，在左下方的 "加载行为 "中的 "加载/卸载 "前打钩，点击 "确定 "退出外接管理器。此时，可以在工具条中看到资源编辑器的绿色图标，单击它就可以启动VB资源编辑器了。 
试了半天,没有成功.请各位大侠,能提供一个带图片--编制资源文件工作法
或给个实例.
谢谢.

Answer 1

确认安装的是完整版。
该加载项的英文名称为 VB 6 Resource Editor
文件是 C:\Program Files\Microsoft Visual Studio\VB98\Wizards\RESEDIT.DLL

Answer 2

http://topic.csdn.net/t/20020529/18/762810.html
按这个帖子,好像会操作了.在[外接程序]菜单下，点击[外接程序管理器],弹出外接程序管理器窗口，窗口左边的列表中列出了所有的外接程序，鼠标双击 "VB6资源编辑器 "。然后按[确定]按钮返回主窗口。
现在要掌握的知识点是
使用资源编辑器，把CAD的DXF文件作为自定义资源引入。在运行使用时LOAD资源，写入磁盘.请问:Load-在哪里操作.需要一个例子.

Answer 3

请问各位大侠的问题,参考以下的帖子,应该是本人目标需求所所应掌握的知识点吧.谢谢http://zhidao.baidu.com/question/33523204.html
http://zhidao.baidu.com/question/41828250.html
function savemyfile(byval ID as long,byval uStr as string,byval filename as string)      
      Dim myArray() As Byte
      Dim myFile As Long    
      Dim RS As String
      Dim RT As Double  
    
      If Dir(filename) = "" Then
          myArray = LoadResData(ID, uStr)
          myFile = FreeFile
          Open filename For Binary Access Write As #myFile
          Put #myFile, , myArray
          Close #myFile
      End If    
end function
然后在form1_load事件中写一下代码：call savemyfile (101,"custom","C:\abc.mp3")
myplayer.source=C:\abc.mp3
myplayer.play

Answer 4

将Res文件生Dwg文件,再与Dwg文件合并.
Sub ldd()
  Dim cadApp As Object
  Dim b1 As AcadEntity, b2 As AcadEntity
  With ThisDrawing
    Set b1 = .HandleToObject("87")
    Set b2 = .HandleToObject("88")
  End With
  b1.Boolean 0, b2
End Sub