addsmstemplate.vb

来自「用GSM模块发送短信,是个发送短信的平台」· VB 代码 · 共 22 行

Public Class AddSMSTemplate

    Private Sub btnAddSMSContent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddSMSContent.Click
        Try
            Dim smsContent As String = txtContent.Text.Trim()
            If (String.IsNullOrEmpty(smsContent)) Then
                MessageBox.Show("请输入短信模板内容", "添加模板短信")
                Exit Sub
            End If
            If (SMSTemplate.InsertSmsContent(smsContent)) Then
                MessageBox.Show("添加短信模板成功", "添加模板短信")
                txtContent.Text = String.Empty
                My.Forms.Main.Bind_smsTemplateList()
            Else
                MessageBox.Show("添加短信模板失败", "添加模板短信")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "错误")
        End Try
    End Sub

End Class