frmsigning.vb

来自「csdn小助手 适合自动登录等功能」· VB 代码 · 共 19 行

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