我是直接把那段包含很多双引号""的字符串,放在1个 text 文本框里,把文本框隐藏掉,然后调用时就用 form1.text1这样的方法自己觉得好土啊~~~~~~~~比如储存下面这段<script type="text/javascript" src="/PointForum/ui/scripts/jsframework.js?version=2009011504"></script>
<link rel="stylesheet" type="text/css" href="/PointForum/ui/styles/default/BBSGlobal.css" />
<link rel="stylesheet" type="text/css" href="/PointForum/ui/styles/default/list.css" />
<style type="text/css">
href="http://community.csdn.net/" target="_Blank">CSDN社区</a></li><li><a href="http://forum.csdn.net/BList/VB/" target="_Blank">VB</a></li><li class="current"><a href="http://forum.csdn.net/SList/VB_Basic//" target="_Blank">
<link rel="stylesheet" type="text/css" href="/PointForum/ui/styles/default/BBSGlobal.css" />
<link rel="stylesheet" type="text/css" href="/PointForum/ui/styles/default/list.css" />
<style type="text/css">
href="http://community.csdn.net/" target="_Blank">CSDN社区</a></li><li><a href="http://forum.csdn.net/BList/VB/" target="_Blank">VB</a></li><li class="current"><a href="http://forum.csdn.net/SList/VB_Basic//" target="_Blank">
在VB里有个“外接程序”菜单,你选择里面的“外界程序管理器”
然后就会弹出“外界程序管理器”的窗口
然后找到“VB 6 资源编辑器”,然后选择他
然后将“加载行为”中的“在启动中加载”和“加载/卸载”选上钩
然后确定,这时候会返回VB的界面
你注意观察一下,大概在“外界程序”菜单下面的位置多了一个像注
册表一样的图标,用鼠标指上去会显示“VB 资源编辑器”,然后点击他
这时会弹出“VB 资源编辑器”的窗口,你可以将你要保存的文本内容
通过“VB 资源编辑器”添加进资源中了。
当你想使用文本资源的时候,可以通过
Text1.Text=LoadResString(资源编号)
取得你的资源信息。例子:
Text1.Text=LoadResString(101)同理,还可以将图片、图标、二进制数据放到资源里
然后可以通过
LoadResPicture
LoadResData
等语句加载并使用资源,具体的使用方法和范例可以参考MSDN的说明。
这个办法好。补充两点:
(1)大概在“外界程序”菜单下面的位置多了一个像注册表一样的图标。不是在“外界程序”菜单,是在“工具”菜单下。
(2)这个编辑器好像有个小BUG,字符串粘贴的时候必须之前编辑过一下(比如输入一个字符再删掉),否则粘贴命令不可用。可以参考这个链接。
Dim a As String
a = String(200, """")
Debug.Print Len(a), a
End Sub