Thinker

Would you like to react to this message? Create an account in a few clicks or log in to continue.
Thinker

Forum for story


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

    Aueeins
    Aueeins
    呢喃的歌声


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

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

    Post by Aueeins 2011-10-17, 9: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 2024-03-29, 1:54 pm