编程小技巧 提问函数、combobox选项函数

    '疑问决定函数
    Public Function Query_decide(prompt_str As String, title_str As String) As Boolean
        If Windows.Forms.MessageBox.Show(prompt_str, title_str, Windows.Forms.MessageBoxButtons.YesNo, Windows.Forms.MessageBoxIcon.Warning, Windows.Forms.MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
            Return True
        Else
            Return False
        End If
    End Function

'调用
        '疑问决定函数调用
        If Query_decide("人员更换？", "危险操作") Then
        Else
            Exit Sub
        End If

****************************************

ComboBox应用小技巧：

程序有时需要数字，有时需要名称，如何得到需要值。

        '帐本编号
        cm.CommandText = "select book_code,book_name from water_book order by book_code"
        da.Fill(ds, "water_book")  'table0

        '帐本编号  加载如：“12 苹果”的字符串，中间加一个半角空格
        For Each dr As DataRow In ds.Tables(0).Rows
            ComboBox1.Items.Add(dr(0).ToString & " " & dr(1).ToString)
        Next

默认输入get_str如：“12 苹果”的字符串，根据需要反回数字“12”或字符串“苹果”。

函数1：
    'R_blank_str返加空格后面的字符, 正数返空格右边的字符，负数返回空格左边的数字,参数第一个是要测试的字符串，第2个返回方向，默认为0
    Public Function R_blank_str(ByVal get_str As String, Optional position As Integer = 0) As String
        If position > -1 Then
            R_blank_str = (Strings.Right(get_str, get_str.Length - Strings.InStr(1, get_str, " ")))
        Else
            R_blank_str = (Strings.Left(get_str, Strings.InStr(1, get_str, " ") - 1))
        End If
    End Function

函数2：
    'R_blank_str2返加空格后面的字符, 正数返空格右边的字符，负数返回空格左边的数字,零返回全部字符串
    Public Function R_blank_str2(ByVal get_str As String, Optional position As Integer = 1) As String
        Select Case position
            Case Is > 0 '返回字符串
                R_blank_str2 = (Strings.Right(get_str, get_str.Length - Strings.InStr(1, get_str, " ")))
            Case Is = 0 '返回全部
                R_blank_str2 = get_str
            Case Is < 0 '返回数字
                R_blank_str2 = (Strings.Left(get_str, Strings.InStr(1, get_str, " ") - 1))
            Case Else '返回全部
                R_blank_str2 = get_str
        End Select
    End Function

执行结果：

?R_blank_str2("12 苹果",1)
"苹果"
?R_blank_str2("12 苹果",0)
"12 苹果"
?R_blank_str2("12 苹果",-1)
"12"

***********************************************

输出相同的字符串多少个
MessageBox.Show(New String("a", 24))      ‘24指24个

上面也可以做成函数

    '返回相同的多个字符串(转换的字符，数量)
    Public Function same_char(samechar As Char, charnum As Integer) As String
        ' Dim S_char As Char = "A"c  '后面c表示是char类型
        Return New String(samechar, charnum)
    End Function

*************************************************

通用提示：程序这个用得比较多，合并为一个通用的

    '疑问决定 (提示语名，提示抬头)
    Public Function Query_decide(prompt_str As String, title_str As String) As Boolean
        If Windows.Forms.MessageBox.Show(prompt_str, title_str, Windows.Forms.MessageBoxButtons.YesNo, Windows.Forms.MessageBoxIcon.Warning, Windows.Forms.MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
            Return True
        Else
            Return False
        End If
    End Function