Thinker

Personal e-notepad


    【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS"

    Aueeins
    Aueeins
    水面上的小草

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

    【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS" Empty 【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS"

    Post by Aueeins on 29/09/11, 02:18 pm

    .SelectAll()
    e.KeyChar = Char.ToUpper(e.KeyChar)

    If Not IsNumeric(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = "." And Not e.KeyChar = "-" Then
    e.KeyChar = Nothing
    End If


    Last edited by Aueeins on 05/12/11, 08:48 am; edited 1 time in total
    Aueeins
    Aueeins
    水面上的小草

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

    【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS" Empty Re: 【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS"

    Post by Aueeins on 05/10/11, 02:59 am

    Try
    If txtClientContactType.ReadOnly = False Then
    Call txtClientContactType_KeyDown(sender, New KeyEventArgs(Keys.F6))
    End If
    Catch ex As Exception
    MsgBox("<f08CaseEdit.btnContactType_Click> " & ex.Message)
    End Try

    btn的
    markeloff
    markeloff
    无尽星空

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

    【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS" Empty Re: 【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS"

    Post by markeloff on 19/01/12, 10:59 am

    顶!

    Sponsored content

    【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS" Empty Re: 【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS"

    Post by Sponsored content


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