Thinker

Personal e-notepad


    代码剖析-自学记录!

    markeloff
    markeloff
    无尽星空

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

    代码剖析-自学记录! Empty 代码剖析-自学记录!

    Post by markeloff on 12/12/11, 12:49 pm

    目录:

    ================================

    01
    z02Setup
    ADD-EDIT-COPY&ADD-DELETE-FILTER-REFRESH
    2011/12/12 8:48

    ================================

    ================================

    02
    Z10FileTrack

    DELETE-FILTER-SELECTION
    8:37
    --未看--
    Reverse


    Last edited by markeloff on 13/12/11, 12:38 pm; edited 1 time in total
    markeloff
    markeloff
    无尽星空

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

    代码剖析-自学记录! Empty Re: 代码剖析-自学记录!

    Post by markeloff on 12/12/11, 01:03 pm

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
    ***********************************
    'Private' is an access modifier.

    Sub - it indicates a procedure. A sub will not return a value, it will only perform an action ( as opposed to, say, a function which will generally
    return something).

    Sub = Public Sub

    ByVal means it is passing the variable by value.

    sender is an object of generic type System.Object. All objects in .NET inheirit from System.Object, as such it is passing the control that is casuing
    the event to fire.

    e is an object o ftype System.EventArgs where EventArgs is the generic Class for event arguments or, the arguments the event is passed.

    ByVal <> ByRef By value by reference.

    System.Object and System.EventArgs are the type of Objects System class provides.

    sender is an instance of System.Object, e is instance of System.EventArgs
    ***************************************
    --未看的--
    cls02Period.InitSqlCode()
    pAfterAddRefresh()
    markeloff
    markeloff
    无尽星空

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

    代码剖析-自学记录! Empty Re: 代码剖析-自学记录!

    Post by markeloff on 31/01/12, 08:35 am

    'If InStr("ABCDEF", UCase(PriceGroup), CompareMethod.Binary) > 0 Then
    ' vpSearchItem7 = PriceGroup
    'Else
    ' vpSearchItem7 = "A"
    'End If

    Aueeins
    Aueeins
    水面上的小草

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

    代码剖析-自学记录! Empty Re: 代码剖析-自学记录!

    Post by Aueeins on 04/02/12, 01:17 am

    txtAge.Text = DateDiff(DateInterval.Year, CDate(cls00Regional.Nothing_toString(ds.Tables(0).Rows(0)!DateBirth)), CDate(Now.Date))
    算年龄
    Aueeins
    Aueeins
    水面上的小草

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

    代码剖析-自学记录! Empty Re: 代码剖析-自学记录!

    Post by Aueeins on 06/02/12, 01:39 am

    Math.Round(Format2Value(Me.txtFeeDue.Text), 2)

    'Format2Value() .- 把()它们变成数字
    'Math.Round(XX,2) - 保留两个小数

    Sponsored content

    代码剖析-自学记录! Empty Re: 代码剖析-自学记录!

    Post by Sponsored content


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