openmodel.vb

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

Public Class OpenModel

    Private Sub OpenModel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If ComboBox1.Items.Count > 0 Then
            ComboBox1.SelectedIndex = 0
        End If

    End Sub

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click

        Try
            Dim lngResult As Integer

            lngResult = OpenSMSDevice(CInt(VB6.GetItemString(ComboBox1, ComboBox1.SelectedIndex)))
            If lngResult = 0 Then
                MessageBox.Show("打开短信猫成功")
            Else
                MessageBox.Show(String.Format("打开短信猫时出错，原因：{0}", Common.ErrCode(lngResult)))
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class