手机短信编程

开发平台：
Visual Basic

frmDPC.vb：源码内容
							'Imports System
Imports System.IO
Public Class frmDPC
    Private MS_DPC As New clsDPC.MS_DPC
    Private BTS_DPC As New clsDPC.BTS_DPC
    Private GPRS_MS_DPC As New clsDPC.GPRS_MS_DPC
    'Private eDPC As New clsDPC
    Dim OOKK As Boolean
    Private DPC_Arr(7, 63) As Integer
    Private GPRS_DPC_Arr(31, 63) As Integer
    Private IsCodeTrigger As Boolean = False, Cmd As String
    Private MyExcel As Microsoft.Office.Interop.Excel.Application, MyBook As Microsoft.Office.Interop.Excel.Workbook, MySheet As Microsoft.Office.Interop.Excel.Worksheet
    Private Sub AxTChart1_OnDblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxTChart1.OnDblClick
        AxTChart1.ShowEditor()
    End Sub
    Private Function d() As Boolean
        d = False
        OOKK = False
        On Error Resume Next
        If Microsoft.VisualBasic.Left(My.User.Name, 8) = "YEJIARUI" Then
            d = True
            OOKK = True
        End If
        If Cmd <> "" Then
            Label11.Visible =False 
            d = True
            OOKK = True
        End If
        Dim processList() As Process
        processList = Process.GetProcesses
        For Each P As Process In processList
            Debug.Print(P.ProcessName)
            If P.ProcessName = "RAOX" Or P.ProcessName = "RAOX.exe" Then
                d = True
                OOKK = True
                Exit Function
            End If
        Next
    End Function
    Private Sub frmDPC_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmd = Microsoft.VisualBasic.Interaction.Command()
        'If Date.Today.ToOADate > 40000 + 280 Then
        '    MessageBox.Show("Overdue!", "Tips!")
        '    End
        'End If
        Dim OK As Boolean = d()
        If Not OK = True Then
            'Link()
            TabControl1.SelectedIndex = 4
        Else
            TabControl1.SelectedIndex = 0
        End If
        AxTChart1.Aspect.VertOffset = 0
        AxTChart1.Aspect.HorizOffset = 0
        'For I As Integer = 0 To 3
        '    Select Case I
        '        Case 0
        '            If TTT(I) Then End
        '        Case 1
        '            Dim J As Integer, K As String = ""
        '            If TTT(I) Then J = K
        '        Case 2
        '            Dim P(2) As Integer
        '            If TTT(I) Then P(I + 3) = 100
        '        Case 3
        '            '递归
        '            If TTT(I) Then Form1_Load(sender, e)
        '    End Select
        'Next
        btnMSChart_Click(Nothing, Nothing)
        NumTextGAMMA.Text = "24"
        NumTextGAMMA_TextChanged(Nothing, Nothing)
    End Sub
    Private Sub hsbHCircut_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbHCircut.Scroll
        AxTChart1.Aspect.Rotation = hsbHCircut.Value
        labHCircut.Text = "水平旋转 " & hsbHCircut.Value & "°"
    End Sub
    Private Sub hsbVCircut_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbVCircut.Scroll
        AxTChart1.Aspect.Elevation = hsbVCircut.Value
        labVCircut.Text = "垂直旋转 " & hsbVCircut.Value & "°"
    End Sub
    Private Sub chbOrthogonal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbOrthogonal.CheckedChanged
        On Error Resume Next
        AxTChart1.Aspect.Orthogonal = chbOrthogonal.Checked
        If chbOrthogonal.Checked = True Then
            hsbVCircut.Enabled = False
            hsbHCircut.Enabled = False
            hsbPerspective.Enabled = False
            hsbOrthoAngle.Enabled = True
        Else
            hsbVCircut.Enabled = True
            hsbHCircut.Enabled = True
            hsbPerspective.Enabled = True
            hsbOrthoAngle.Enabled = False
        End If
    End Sub
    Private Sub hsbOrthoAngle_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbOrthoAngle.Scroll
        AxTChart1.Aspect.OrthoAngle = hsbOrthoAngle.Value
        labOrthoAngle.Text = "角度 " & hsbOrthoAngle.Value & "°"
    End Sub
    Private Sub hsbZoom_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbZoom.Scroll
        AxTChart1.Aspect.Zoom = hsbZoom.Value
        labZoom.Text = "缩放比例 " & hsbZoom.Value & "%"
    End Sub
    Private Sub hsbHOffset_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbHOffset.Scroll
        AxTChart1.Aspect.HorizOffset = hsbHOffset.Value
        labHOffset.Text = "水平位移 " & hsbHOffset.Value
    End Sub
    Private Sub hsbVOffset_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbVOffset.Scroll
        AxTChart1.Aspect.VertOffset = hsbVOffset.Value
        labVOffset.Text = "垂直位移 " & hsbVOffset.Value
    End Sub
    Private Sub hsb3DPercent_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsb3DPercent.Scroll
        AxTChart1.Aspect.Chart3DPercent = hsb3DPercent.Value + 1
        lab3DPercent.Text = "3D百分比 " & hsb3DPercent.Value
    End Sub
    Private Sub hsbPerspective_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbPerspective.Scroll
        AxTChart1.Aspect.Perspective = hsbPerspective.Value
        labPerspective.Text = "透视效果 " & hsbPerspective.Value
    End Sub
    Private Sub hsb3DDepth_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsb3DDepth.Scroll
        'AxTChart1.Series(0).asSurface.TimesZOrder = hsb3DDepth.Value
        AxTChart1.Series(0).asSurface.TimesZOrder = hsb3DDepth.Value
        lab3DDepth.Text = "3D深度 " & hsb3DDepth.Value
    End Sub
    Private Sub btnMSChart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMSChart.Click
        MS_DPC.calculate_MS_DPC(txtSSDESUL.Text, txtQDESUL.Text, txtLCOMPUL.Text, txtQCOMPUL.Text, _
                           txtSSLENUL.Text, txtQLENUL.Text, _
                           txtMSPWRMAX.Text, txtMSPWRMIN.Text, txtMSTXPWR.Text)
        DPC_Arr = MS_DPC.MS_DPC_Arr
        AxTChart1.Series(0).Clear()
        AxTChart1.Series(1).Clear()
        AxTChart1.Series(1).asLine.Pointer.Visible = False
        With AxTChart1.Series(0).asSurface
            For I As Integer = 0 To 7
                For J As Integer = 0 To 63
                    .AddXYZ(-J, DPC_Arr(I, J), I, J - 110, I)
                Next
            Next
        End With
        AxTChart1.Axis.Left.Automatic = True
        AxTChart1.Axis.Left.AutomaticMinimum = True
        AxTChart1.Axis.Left.AutomaticMaximum = True
        AxTChart1.Axis.Left.Title.Caption = "功率调整值(dB)"
        AxTChart1.Axis.Bottom.Title.Caption = "信号强度(dBm)"
        AxTChart1.Axis.Depth.Title.Caption = "信号质量(dtpu)"
        AxTChart1.Aspect.View3D = True
        AxTChart1.Header.Text.Clear()
        AxTChart1.Header.Text.Add("手机动态功率控制示意图")
        AxTChart1.SubHeader.Text.Clear()
        AxTChart1.SubHeader.Text.Add("　　　　　　　　　　　　　　　　　　　　　　主要参数:SSDESUL=" & txtSSDESUL.Text & ",QDESUL=" & txtQDESUL.Text & ",LCOMPUL=" & txtLCOMPUL.Text & ",QCOMPUL=" & txtQCOMPUL.Text)
    End Sub
    Private Sub txtSSDESUL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSSDESUL.LostFocus
        If IsNumeric(txtSSDESUL.Text) Then
            Dim I As Integer = CInt(txtSSDESUL.Text)
            If I < 47 Or I > 110 Then
                MessageBox.Show("SSDESUL必须是[47~110]之间的整数!", "输入格式有误!")
                txtSSDESUL.Text = 92
            End If
        Else
            MessageBox.Show("SSDESUL必须是[47~110]之间的整数!", "输入格式有误!")
            txtSSDESUL.Text = 92
        End If
    End Sub
    Private Sub txtQDESUL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtQDESUL.LostFocus
        If IsNumeric(txtQDESUL.Text) Then
            Dim I As Integer = CInt(txtQDESUL.Text)
            If I < 0 Or I > 76 Then
                MessageBox.Show("QDESUL必须是[0~76]之间的整数!", "输入格式有误!")
                txtQDESUL.Text = 30
            End If
        Else
            MessageBox.Show("QDESUL必须是[0~76]之间的整数!", "输入格式有误!")
            txtQDESUL.Text = 30
        End If
    End Sub
    Private Sub txtLCOMPUL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLCOMPUL.LostFocus
        If IsNumeric(txtLCOMPUL.Text) Then
            Dim I As Integer = CInt(txtLCOMPUL.Text)
            If I < 0 Or I > 100 Then
                MessageBox.Show("LCOMPUL必须是[0~100]之间的整数!", "输入格式有误!")
                txtLCOMPUL.Text = 6
            End If
        Else
            MessageBox.Show("LCOMPUL必须是[0~100]之间的整数!", "输入格式有误!")
            txtLCOMPUL.Text = 6
        End If
    End Sub
    Private Sub txtQCOMPUL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtQCOMPUL.LostFocus
        If IsNumeric(txtQCOMPUL.Text) Then
            Dim I As Integer = CInt(txtQCOMPUL.Text)
            If I < 0 Or I > 100 Then
                MessageBox.Show("QCOMPUL必须是[0~100]之间的整数!", "输入格式有误!")
                txtLCOMPUL.Text = 75
            End If
        Else
            MessageBox.Show("QCOMPUL必须是[0~100]之间的整数!", "输入格式有误!")
            txtQCOMPUL.Text = 75
        End If
    End Sub
    Private Sub txtSSLENUL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSSLENUL.LostFocus
        If IsNumeric(txtSSLENUL.Text) Then
            Dim I As Integer = CInt(txtSSLENUL.Text)
            If I < 3 Or I > 15 Then
                MessageBox.Show("SSLENUL必须是[3~15]之间的整数!", "输入格式有误!")
                txtSSLENUL.Text = 3
            End If
        Else
            MessageBox.Show("SSLENUL必须是[3~15]之间的整数!", "输入格式有误!")
            txtSSLENUL.Text = 3
        End If
    End Sub
    Private Sub txtQLENUL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtQLENUL.LostFocus
        If IsNumeric(txtQLENUL.Text) Then
            Dim I As Integer = CInt(txtQLENUL.Text)
            If I < 1 Or I > 20 Then
                MessageBox.Show("QLENUL必须是[1~20]之间的整数!", "输入格式有误!")
                txtQLENUL.Text = 3
            End If
        Else
            MessageBox.Show("QLENUL必须是[1~20]之间的整数!", "输入格式有误!")
            txtQLENUL.Text = 3
        End If
    End Sub
    Private Sub txtUPDWNRATIO_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUPDWNRATIO.LostFocus
        If IsNumeric(txtUPDWNRATIO.Text) Then
            Dim I As Integer = CInt(txtUPDWNRATIO.Text)
            If I < 100 Or I > 700 Then
                MessageBox.Show("UPDWNRATIO必须是[100~700]之间的整数!", "输入格式有误!")
                txtUPDWNRATIO.Text = 200
            End If
        Else
            MessageBox.Show("UPDWNRATIO必须是[100~700]之间的整数!", "输入格式有误!")
            txtUPDWNRATIO.Text = 200
        End If
    End Sub
    Private Sub btnOutPutMSData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOutPutMSData.Click
        MS_DPC.calculate_MS_DPC(txtSSDESUL.Text, txtQDESUL.Text, txtLCOMPUL.Text, txtQCOMPUL.Text, _
                           txtSSLENUL.Text, txtQLENUL.Text, _
                           txtMSPWRMAX.Text, txtMSPWRMIN.Text, txtMSTXPWR.Text)
        CreatMyBook()
        MyExcel.Visible = False
        DPC_Arr = MS_DPC.MS_DPC_Arr
        'AxTChart1.Series(0).Clear()
        With AxTChart1.Series(0).asSurface
            For I As Integer = 0 To 7
                For J As Integer = 0 To 63
                    .AddXYZ(-J, DPC_Arr(I, J), I, J - 110, I)
                Next
            Next
        End With
        MySheet = MyExcel.ActiveSheet
        With MySheet
            For I As Integer = 0 To 7
                .Cells(1, I + 2) = I
                If I = 0 Then
                    For J As Integer = 0 To 63
                        .Cells(J + 2, 1).value = J - 110
                    Next
                End If
                For J As Integer = 0 To 63
                    .Cells(J + 2, I + 2).value = DPC_Arr(I, J)
                Next
            Next
        End With
        With MySheet.Range("A1")
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlDiagonalDown).LineStyle = 1
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = 1
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).LineStyle = 1
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = 1
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = 1
            .FormulaR1C1 = "              信号质量" & Chr(10) & "信号强度"
        End With
        MySheet.Range("B1").Select()
        MySheet.Rows("1:1").RowHeight = 24
        MySheet.Columns("A:A").ColumnWidth = 24
        MyExcel.Visible = True
    End Sub
    Sub CreatMyBook()
        On Error GoTo MyExcelIsClose
        MyBook = MyExcel.Workbooks.Add
        Exit Sub
