neu

SDL/SMS/usrCntlSMS.vb

@@ -371,6 +371,8 @@ Public Class usrCntlSMS
 
         If MyDatagridview1.SelectedRows.Count > 0 Then
             Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS(MyDatagridview1.SelectedRows(0).Cells("sms_id").Value)
+            MsgBox("SMS-Status: " & SMS.checkSMSStatus)
+            Exit Sub
             Select Case SMS.checkSMSStatus
                 Case <= 0 : MsgBox("SMS-Status: Wartend...")
                 Case 1 : MsgBox("SMS-Status: Wartend...")
@@ -381,6 +383,15 @@ Public Class usrCntlSMS
         End If
     End Sub
 
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
 
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            Dim SMS = New VERAG_PROG_ALLGEMEIN.cSMS(MyDatagridview1.SelectedRows(0).Cells("sms_id").Value)
+            If If(SMS.sms_Uris, "") <> "" Then
+                Process.Start(SMS.sms_Uris)
+            End If
+
+        End If
+    End Sub
 End Class