关于转义符的一个难题!请高手帮忙(结帐率100%)

在VB中好像没有这种东西，倒是有很多系统定义的常量，如\n 就是 vbCrlf 而\" 就直接用 '
江雨兄的这个Treeview的例子，我已经将它翻成VB的了，但是在公司里，星期一贴给你吧。

解决方案 »

  1.   

    好，谢谢cjc19281(高头)。不过，最后现在有人能帮我一下 。
      

  2.   

    如果是思归兄所说，那么我们可以理解为：str="<script language=" "JavaScript" ">\n" + "<!-- .....是这样的吗？
      

  3.   

    in VB:str="<script language=""JavaScript"">\n" + "<!-- .....
      

  4.   

    55555，为什么江雨兄的代码我用不起来呢？Dim strTreeName As String = "TreeView1"
    Dim strRef As String = Page.GetPostBackEventReference(TreeView1)Dim strScript As String = "<script language= ""JavaScript"">\n" + "<!-- \n" + " function initTree() { \n" + " " + strTreeName + ".onSelectedIndexChange = function() { \n" + "
    if (event.oldTreeNodeIndex != event.newTreeNodeIndex) \n" + " this.queueEvent('onselectedindexchange', event.oldTreeNodeIndex + ',' + event.newTreeNodeIndex); \n" + " window.setTimeout('" + strRef.Replace("'", "\\'") + "', 0, 'JavaScript'); \n" + " } \n" + " } \n" + "// --> \n" + "</script>"Page.RegisterClientScriptBlock("InitTree", strScript)
      

  5.   

    \"javascript\" vb.net 也一样的
      

  6.   

    这样呢？把HTML中的双引号在codebehind里改成单引号str="<script language='javascript'>"
      

  7.   

    '实现TreeView展开不提交，点击才提交
                '------------------------------------------------------
                Dim strTreeName As String = "TreeView1"
                Dim strRef As String = Page.GetPostBackEventReference(TreeView1)            Dim strScript As String = "<script language='JavaScript'> " & vbCrLf _
                & "<!-- " & vbCrLf _
                & " function initTree() { " & vbCrLf _
                & " " & strTreeName & ".onSelectedIndexChange = function() { " & vbCrLf _
                & " if (event.oldTreeNodeIndex != event.newTreeNodeIndex) " & vbCrLf _
                & " this.queueEvent('onselectedindexchange', event.oldTreeNodeIndex + ',' + event.newTreeNodeIndex); " & vbCrLf _
                & " window.setTimeout('" & strRef.Replace("'", "\'") & "', 0, 'JavaScript'); " & vbCrLf _
                & " } " & vbCrLf _
                & " } " & vbCrLf _
                & "// --> " & vbCrLf _
                & "</script>"
                Page.RegisterClientScriptBlock("InitTree", strScript)
                '-------------------------------------------------------
      

  8.   

    用这个办法，我刚刚用过，在输出的源代码显示出分行了
    假设输出如下(html)：
    <head>
        <script language="javascript" type="text/javascript">
            <!--
               function WinClose() {
                 window.opener=null;
                 window.close();
            // -->
        </script>
    </head>用如下vb代码
    Dim msg As String="<head>" & vbCr
    msg+=vbTab & "<script language='javascript' type='text/javascript'>" & vbCr
    msg+=vbTab & vbTab & "<!--" & vbCr
    msg+=vbTab & vbTab & vbTab & "function WinClose() { " & vbCr
    msg+=vbTab & vbTab & vbTab & vbTab & "window.opener=null;" & vbCr
    msg+=vbTab & vbTab & vbTab & vbTab & "window.close();" & vbCr
    msg+=vbTab & vbTab & vbTab & "// -->" & vbCr
    msg+=vbTab & vbTab & "</script>" &vbCr
    msg+="</head>
    Response.Write(msg)显示出来的源代码就有分行而且带缩进
    具体帮助：
    ms-help://MS.VSCC/MS.MSDNVS.2052/vblr7/html/vamscMiscellaneousConstants.htm另外：vbTab和vbCr是VBA中使用的常数，VB.net中有等效命令，是一个枚举，不过太麻烦。
    VB.net等效命令如下：
    ControlChars.Cr = vbCr
    ControlChars.Tab = vbTab
    具体帮助如下：
    ms-help://MS.VSCC/MS.MSDNVS.2052/Vbcon/html/vbgrfVBAConstantChangesInVisualBasicNET.htm