MyExcelIsClose:
        MyExcel = New Microsoft.Office.Interop.Excel.Application
        'MyExcel.Caption = "RAOX 报表"      'left$(Base64Decode("UkFPWCCxqLHt"),7)
        MyBook = MyExcel.Workbooks.Add
    End Sub
    Private Sub btnMSSaveAs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMSSaveAs.Click, btnBTSSaveAs.Click, btnGPRSMSSaveAs.Click
        Dim FileN As String, SaveType As String
        FileN = ""
        SaveFileDialog1.Filter = "JPG (*.JPG)|*.JPG|BMP (*.BMP)|*.BMP"
        SaveFileDialog1.FileName = ""
        SaveFileDialog1.ShowDialog()
        FileN = SaveFileDialog1.FileName
        If SaveFileDialog1.FilterIndex = 1 Then
            SaveType = "JPG"
        Else
            SaveType = "BMP"
        End If
        If Len(FileN) = 0 Then
            Exit Sub
        Else
            If UCase(Microsoft.VisualBasic.Right(FileN, 3)) <> SaveType Then FileN = FileN & "." & SaveType
            If Dir(FileN) <> "" Then
                If MsgBox("文件" & FileN & "已经存在!" & vbNewLine & "是否覆盖原有文件?", vbYesNo) = vbYes Then
                    Kill(FileN)
                Else
                    Exit Sub
                End If
            End If
        End If
        If UCase(Microsoft.VisualBasic.Right(FileN, 3)) = "JPG" Then
            AxTChart1.Export.asJPEG.Height = AxTChart1.Height
            AxTChart1.Export.asJPEG.Width = AxTChart1.Width
            AxTChart1.Export.asJPEG.CompressionQuality = 100
            AxTChart1.Export.asJPEG.SaveToFile(FileN)
        Else
            AxTChart1.Export.asBMP.Height = AxTChart1.Height
            AxTChart1.Export.asBMP.Width = AxTChart1.Width
            AxTChart1.Export.asBMP.SaveToFile(FileN)
        End If
    End Sub
    Private Sub txtSSDESDL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSSDESDL.LostFocus
        If IsNumeric(txtSSDESDL.Text) Then
            Dim I As Integer = CInt(txtSSDESDL.Text)
            If I < 47 Or I > 110 Then
                MessageBox.Show("SSDESDL必须是[47~110]之间的整数!", "输入格式有误!")
                txtSSDESDL.Text = 90
            End If
        Else
            MessageBox.Show("SSDESDL必须是[47~110]之间的整数!", "输入格式有误!")
            txtSSDESDL.Text = 90
        End If
    End Sub
    Private Sub txtSSDESDL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSSDESDL.TextChanged
    End Sub
    Private Sub txtQDESDL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtQDESDL.LostFocus
        If IsNumeric(txtQDESDL.Text) Then
            Dim I As Integer = CInt(txtQDESDL.Text)
            If I < 0 Or I > 76 Then
                MessageBox.Show("QDESDL必须是[0~76]之间的整数!", "输入格式有误!")
                txtSSDESDL.Text = 30
            End If
        Else
            MessageBox.Show("QDESDL必须是[0~76]之间的整数!", "输入格式有误!")
            txtSSDESDL.Text = 30
        End If
    End Sub
    Private Sub txtQLENDL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtQLENDL.LostFocus
        If IsNumeric(txtQLENDL.Text) Then
            Dim I As Integer = CInt(txtQLENDL.Text)
            If I < 1 Or I > 20 Then
                MessageBox.Show("QLENDL必须是[1~20]之间的整数!", "输入格式有误!")
                txtQLENDL.Text = 3
            End If
        Else
            MessageBox.Show("QLENDL必须是[1~20]之间的整数!", "输入格式有误!")
            txtQLENDL.Text = 3
        End If
    End Sub
    Private Sub txtBSPWRMIN_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBSPWRMIN.LostFocus
        If IsNumeric(txtBSPWRMIN.Text) Then
            Dim I As Integer = CInt(txtBSPWRMIN.Text)
            If I < -20 Or I > 50 Then
                MessageBox.Show("BSPWRMIN必须是[-20~50]之间的整数!", "输入格式有误!")
                txtBSPWRMIN.Text = -20
            End If
        Else
            MessageBox.Show("BSPWRMIN必须是[-20~50]之间的整数!", "输入格式有误!")
            txtBSPWRMIN.Text = -20
        End If
    End Sub
    Private Sub txtBSPWR_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBSPWR.LostFocus
        If IsNumeric(txtBSPWR.Text) Then
            Dim I As Integer = CInt(txtBSPWR.Text)
            If I < 0 Or I > 80 Then
                MessageBox.Show("BSPWR必须是[0~80]之间的整数!", "输入格式有误!")
                txtBSPWR.Text = 45
            End If
        Else
            MessageBox.Show("BSPWR必须是[0~80]之间的整数!", "输入格式有误!")
            txtBSPWR.Text = 45
        End If
    End Sub
    Private Sub txtLCOMPDL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLCOMPDL.LostFocus
        If IsNumeric(txtLCOMPDL.Text) Then
            Dim I As Integer = CInt(txtLCOMPDL.Text)
            If I < 0 Or I > 100 Then
                MessageBox.Show("LCOMPDL必须是[0~100]之间的整数!", "输入格式有误!")
                txtLCOMPDL.Text = 5
            End If
        Else
            MessageBox.Show("LCOMPDL必须是[0~100]之间的整数!", "输入格式有误!")
            txtLCOMPDL.Text = 5
        End If
    End Sub
    Private Sub txtQCOMPDL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtQCOMPDL.LostFocus
        If IsNumeric(txtQCOMPDL.Text) Then
            Dim I As Integer = CInt(txtQCOMPDL.Text)
            If I < 0 Or I > 100 Then
                MessageBox.Show("QCOMPDL必须是[0~100]之间的整数!", "输入格式有误!")
                txtQCOMPDL.Text = 55
            End If
        Else
            MessageBox.Show("QCOMPDL必须是[0~100]之间的整数!", "输入格式有误!")
            txtQCOMPDL.Text = 55
        End If
    End Sub
    Private Sub txtSSLENDL_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSSLENDL.LostFocus
        If IsNumeric(txtSSLENDL.Text) Then
            Dim I As Integer = CInt(txtSSLENDL.Text)
            If I < 3 Or I > 15 Then
                MessageBox.Show("SSLENDL必须是[3~15]之间的整数!", "输入格式有误!")
                txtSSLENDL.Text = 3
            End If
        Else
            MessageBox.Show("SSLENDL必须是[3~15]之间的整数!", "输入格式有误!")
            txtSSLENDL.Text = 3
        End If
    End Sub
    Private Sub txtNf_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNf.LostFocus
        If IsNumeric(txtNf.Text) Then
            Dim I As Integer = CInt(txtNf.Text)
            If I < 1 Or I > 16 Then
                MessageBox.Show("Nf必须是[1~16]之间的整数!", "输入格式有误!")
                txtNf.Text = 1
            End If
        Else
            MessageBox.Show("Nf必须是[1~16]之间的整数!", "输入格式有误!")
            txtNf.Text = 1
        End If
    End Sub
    Private Sub txtUPDWNRATIO1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUPDWNRATIO1.LostFocus
        If IsNumeric(txtUPDWNRATIO1.Text) Then
            Dim I As Integer = CInt(txtUPDWNRATIO1.Text)
            If I < 100 Or I > 700 Then
                MessageBox.Show("UPDWNRATIO必须是[100~700]之间的整数!", "输入格式有误!")
                txtUPDWNRATIO1.Text = 200
            End If
        Else
            MessageBox.Show("UPDWNRATIO必须是[100~700]之间的整数!", "输入格式有误!")
            txtUPDWNRATIO1.Text = 200
        End If
    End Sub
    Private Sub txtBSTXPWR_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBSTXPWR.LostFocus
        If IsNumeric(txtBSTXPWR.Text) Then
            Dim I As Integer = CInt(txtBSTXPWR.Text)
            If I < 0 Or I > 80 Then
                MessageBox.Show("BSTXPWR必须是[0~80]之间的整数!", "输入格式有误!")
                txtBSTXPWR.Text = 45
            End If
        Else
            MessageBox.Show("BSTXPWR必须是[0~80]之间的整数!", "输入格式有误!")
            txtBSTXPWR.Text = 45
        End If
    End Sub
    Private Sub txtBSPWRT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBSPWRT.LostFocus
        If IsNumeric(txtBSPWRT.Text) Then
            Dim I As Integer = CInt(txtBSPWRT.Text)
            If I < 0 Or I > 80 Then
                MessageBox.Show("BSPWRT必须是[0~80]之间的整数!", "输入格式有误!")
                txtBSPWRT.Text = 45
            End If
        Else
            MessageBox.Show("BSPWRT必须是[0~80]之间的整数!", "输入格式有误!")
            txtBSPWRT.Text = 45
        End If
    End Sub
    Private Sub btnBTSChart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBTSChart.Click
        BTS_DPC.calculate_BTS_DPC(txtSSDESDL.Text, txtQDESDL.Text, txtLCOMPDL.Text, txtQCOMPDL.Text, _
                    txtSSLENDL.Text, txtQLENDL.Text, _
                   txtBSPWRMIN.Text, txtBSPWRT.Text, txtBSPWR.Text, txtBSTXPWR.Text, txtNf.Text)
        DPC_Arr = BTS_DPC.BTS_DPC_Arr
        AxTChart1.Series(0).Clear()
        AxTChart1.Series(1).Clear()
        AxTChart1.Series(1).asLine.Pointer.Visible = False
        With AxTChart1.Series(0).asSurface
            For I As Integer = 0 To 7
                For J As Integer = 0 To 63
                    .AddXYZ(-J, DPC_Arr(I, J), I, J - 110, I)
                Next
            Next
        End With
        AxTChart1.Axis.Left.Automatic = True
        AxTChart1.Axis.Left.AutomaticMinimum = True
        AxTChart1.Axis.Left.AutomaticMaximum = True
        AxTChart1.Axis.Left.Title.Caption = "功率调整值(dB)"
        AxTChart1.Axis.Bottom.Title.Caption = "信号强度(dBm)"
        AxTChart1.Axis.Depth.Title.Caption = "信号质量(dtpu)"
        AxTChart1.Aspect.View3D = True
        AxTChart1.Header.Text.Clear()
        AxTChart1.Header.Text.Add("基站动态功率控制示意图")
        AxTChart1.SubHeader.Text.Clear()
        AxTChart1.SubHeader.Text.Add("　　　　　　　　　　　　　　　　　　　　　　主要参数:SSDESDL=" & txtSSDESDL.Text & ",QDESDL=" & txtQDESDL.Text & ",LCOMPDL=" & txtLCOMPDL.Text & ",QCOMPDL=" & txtQCOMPDL.Text)
    End Sub
    Private Sub btnOutPutBTSData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOutPutBTSData.Click
        BTS_DPC.calculate_BTS_DPC(txtSSDESDL.Text, txtQDESDL.Text, txtLCOMPDL.Text, txtQCOMPDL.Text, _
                    txtSSLENDL.Text, txtQLENDL.Text, _
                   txtBSPWRMIN.Text, txtBSPWRT.Text, txtBSPWR.Text, txtBSTXPWR.Text, txtNf.Text)
        DPC_Arr = BTS_DPC.BTS_DPC_Arr
        CreatMyBook()
        MyExcel.Visible = False
        'AxTChart1.Series(0).Clear()
        With AxTChart1.Series(0).asSurface
            For I As Integer = 0 To 7
                For J As Integer = 0 To 63
                    .AddXYZ(-J, DPC_Arr(I, J), I, J - 110, I)
                Next
            Next
        End With
        MySheet = MyExcel.ActiveSheet
        With MySheet
            For I As Integer = 0 To 7
                .Cells(1, I + 2) = I
                If I = 0 Then
                    For J As Integer = 0 To 63
                        .Cells(J + 2, 1).value = J - 110
                    Next
                End If
                For J As Integer = 0 To 63
                    .Cells(J + 2, I + 2).value = DPC_Arr(I, J)
                Next
            Next
        End With
        With MySheet.Range("A1")
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlDiagonalDown).LineStyle = 1
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = 1
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).LineStyle = 1
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = 1
            .Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = 1
            .FormulaR1C1 = "              信号质量" & Chr(10) & "信号强度"
        End With
        MySheet.Rows("1:1").RowHeight = 24
        MySheet.Columns("A:A").ColumnWidth = 24
        MySheet.Range("B1").Select()
        MyExcel.Visible = True
    End Sub
    Private Sub txtMSPWRMAX_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtMSPWRMAX.LostFocus
        If IsNumeric(txtMSPWRMAX.Text) Then
            Dim I As Integer = CInt(txtMSPWRMAX.Text)
            If I < 0 Or I > 33 Then
                MessageBox.Show("MSPWRMAX必须是[0~33]之间的整数!", "输入格式有误!")
                txtMSPWRMAX.Text = 33
            End If
        Else
            MessageBox.Show("MSPWRMAX必须是[0~33]之间的整数!", "输入格式有误!")
            txtMSPWRMAX.Text = 33
        End If
    End Sub
    Private Sub txtMSPWRMIN_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtMSPWRMIN.LostFocus
        If IsNumeric(txtMSPWRMIN.Text) Then
            Dim I As Integer = CInt(txtMSPWRMIN.Text)
            If I < 0 Or I > 14 Then
                MessageBox.Show("MSPWRMIN必须是[0~14]之间的整数!", "输入格式有误!")
                txtMSTXPWR.Text = 5
            End If
        Else
            MessageBox.Show("MSPWRMIN必须是[0~14]之间的整数!", "输入格式有误!")
            txtMSPWRMIN.Text = 5
        End If
    End Sub
    Private Sub txtMSTXPWR_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtMSTXPWR.LostFocus
        If IsNumeric(txtMSTXPWR.Text) Then
            Dim I As Integer = CInt(txtMSTXPWR.Text)
            If I < 0 Or I > 33 Then
                MessageBox.Show("MSTXPWR必须是[0~33]之间的整数!", "输入格式有误!")
                txtMSTXPWR.Text = 33
            End If
        Else
            MessageBox.Show("MSTXPWR必须是[0~33]之间的整数!", "输入格式有误!")
            txtMSTXPWR.Text = 33
        End If
    End Sub
    Private Sub CBcalculateMS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBcalculateMS.CheckedChanged
        If CBcalculateMS.Checked = True Then
            cmbSSMS.Enabled = True
            cmbSQMS.Enabled = True
        Else
            cmbSSMS.Enabled = False
            cmbSQMS.Enabled = False
        End If
    End Sub
    Private Sub cmbSSMS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSSMS.SelectedIndexChanged
        calculateMS()
    End Sub
    Private Sub calculateMS()
        If Len(cmbSSMS.Text) = 0 Or Len(cmbSQMS.Text) = 0 Then
            txtPOMS.Text = ""
        Else
            If Not IsNumeric(cmbSSMS.Text) Then
                MessageBox.Show("信号强度必须是数字!", "提示!")
                txtPOMS.Text = ""
                Exit Sub
            End If
            If Not IsNumeric(cmbSQMS.Text) Then
                MessageBox.Show("信号质量必须是数字!", "提示!")
                txtPOMS.Text = ""
                Exit Sub
            End If
            If CInt(cmbSSMS.Text) > -47 Or CInt(cmbSSMS.Text) < -110 Then
                MessageBox.Show("信号强度必须在[-47~-110]之间", "提示!")
                txtPOMS.Text = ""
                Exit Sub
            End If
            If CInt(cmbSQMS.Text) > 7 Or CInt(cmbSQMS.Text) < 0 Then
                MessageBox.Show("信号质量必须在[0~7]之间", "提示!")
                txtPOMS.Text = ""
                Exit Sub
            End If
            MS_DPC.calculate_MS_DPC(txtSSDESUL.Text, txtQDESUL.Text, txtLCOMPUL.Text, txtQCOMPUL.Text, _
                               txtSSLENUL.Text, txtQLENUL.Text, _
                               txtMSPWRMAX.Text, txtMSPWRMIN.Text, txtMSTXPWR.Text)
            DPC_Arr = MS_DPC.MS_DPC_Arr
            txtPOMS.Text = txtPOMS.Text
            txtPOMS.Text = DPC_Arr(CInt(cmbSQMS.Text), CInt(cmbSSMS.Text) + 110)
        End If
    End Sub
    Private Sub cmbSQMS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSQMS.SelectedIndexChanged
        calculateMS()
    End Sub
    Private Sub CBcalculateBTS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBcalculateBTS.CheckedChanged
        If CBcalculateBTS.Checked = True Then
            cmbSSBTS.Enabled = True
            cmbSQBTS.Enabled = True
        Else
            cmbSSBTS.Enabled = False
            cmbSQBTS.Enabled = False
        End If
    End Sub
    Private Sub cmbSSBTS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSSBTS.SelectedIndexChanged
        calculateBTS()
    End Sub
    Private Sub cmbSQBTS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSQBTS.SelectedIndexChanged
        calculateBTS()
    End Sub
    Private Sub calculateBTS()
        If Len(cmbSSBTS.Text) = 0 Or Len(cmbSQBTS.Text) = 0 Then
            txtPOBTS.Text = ""
        Else
            If Not IsNumeric(cmbSSBTS.Text) Then
                MessageBox.Show("信号强度必须是数字!", "提示!")
                txtPOBTS.Text = ""
                Exit Sub
            End If
            If Not IsNumeric(cmbSQBTS.Text) Then
                MessageBox.Show("信号质量必须是数字!", "提示!")
                txtPOBTS.Text = ""
                Exit Sub
            End If
            If CInt(cmbSSBTS.Text) > -47 Or CInt(cmbSSBTS.Text) < -110 Then
                MessageBox.Show("信号强度必须在[-47~-110]之间", "提示!")
                txtPOBTS.Text = ""
                Exit Sub
            End If
            If CInt(cmbSQBTS.Text) > 7 Or CInt(cmbSQBTS.Text) < 0 Then
                MessageBox.Show("信号质量必须在[0~7]之间", "提示!")
                txtPOBTS.Text = ""
                Exit Sub
            End If
            BTS_DPC.calculate_BTS_DPC(txtSSDESDL.Text, txtQDESDL.Text, txtLCOMPDL.Text, txtQCOMPDL.Text, _
                        txtSSLENDL.Text, txtQLENDL.Text, _
                       txtBSPWRMIN.Text, txtBSPWRT.Text, txtBSPWR.Text, txtBSTXPWR.Text, txtNf.Text)
            DPC_Arr = BTS_DPC.BTS_DPC_Arr
            txtPOBTS.Text = txtPOBTS.Text
            txtPOBTS.Text = DPC_Arr(CInt(cmbSQBTS.Text), CInt(cmbSSBTS.Text) + 110)
        End If
    End Sub
    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        If TabControl1.SelectedIndex = 4 Then
            TabControl1.Height = Me.Height + 545 - 607
            TabControl1.Width = Me.Width + 917 - 968
            TabControl1.Refresh()
        Else
            If TabControl1.Height <> 200 Then TabControl1.Height = 200
            If TabControl1.Width <> 684 Then TabControl1.Width = 684
        End If
        Select Case TabControl1.SelectedIndex
            Case 0
                Call btnMSChart_Click(sender, e)
            Case 1
                Call btnBTSChart_Click(sender, e)
            Case 2
                Call btnGPRS_MS_2D_Chart_Click(sender, e)
            Case 3
        End Select
    End Sub
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        'Me.AxTChart1.Height = Me.Height - 270
        If TabControl1.SelectedIndex = 4 Then
            TabControl1.Height = Me.Height + 545 - 607
            TabControl1.Width = Me.Width + 917 - 968
            TabControl1.Refresh()
        Else
            If TabControl1.Height <> 200 Then TabControl1.Height = 200
            If TabControl1.Width <> 684 Then TabControl1.Width = 684
        End If
    End Sub
    Private Sub NumTextALPHA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumTextALPHA.TextChanged
        On Error Resume Next
        TextBoxALPHA_p10.Text = CSng(NumTextALPHA.Text) / 10
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "GSM800", "GSM900"
                TextBoxGAMMA0.Text = 39
            Case "GSM1800", "GSM1900"
                TextBoxGAMMA0.Text = 36
            Case Else
                TextBoxGAMMA0.Text = 0
        End Select
    End Sub
    Private Sub btnGPRS_MS_3D_Chart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGPRS_MS_3D_Chart.Click
        Me.GPRS_MS_DPC.ALPHA = TextBoxALPHA_p10.Text
        Me.GPRS_MS_DPC.CCHPWR = NumTextCCHPWR.Text
        Me.GPRS_MS_DPC.CellType = ComboBox1.Text
        'Me.GPRS_MS_DPC.GAMMA = NumTextGAMMA.Text
        Me.GPRS_MS_DPC.GAMMA0 = TextBoxGAMMA0.Text
        Me.GPRS_MS_DPC.Pmax = NumTextPmax.Text
        Me.GPRS_MS_DPC.Pmin = NumTextPmin.Text
        Me.GPRS_MS_DPC.calculate_GPRS_MS_DPC()
        GPRS_DPC_Arr = Me.GPRS_MS_DPC.GPRS_BTS_DPC_Arr
        AxTChart1.Series(0).Clear()
        AxTChart1.Series(1).Clear()
        AxTChart1.Series(1).asLine.Pointer.Visible = False
        With AxTChart1.Series(0).asSurface
            For I As Integer = 0 To 30
                For J As Integer = 0 To 63
                    If I >= 32 Then
                        .AddXYZ(-J, 33, I, J - 110, I * 2)
                    Else
                        .AddXYZ(-J, GPRS_DPC_Arr(I, J), I, J - 110, I * 2)
                    End If
                Next
            Next
        End With
        AxTChart1.Axis.Left.Automatic = True
        AxTChart1.Axis.Left.AutomaticMinimum = True
        AxTChart1.Axis.Left.AutomaticMaximum = True
        AxTChart1.Axis.Left.Title.Caption = "手机发射功率(dBm)"
        AxTChart1.Axis.Bottom.Title.Caption = "信号强度(dBm)"
        AxTChart1.Axis.Depth.Title.Caption = "GAMMA/2"
        If AxTChart1.Aspect.View3D = False Then AxTChart1.Aspect.View3D = True
        AxTChart1.Header.Text.Clear()
        AxTChart1.Header.Text.Add("GPRS/EGPRS手机动态功率控制示意图")
        AxTChart1.SubHeader.Text.Clear()
        AxTChart1.SubHeader.Text.Add("　　　　　　　　　　　　　　　　　　　　　　主要参数:ALPHA=" & TextBoxALPHA_p10.Text * 10 & ",小区类型为" & ComboBox1.Text & ",Pmax=" & NumTextPmax.Text & ",Pmin=" & NumTextPmin.Text)
    End Sub
    Private Sub btnGPRS_MS_2D_Chart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGPRS_MS_2D_Chart.Click
        '平面图
        AxTChart1.Aspect.View3D = False
        Me.GPRS_MS_DPC.ALPHA = TextBoxALPHA_p10.Text
        Me.GPRS_MS_DPC.CCHPWR = NumTextCCHPWR.Text
        Me.GPRS_MS_DPC.CellType = ComboBox1.Text
        Me.GPRS_MS_DPC.GAMMA = NumTextGAMMA.Text
        Me.GPRS_MS_DPC.GAMMA0 = TextBoxGAMMA0.Text
        Me.GPRS_MS_DPC.Pmax = NumTextPmax.Text
        Me.GPRS_MS_DPC.Pmin = NumTextPmin.Text
        AxTChart1.Series(0).Clear()
        AxTChart1.Series(1).Clear()
        With AxTChart1.Series(1)
            For J As Integer = 0 To 63
                .Add(Int(Me.GPRS_MS_DPC.GPRS_DPC_BTS_dB(J - 110)), J - 110, J)
            Next
        End With
        AxTChart1.Axis.Left.Automatic = False
        AxTChart1.Axis.Left.AutomaticMinimum = False
        AxTChart1.Axis.Left.AutomaticMaximum = False
        On Error Resume Next
        AxTChart1.Axis.Left.Minimum = NumTextPmin.Text
        AxTChart1.Axis.Left.Maximum = NumTextPmax.Text
        AxTChart1.Axis.Left.Minimum = NumTextPmin.Text
        On Error GoTo 0
        AxTChart1.Series(1).asLine.Pointer.Visible = True
        AxTChart1.Axis.Left.Title.Caption = "手机发射功率(dBm)"
        AxTChart1.Axis.Bottom.Title.Caption = "信号强度(dBm)"
        AxTChart1.Header.Text.Clear()
        AxTChart1.Header.Text.Add("GPRS/EGPRS手机动态功率控制示意图")
        AxTChart1.SubHeader.Text.Clear()
        AxTChart1.SubHeader.Text.Add("　　　　　　　　　　　　　　　　　　　　　　主要参数:ALPHA=" & TextBoxALPHA_p10.Text * 10 & ",GAMMA=" & NumTextGAMMA.Text & ",小区类型为" & ComboBox1.Text & ",Pmax=" & NumTextPmax.Text & ",Pmin=" & NumTextPmin.Text)
    End Sub
    Private Sub butMS_QDES_To_CI_dB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butMS_QDES_To_CI_dB.Click, butBTS_QDES_To_CI_dB.Click
        'Des To CI in dB
        Dim QDES_To_CI_dB As New clsDPC.DPC_SubFunction
        AxTChart1.Aspect.View3D = False
        AxTChart1.Series(0).Clear()
        AxTChart1.Series(1).Clear()
        With AxTChart1.Series(1)
            For J As Integer = 0 To 76
                .Add(Int(QDES_To_CI_dB.dtquTodB(J)), J, J)
            Next
        End With
        AxTChart1.Axis.Left.Automatic = False
        AxTChart1.Axis.Left.AutomaticMinimum = False
        AxTChart1.Axis.Left.AutomaticMaximum = False
        On Error Resume Next
        AxTChart1.Axis.Left.Minimum = -10
        AxTChart1.Axis.Left.Maximum = 24
        AxTChart1.Axis.Left.Minimum = -10
        On Error GoTo 0
        AxTChart1.Series(1).asLine.Pointer.Visible = True
        AxTChart1.Axis.Left.Title.Caption = "C/I(dB)"
        AxTChart1.Axis.Bottom.Title.Caption = "QDES(dtqu)"
        AxTChart1.Header.Text.Clear()
        AxTChart1.Header.Text.Add("QDES(dtqu)和C/I(dB)对照图")
        AxTChart1.SubHeader.Text.Clear()
        QDES_To_CI_dB = Nothing
    End Sub
    Private Sub btnGAMMA_SSDES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGAMMA_SSDES.Click
        Dim GAMMA0 As Integer = TextBoxGAMMA0.Text
        Dim BSPWRB As Integer = NumTextBSPWRB.Text
        AxTChart1.Aspect.View3D = False
        AxTChart1.Series(0).Clear()
        AxTChart1.Series(1).Clear()
        With AxTChart1.Series(1)
            For J As Integer = 0 To 62 Step 2
                .Add((GAMMA0 - J - 48 - BSPWRB), J, J)
                'Debug.Print(GAMMA0 - J - 48 - BSPWRB)
            Next
        End With
        AxTChart1.Axis.Left.Automatic = False
        AxTChart1.Axis.Left.AutomaticMinimum = False
        AxTChart1.Axis.Left.AutomaticMaximum = False
        On Error Resume Next
        AxTChart1.Axis.Left.Minimum = -120
        AxTChart1.Axis.Left.Maximum = -47
        AxTChart1.Axis.Left.Minimum = -120
        AxTChart1.Series(1).asLine.Pointer.Visible = True
        AxTChart1.Axis.Left.Title.Caption = "SSDES(dBm)"
        AxTChart1.Axis.Bottom.Title.Caption = "GAMMA"
        AxTChart1.Header.Text.Clear()
        AxTChart1.Header.Text.Add("GAMMA和SSDES(dBm)对照图")
        AxTChart1.SubHeader.Text.Clear()
    End Sub
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged
        If RadioButton1.Checked = True Then
            NumTextGAMMA.Enabled = True
            TextBoxSStarget.Enabled = False
        Else
            NumTextGAMMA.Enabled = False
            TextBoxSStarget.Enabled = True
        End If
    End Sub
    Private Sub NumTextGAMMA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumTextGAMMA.TextChanged
        On Error Resume Next
        If IsCodeTrigger = False Then
            IsCodeTrigger = True
            TextBoxSStarget.Text = (TextBoxGAMMA0.Text - NumTextGAMMA.Text - 48 - NumTextBSPWRB.Text) & "dBm"
        End If
        IsCodeTrigger = False
    End Sub
    Private Sub TextBoxSStarget_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxSStarget.KeyDown
        Dim SS As Integer
        On Error Resume Next
        SS = CInt(Replace(TextBoxSStarget.Text, "dBm", ""))
        Select Case e.KeyValue
            Case 40 '下
                SS = SS - 1
            Case 38 '上
                SS = SS + 1
        End Select
        If SS > -47 Then SS = -47
        If SS < -110 Then SS = -110
        TextBoxSStarget.Text = SS & "dBm"
    End Sub
    Private Sub TextBoxSStarget_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxSStarget.TextChanged
        On Error Resume Next
        If IsCodeTrigger = False Then
            IsCodeTrigger = True
            Dim SS As Integer
            SS = CInt(Replace(TextBoxSStarget.Text, "dBm", ""))
            If TextBoxGAMMA0.Text - 48 - NumTextBSPWRB.Text - SS < 0 Then
                NumTextGAMMA.Text = 0
            Else
                NumTextGAMMA.Text = CInt(TextBoxGAMMA0.Text) - 48 - CInt(NumTextBSPWRB.Text) - SS
            End If
        End If
            IsCodeTrigger = False
    End Sub
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        LinkLabel1.LinkVisited = True
        'System.Diagnostics.Process.Start("http://www.lisyo.com")
        Process.Start("mailto:bc_yejr@163.com")
    End Sub
    Private Sub Link()
        System.Diagnostics.Process.Start("http://www.lisyo.com")
        Process.Start("mailto:bc_yejr@163.com")
    End Sub
    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        LinkLabel2.LinkVisited = True
        System.Diagnostics.Process.Start("http://www.lisyo.com")
    End Sub
End Class

						