form1.vb

来自「电气控制仿真软件」· VB 代码 · 共 350 行 · 第 1/4 页

        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(192, 24)
        Me.Button3.TabIndex = 10
        Me.Button3.Text = "从内存中读图"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(512, 40)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(192, 24)
        Me.Button2.TabIndex = 9
        Me.Button2.Text = "文件保存"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(512, 8)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(192, 24)
        Me.Button1.TabIndex = 8
        Me.Button1.Text = "打开文件"
        '
        'AxvgInspector1
        '
        Me.AxvgInspector1.Enabled = True
        Me.AxvgInspector1.Location = New System.Drawing.Point(512, 136)
        Me.AxvgInspector1.Name = "AxvgInspector1"
        Me.AxvgInspector1.OcxState = CType(resources.GetObject("AxvgInspector1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxvgInspector1.Size = New System.Drawing.Size(195, 392)
        Me.AxvgInspector1.TabIndex = 7
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(712, 541)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.AxvgInspector1)
        Me.Controls.Add(Me.Axvgctrl1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "Form1"
        Me.Text = "图形读写示例"
        CType(Me.Axvgctrl1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.AxvgInspector1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Axvgctrl1_OnSelectChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles Axvgctrl1.OnSelectChange
        AxvgInspector1.ShowPropertyList(Axvgctrl1.ActiveSheet.Selection)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Axvgctrl1.Design("")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog() Then
            Axvgctrl1.Design(OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '以下是保存文件
        'Axvgctrl1.SaveToFile( Axvgctrl1.FileName )
        '以下是另存为...
        If SaveFileDialog1.ShowDialog() Then
            Axvgctrl1.SaveToFile(SaveFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Axvgctrl1.LoadFromBuffer(TextBox1.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = Axvgctrl1.SaveToBuffer()
    End Sub
End Class