41 lines
1.4 KiB
VB.net
41 lines
1.4 KiB
VB.net
|
Public Class LogInformation
|
|||
|
|
Public result As String
|
|||
|
|
Public Event Readconfigdata()
|
|||
|
|
Public Event Writeconfigdata()
|
|||
|
|
Private Sub LogInformation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
|
|||
|
|
SetControl()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Public Sub SetControl()
|
|||
|
|
If result <> String.Empty Then
|
|||
|
|
Dim buf As String() = result.Split(",")
|
|||
|
|
If Not String.IsNullOrEmpty(buf(0)) Then
|
|||
|
|
CheckBox1.Checked = buf(0)
|
|||
|
|
Else
|
|||
|
|
CheckBox1.Checked = False
|
|||
|
|
End If
|
|||
|
|
TextBox1.Text = buf(1)
|
|||
|
|
TextBox2.Text = buf(2)
|
|||
|
|
TextBox3.Text = buf(3)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
|
|||
|
|
e.Handled = Not $"0123456789{vbBack}".Contains(e.KeyChar) '如果要只允许输入数字，就把上一行字符串中的字母删除
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|||
|
|
result = String.Empty
|
|||
|
|
result = $"{CheckBox1.Checked },{ TextBox1.Text },{TextBox2.Text },{TextBox3.Text }"
|
|||
|
|
RaiseEvent Writeconfigdata()
|
|||
|
|
'Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|||
|
|
'Me.Close()
|
|||
|
|
Return
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|||
|
|
RaiseEvent Readconfigdata()
|
|||
|
|
End Sub
|
|||
|
|
End Class
|