frmsigning.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

Public Class frmSigning

    Private Sub frmSigning_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.tb_signing.Text = My.Settings.Signing
        Me.cb_defalut.Checked = My.Settings.UseSigning
    End Sub

    Private Sub b_Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_Ok.Click
        My.Settings.Signing = Me.tb_signing.Text
        My.Settings.UseSigning = Me.cb_defalut.Checked
        My.Settings.Save()
        MsgBox("保存成功！")
        Me.Dispose()
    End Sub

    Private Sub b_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_close.Click
        Me.Dispose()
    End Sub
End Class