65.9K
CodeProject 正在变化。 阅读更多。
Home

为 Visual Basic 开发者提供的 JavaScript 代码生成器工具

Yahya Mohammed Ammouri
starIconstarIconstarIconstarIcon
emptyStarIcon
starIcon

4.25/5 (5投票s)

2016年3月1日

CPOL

2分钟阅读

viewsIcon

12023

downloadIcon

289

一个 Windows 应用程序工具，用于为特定的 ASP 服务器控件（文本框、复选框和单选按钮）生成 JavaScript 代码。




引言

我在我的旧文件夹中找到了这个工具，觉得把它分享给你们很好。

十年前，我曾在一家公司使用 VisualBasic.NET 开发 Web 应用程序。
那时，我们编写一些简单的 JavaScript 函数来减少回发次数，减少页面闪烁并提高性能。

许多团队成员在处理 JavaScript 时遇到困难，因为他们来自 Visual Basic Windows 开发背景。

那时，我开发了这个工具，作为一个 Windows 应用程序，使用可视化界面为特定的控件（文本框、复选框和单选按钮）生成 JavaScript 代码。

背景

需要了解 JavaScript 和 Web 开发的基础知识。

使用该工具

假设我们需要一个 JavaScript 函数，根据用户选择启用/禁用文本框。

  1. 确定 JavaScript 函数的拥有控件。

    • 控件类型下拉菜单
      控件类型下拉列表提供此工具支持的控件类型列表；用户选择将应用此方法的控件类型。
    • 控件事件下拉菜单
      控件事件下拉列表提供此工具支持的控件事件列表；用户选择将渲染该方法的控件事件。
    • 控件名称文本框
      控件名称文本框；用户输入将应用该方法的控件的名称。
    • 开始方法按钮
      开始方法按钮；将开始为所选控件编写方法。
    • 重置按钮
      重置按钮；允许用户开始新方法。
  2. 编写所选控件的 VB 语句


     
  3. 此步骤在按下“开始方法”按钮后开始；现在您可以通过选择按钮简单语句或 IF 语句来编写 VB 语句。


    简单语句对话框。


    IF语句对话框。
     
  4. 按下“生成 JScript 代码”以在附近的文本框中生成 JavaScript 代码。


     
  5. 复制到剪贴板
    将复制的 JavaScript 代码添加到 HTML 头部标签之间，然后将事件添加到拥有控件，如下所示
    <head  runat="server">
    <title></title>
<script lang="javascript" type="text/javascript" >
function chkTest_onclick()
{
// Add to your Control tag onclick="chkTest_onclick()"

    var JtxtTest1;
    JtxtTest1=document.getElementById("txtTest1");
    JtxtTest1.disabled=true;

}
</script>
</head>
<body>
    <form id="form1"  runat="server">
        
    
            <asp:CheckBox ID="chkTest" runat="server" onclick="chkTest_onclick()" />
            <asp:TextBox ID="txtTest1" runat="server">
        
    
    </form>
</body>
</html>

使用代码

我深入研究了将用户输入保存到公共数组中
Public arrCode() As String
Public arrIF() As String
Public arrIFscript() As String
Public arrScript() As String
我通过从数组读取并使用 StringBuilder 生成字符串来生成代码。
Public Sub ShowTheScript()
        Try
            Dim sb As New StringBuilder
            Dim intCounter As Integer = 0
            rtxtScript.ForeColor = Color.Blue
            For intCounter = 0 To arrCode.Length - 1
                If intCounter < arrCode.Length - 1 AndAlso arrCode(intCounter + 1) = "     Then" Then
                    sb.Append(arrCode(intCounter))
                Else
                    sb.Append(arrCode(intCounter))
                    sb.Append(Environment.NewLine)
                End If
            Next
            sb.Append(Environment.NewLine)
            sb.Append("End Sub")
            rtxtScript.Text = sb.ToString
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Undefined Error")
        End Try
End Sub

关注点

正如我之前提到的，我很久以前开发了这个工具，我认为它对 Visual Basic 初学者来说会很好，或者它可以让高级开发人员了解代码生成工具的工作原理。

历史

版本 1.0。

© . All rights reserved.