Thinker

Personal e-notepad


    -----割左边第一个字符-----

    Aueeins
    Aueeins
    水面上的小草

    帖子数 : 173
    积分 : 3539
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

    -----割左边第一个字符----- Empty -----割左边第一个字符-----

    Post by Aueeins on 17/10/11, 02:40 am

    Strings.Left(Trim$(vpSearchItem1), 1)

    Select Case Strings.Left(Trim$(vpSearchItem1), 1)
    Case "C"
    lstStatus.Text = lstStatus.Items(0)
    Case "O"
    lstStatus.Text = lstStatus.Items(1)
    Case "V"
    lstStatus.Text = lstStatus.Items(2)
    Case Else
    lstStatus.Text = lstStatus.Items(0)
    End Select

      Current date/time is 05/06/20, 07:17 pm