test

来源：互联网发布：雅思还是托福知乎编辑：程序博客网时间：2024/06/02 12:14

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Try            Dim path As String            path = Application.StartupPath + "\Send.ini"            WriteINI("Send", "Send1", TextBox1.Text, path)            WriteINI("Send", "Send2", TextBox2.Text, path)            WriteINI("Send", "ss", "56", path)            If (Me.RadioButton1.Checked = True) Then                WriteINI("Send", "IsSms", 1, path)            ElseIf (Me.RadioButton2.Checked = True) Then                WriteINI("Send", "IsSms", 0, path)            End If            MsgBox("配置设置已经成功！！！！")        Catch ex As Exception            MsgBox("错误！！！！")        End TryEnd Sub

</pre><pre name="code" class="vb">

0 0