form1.designer.vb

此程序可将普通数字转换为大写的金额符号。

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form 重写 Dispose，以清理组件列表。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改它。
    '不要使用代码编辑器修改它。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.AxhaiwaNTC1 = New AxhaiwasoftNTC.AxhaiwaNTC
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.MoneyTextBox1 = New 数字转换为大写金额.moneyTextBox
        CType(Me.AxhaiwaNTC1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxhaiwaNTC1
        '
        Me.AxhaiwaNTC1.Enabled = True
        Me.AxhaiwaNTC1.Location = New System.Drawing.Point(536, 69)
        Me.AxhaiwaNTC1.Name = "AxhaiwaNTC1"
        Me.AxhaiwaNTC1.OcxState = CType(resources.GetObject("AxhaiwaNTC1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxhaiwaNTC1.Size = New System.Drawing.Size(35, 26)
        Me.AxhaiwaNTC1.TabIndex = 0
        Me.AxhaiwaNTC1.Visible = False
        '
        'TextBox2
        '
        Me.TextBox2.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TextBox2.Location = New System.Drawing.Point(25, 120)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(546, 30)
        Me.TextBox2.TabIndex = 2
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label1.Location = New System.Drawing.Point(25, 38)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(157, 21)
        Me.Label1.TabIndex = 4
        Me.Label1.Text = "在此输入金额："
        '
        'MoneyTextBox1
        '
        Me.MoneyTextBox1.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.MoneyTextBox1.Location = New System.Drawing.Point(25, 69)
        Me.MoneyTextBox1.Name = "MoneyTextBox1"
        Me.MoneyTextBox1.Size = New System.Drawing.Size(177, 30)
        Me.MoneyTextBox1.TabIndex = 3
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(600, 208)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.MoneyTextBox1)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.AxhaiwaNTC1)
        Me.Name = "Form1"
        Me.ShowIcon = False
        Me.Text = "数字转换为大写金额"
        CType(Me.AxhaiwaNTC1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents AxhaiwaNTC1 As AxhaiwasoftNTC.AxhaiwaNTC
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents MoneyTextBox1 As 数字转换为大写金额.moneyTextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label

End Class