⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 form1.designer.vb

📁 采用类平均法实现聚类分析的算法
💻 VB
📖 第 1 页 / 共 2 页
字号:
        Me.Button1.Text = "打开文件"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'dataGrid1
        '
        Me.dataGrid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dataGrid1.DataMember = ""
        Me.dataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dataGrid1.Location = New System.Drawing.Point(144, 43)
        Me.dataGrid1.Name = "dataGrid1"
        Me.dataGrid1.Size = New System.Drawing.Size(543, 336)
        Me.dataGrid1.TabIndex = 15
        '
        'tabPage2
        '
        Me.tabPage2.Controls.Add(Me.Panel1)
        Me.tabPage2.Controls.Add(Me.textBox2)
        Me.tabPage2.Controls.Add(Me.button11)
        Me.tabPage2.Controls.Add(Me.label3)
        Me.tabPage2.Controls.Add(Me.label4)
        Me.tabPage2.Controls.Add(Me.label5)
        Me.tabPage2.Controls.Add(Me.label6)
        Me.tabPage2.Controls.Add(Me.textBox3)
        Me.tabPage2.Controls.Add(Me.textBox4)
        Me.tabPage2.Controls.Add(Me.textBox5)
        Me.tabPage2.Location = New System.Drawing.Point(4, 22)
        Me.tabPage2.Name = "tabPage2"
        Me.tabPage2.Size = New System.Drawing.Size(755, 439)
        Me.tabPage2.TabIndex = 1
        Me.tabPage2.Text = "谱系图"
        Me.tabPage2.Visible = False
        '
        'Panel1
        '
        Me.Panel1.AutoScroll = True
        Me.Panel1.Controls.Add(Me.Button12)
        Me.Panel1.Controls.Add(Me.label1)
        Me.Panel1.Location = New System.Drawing.Point(3, 3)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(692, 386)
        Me.Panel1.TabIndex = 7
        '
        'Button12
        '
        Me.Button12.Location = New System.Drawing.Point(602, 350)
        Me.Button12.Name = "Button12"
        Me.Button12.Size = New System.Drawing.Size(75, 23)
        Me.Button12.TabIndex = 1
        Me.Button12.Text = "画图"
        Me.Button12.UseVisualStyleBackColor = True
        '
        'label1
        '
        Me.label1.Location = New System.Drawing.Point(7, 11)
        Me.label1.Name = "label1"
        Me.label1.Size = New System.Drawing.Size(62, 25)
        Me.label1.TabIndex = 0
        Me.label1.Text = "谱系图"
        '
        'textBox2
        '
        Me.textBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.textBox2.BackColor = System.Drawing.SystemColors.Info
        Me.textBox2.Location = New System.Drawing.Point(77, 404)
        Me.textBox2.Name = "textBox2"
        Me.textBox2.Size = New System.Drawing.Size(72, 21)
        Me.textBox2.TabIndex = 4
        Me.textBox2.Text = "50"
        '
        'button11
        '
        Me.button11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.button11.Location = New System.Drawing.Point(691, 404)
        Me.button11.Name = "button11"
        Me.button11.Size = New System.Drawing.Size(90, 25)
        Me.button11.TabIndex = 3
        Me.button11.Text = "确定"
        '
        'label3
        '
        Me.label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.label3.AutoSize = True
        Me.label3.Location = New System.Drawing.Point(10, 404)
        Me.label3.Name = "label3"
        Me.label3.Size = New System.Drawing.Size(53, 12)
        Me.label3.TabIndex = 1
        Me.label3.Text = "左边宽:"
        '
        'label4
        '
        Me.label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.label4.AutoSize = True
        Me.label4.Location = New System.Drawing.Point(163, 404)
        Me.label4.Name = "label4"
        Me.label4.Size = New System.Drawing.Size(53, 12)
        Me.label4.TabIndex = 2
        Me.label4.Text = "上边宽:"
        '
        'label5
        '
        Me.label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.label5.AutoSize = True
        Me.label5.Location = New System.Drawing.Point(326, 404)
        Me.label5.Name = "label5"
        Me.label5.Size = New System.Drawing.Size(65, 12)
        Me.label5.TabIndex = 2
        Me.label5.Text = "间距倍数:"
        '
        'label6
        '
        Me.label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.label6.AutoSize = True
        Me.label6.Location = New System.Drawing.Point(509, 404)
        Me.label6.Name = "label6"
        Me.label6.Size = New System.Drawing.Size(65, 12)
        Me.label6.TabIndex = 2
        Me.label6.Text = "距离倍数:"
        '
        'textBox3
        '
        Me.textBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.textBox3.BackColor = System.Drawing.SystemColors.Info
        Me.textBox3.Location = New System.Drawing.Point(240, 404)
        Me.textBox3.Name = "textBox3"
        Me.textBox3.Size = New System.Drawing.Size(72, 21)
        Me.textBox3.TabIndex = 5
        Me.textBox3.Text = "15"
        '
        'textBox4
        '
        Me.textBox4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.textBox4.BackColor = System.Drawing.SystemColors.Info
        Me.textBox4.Location = New System.Drawing.Point(422, 404)
        Me.textBox4.Name = "textBox4"
        Me.textBox4.Size = New System.Drawing.Size(72, 21)
        Me.textBox4.TabIndex = 5
        Me.textBox4.Text = "15"
        '
        'textBox5
        '
        Me.textBox5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.textBox5.BackColor = System.Drawing.SystemColors.Info
        Me.textBox5.Location = New System.Drawing.Point(605, 404)
        Me.textBox5.Name = "textBox5"
        Me.textBox5.Size = New System.Drawing.Size(72, 21)
        Me.textBox5.TabIndex = 6
        Me.textBox5.Text = "100"
        '
        'tabPage3
        '
        Me.tabPage3.Controls.Add(Me.richTextBox1)
        Me.tabPage3.Location = New System.Drawing.Point(4, 22)
        Me.tabPage3.Name = "tabPage3"
        Me.tabPage3.Size = New System.Drawing.Size(755, 439)
        Me.tabPage3.TabIndex = 2
        Me.tabPage3.Text = "聚类描述"
        '
        'richTextBox1
        '
        Me.richTextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.richTextBox1.BackColor = System.Drawing.Color.WhiteSmoke
        Me.richTextBox1.Location = New System.Drawing.Point(0, 0)
        Me.richTextBox1.Name = "richTextBox1"
        Me.richTextBox1.Size = New System.Drawing.Size(696, 439)
        Me.richTextBox1.TabIndex = 0
        Me.richTextBox1.Text = ""
        '
        'saveFileDialog1
        '
        Me.saveFileDialog1.DefaultExt = "xml"
        Me.saveFileDialog1.Filter = "XML文件 (*.xml)|*.xml|文本文件 (*.txt)|*.txt|所有文件 (*.*)|*.*"""
        Me.saveFileDialog1.RestoreDirectory = True
        '
        'openFileDialog1
        '
        Me.openFileDialog1.AddExtension = False
        Me.openFileDialog1.DefaultExt = "xml"
        Me.openFileDialog1.Filter = "XML文件 (*.xml)|*.xml|文本文件 (*.txt)|*.txt|所有文件 (*.*)|*.*"
        Me.openFileDialog1.RestoreDirectory = True
        '
        'jlfx2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(696, 461)
        Me.Controls.Add(Me.tabControl1)
        Me.Name = "jlfx2"
        Me.Text = "聚类分析法"
        Me.tabControl1.ResumeLayout(False)
        Me.tabPage1.ResumeLayout(False)
        Me.tabPage1.PerformLayout()
        CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tabPage2.ResumeLayout(False)
        Me.tabPage2.PerformLayout()
        Me.Panel1.ResumeLayout(False)
        Me.tabPage3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents Button12 As System.Windows.Forms.Button
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label

End Class

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -