Thinker

Personal e-notepad


    -----选择当前项-----

    markeloff
    markeloff
    无尽星空

    帖子数 : 244
    积分 : 3538
    威望 : 0
    注册日期 : 2011-09-06
    年龄 : 31
    地点 : Singapore

    -----选择当前项----- Empty -----选择当前项-----

    Post by markeloff on 29/12/11, 06:16 am

    Private Sub f05MITypeSel_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
    If vpSearchItem1 = "" Then
    lstStatus.Text = lstStatus.SelectedIndex = 0
    End If
    Select Case Mid(vpSearchItem1, 1, 2)
    Case "C"
    lstStatus.SelectedIndex = 0
    Case "T"
    lstStatus.SelectedIndex = 1
    Case "Q"
    lstStatus.SelectedIndex = 3
    Case Else
    lstStatus.SelectedIndex = 0
    End Select
    lstStatus.Enabled = True
    lstStatus.Select()
    End Sub

      Current date/time is 22/02/20, 12:02 pm