GF00-ERP-SYS-SIU/GF00-ERP-SYS/0.MyModule/模組/GcmProc.vb

Module GcmProc
    ''' <summary>
    ''' MGB 通知視窗  strA 要顯示的文字 
    ''' strB：訊息類型 [1] 只有確定 ; [2] 有確定跟取消, 使用 [訊息回應] 字串回傳 [YES] OR [NO]
    ''' </summary>
    Public Sub MGB(ByVal strA As String, ByVal strB As String)
        通知訊息 = strA : 訊息類型 = strB : 通知視窗.ShowDialog()
    End Sub
    ''' <summary>
    ''' INB 輸入視窗 strC 要顯示的文字  strD 要輸入的文字
    ''' 輸入視窗會將訊息回傳到 [訊息回應] 上，在將 [訊息回應] 帶入要傳送的條件中。
    ''' 如果要在輸入視窗的輸入控件上先帶入文字即可設定第二個變數，沒有設定就是空白。
    ''' </summary>
    Public Sub INB(ByVal strC As String, Optional ByVal strD As String = "")
        通知訊息 = strC : 輸入視窗.輸入_rtb.Text = strD : 輸入視窗.ShowDialog()
    End Sub

    Public Sub CHB(ByVal strC As String, Optional ByVal strD As String = "")
        通知訊息 = strC : 查詢視窗.輸入_rtb.Text = strD : 查詢視窗.ShowDialog()
    End Sub
    ''' <summary>
    ''' 顯示說明 之前必須要宣告 [介面]
    ''' 開公告 輸入的是要顯示公告的次數。
    ''' 如果要在輸入視窗的輸入控件上先帶入文字即可設定第二個變數，沒有設定就是空白。
    ''' </summary>
    'Public Sub 顯示說明(ByVal 開公告 As Integer)
    '    Dim 開啟, 公告 As Integer : Dim 是否新增 As Boolean = False
    '    SQL_說明顯示查詢()
    '    If dr.Read Then : 開啟 = dr("開啟次數") : 公告 = dr("公告次數") : Else : 開啟 = 0 : 公告 = 0 : 是否新增 = True : End If
    '    If 開公告 > 公告 Then : WEB說明頁面.Show() : ElseIf 登入人級別 = "00" Then : WEB說明頁面.Show() : End If : PA47 = 開啟 + 1 : PA48 = 公告 + 1
    '    If 是否新增 = True Then : SQL_說明顯示新增() : Else : SQL_說明顯示修改() : End If
    'End Sub
    ''' <summary>
    ''' 使用代號之前，請先到LINE使用者管理去進行設定
    ''' 對象  請在LINE使用者管理中去複製字串出來。
    ''' </summary>
    'Public Sub LIN訊息通知(ByVal 代號 As String, ByVal 對象 As String, Optional ByVal 變數X As String = "", Optional ByVal 變數Y As String = "")
    '    LINE_權限代號 = 代號 : 發送對象 = 對象 : 通知變數X = 變數X : 通知變數Y = 變數Y : LINE_通知模塊()
    'End Sub
    Public Sub CB選擇清單(ByVal 輸入cb As ComboBox, Optional ByVal 原來值 As String = "")
        Dim 原來的 As String = 原來值
        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
        For I As Integer = 0 To 輸入cb.Items.Count - 1 : PPBB(I) = 輸入cb.Items(I).ToString : NN1 = I : Next
        If 輸入cb.Items.Count < 23 Then : 下拉清單_2.ShowDialog() : Else : 下拉清單_1.ShowDialog() : End If
        If PPAA = "" Then : 輸入cb.Text = 原來的
        Else : 輸入cb.Text = PPAA : End If
    End Sub

    Public Sub 字串處理(ByVal 說明1 As String)
        Dim 前面空白數量 As Integer = 0
        While Strings.Right(說明1, 1) = " " : 說明1 = 說明1.Substring(0, 說明1.Length - 1) : End While
        While 說明1.StartsWith(" ") : 說明1 = 說明1.Substring(1) : 前面空白數量 += 1 : End While
        If 說明1.Contains("    ") Then
            Dim 空白數量() As String = 說明1.Split(" ") : Dim 中間空白數量 As Integer = 1
            For j As Integer = 0 To 空白數量.Length - 1 : If 空白數量(j) = "" Then : 中間空白數量 += 1 : End If : Next
            Dim 要去除的空白數量 As Integer = 中間空白數量 \ 2 : Dim 已去除的數量 As Integer = 0 : Dim 除2字串 As String = ""
            For i As Integer = 0 To 空白數量.Length - 1
                If 空白數量(i) = "" Then : If 已去除的數量 < 要去除的空白數量 Then : 已去除的數量 += 1 : Else : 除2字串 &= " " : End If : Else : 除2字串 &= 空白數量(i) : End If
            Next : 說明1 = 除2字串
        End If
        If 前面空白數量 > 0 Then : Dim 要增加的空白數量 As Integer = 前面空白數量 \ 2 : For i As Integer = 0 To 要增加的空白數量 - 1 : 說明1 = " " & 說明1 : Next : End If
        已處理字串 = 說明1
    End Sub
End Module