Thinker

Personal e-notepad


    -----------Selection时 选定当前数据最靠近项---------

    Aueeins
    Aueeins
    水面上的小草

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

    -----------Selection时 选定当前数据最靠近项--------- Empty -----------Selection时 选定当前数据最靠近项---------

    Post by Aueeins on 21/11/11, 04:02 am

    For x = 0 To lstStatus.Items.Count - 1
    If lstStatus.Items(x) Like vpSearchItem1 & "*" Then
    lstStatus.Text = lstStatus.Items(x)
    Exit For
    End If
    Next

      Current date/time is 17/02/20, 11:05 am