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


2 posters

    代码剖析-自学记录!

    markeloff
    markeloff
    无尽星空


    帖子数 : 322
    积分 : 5206
    威望 : 0
    注册日期 : 2011-09-06
    年龄 : 35
    地点 : Singapore

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

    Post by markeloff 2011-12-12, 8: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 2011-12-13, 8:38 pm; edited 1 time in total
    markeloff
    markeloff
    无尽星空


    帖子数 : 322
    积分 : 5206
    威望 : 0
    注册日期 : 2011-09-06
    年龄 : 35
    地点 : Singapore

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

    Post by markeloff 2011-12-12, 9: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
    无尽星空


    帖子数 : 322
    积分 : 5206
    威望 : 0
    注册日期 : 2011-09-06
    年龄 : 35
    地点 : Singapore

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

    Post by markeloff 2012-01-31, 4:35 pm

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

    Aueeins
    Aueeins
    呢喃的歌声


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

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

    Post by Aueeins 2012-02-04, 9:17 am

    txtAge.Text = DateDiff(DateInterval.Year, CDate(cls00Regional.Nothing_toString(ds.Tables(0).Rows(0)!DateBirth)), CDate(Now.Date))
    算年龄
    Aueeins
    Aueeins
    呢喃的歌声


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

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

    Post by Aueeins 2012-02-06, 9:39 am

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

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

      Current date/time is 2024-05-02, 5:32 am