Teacher WeiJin Tang (湯偉晉老師) at 中華民國臺灣省 (Taiwan): 3月 2008

2008年3月30日星期日

從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30]

從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (01 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (02 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (03 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (04 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (05 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (06 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (07 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (08 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (09 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (10 of 11).PNG
從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30] (11 of 11).PNG

開啟一個新的VB.NET專案 (by 葉雅馨) [2008-03-30-PM-04-43-50]

2008-03-30

開啟一個新的VB.NET專案 (by 葉雅馨) [2008-03-30-PM-04-43-50]

開啟一個新的VB.NET專案 (by 葉雅馨) [2008-03-30] (1 of 3).PNG
開啟一個新的VB.NET專案 (by 葉雅馨) [2008-03-30] (2 of 3).PNG
開啟一個新的VB.NET專案 (by 葉雅馨) [2008-03-30] (3 of 3).PNG

2008年3月25日星期二

Go to definition of a VB procedure [2008-03-25].PNG

Go to definition of a VB procedure [2008-03-25].PNG
String.Replace() [2008-03-25].PNG

Hythiol-C (沛體旺-C) CF by [Makiko Esumi (江角真紀子)] [2008-03-25].flv Hythiol-C (沛體旺-C) 健康與美麗的內在秘密 (The Internal Secret of Health and Beauty)

Hythiol-C (沛體旺-C) Commercial Film (CF) by [Makiko Esumi (江角真紀子)] [2008-03-25].flv Hythiol-C (沛體旺-C) 健康與美麗的內在秘密 (The Internal Secret of Health and Beauty)

UseStringClassY2008M03D25 [2008-03-25].zip

http://cid-7d665accf39eb3c7.skydrive.live.com/self.aspx/FolderTeacherWeiJinTangY2008/UseStringClassY2008M03D25%20[2008-03-25].zip

FolderTeacherWeiJinTangY2008 at Microsoft SkyDrive [2008-03-25-PM-09-37-24]

Test_WjEmailDisplayNameBuilderY2008M03D25 [2008-03-25-PM-09-03-37]

    Private Sub Test_WjEmailDisplayNameBuilderY2008M03D25()
        ' (本段程式之目的) Purpose:
        '     Explanation
        '     Test_WjEmailDisplayNameBuilderY2008M03D25 [2008-03-25-PM-09-03-37]
        ' (本段程式是否已經在被使用中) In use: Yes No
        ' (重要等級) Importance rating: 60%
        ' (再利用的可能性) Chances of reuse: 40%
        ' (程式撰寫的進度) Developing: Ongoing (80%)
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 25 PM 08 30 22)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Dim myEmailAddress As String
myEmailAddress = "Teacher.WeiJin.Tang@gmail.com"

Dim H As WjEmailDisplayNameBuilderY2008M03D25
H = New WjEmailDisplayNameBuilderY2008M03D25(myEmailAddress)

Me.Do_PasteStringToTopOfRichTextBox(H.GetEmailDisplayName(True))
Me.Do_PasteStringToTopOfRichTextBox(H.GetEmailDisplayName)

    End Sub ' Test_WjEmailDisplayNameBuilderY2008M03D25
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

' Class WjEmailDisplayNameBuilderY2008M03D25 [2008-03-25-PM-09-00-37]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Class WjEmailDisplayNameBuilderY2008M03D25
'     Class WjEmailDisplayNameBuilderY2008M03D25 [2008-03-25-PM-09-00-37]
'     Version: 1.00.01
'     Last Updated: (2008 03 25 PM 08 29 52)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class WjEmailDisplayNameBuilderY2008M03D25

    Private m_EmailAddressGivenByUser As String
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub New(ByVal AnyEmailAddress As String)
        ' Ok
        Me.m_EmailAddressGivenByUser = AnyEmailAddress
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function GetEmailDisplayName(Optional ByVal flagIsDebugging As Boolean = False) As String
        ' (本段程式之目的) Purpose:
        '     Explanation
        '     Teacher.WeiJin.Tang@gmail.com
        '     Teacher_WeiJin_Tang_at_gmail_com
        '
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 60%
        ' (再利用的可能性) Chances of reuse: 40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 25 PM 08 24 53)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        '     Version: 1.00.02
        '     Last Updated: (2008 03 25 PM 08 43 13)
        '     Version: 1.00.01
        '     Last Updated: (2008 03 25 PM 08 42 24)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim myAtChar As String = "@"
        Dim T As String
        T = Me.m_EmailAddressGivenByUser

        ' Begin_[2008_03_25_PM_08_29_09]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   Check to see if a "@" char does exist
        '
        If T.IndexOf(myAtChar) > 0 Then
            T = T.Replace(myAtChar, "_at_")
            T = T.Replace(".", "_")

            If flagIsDebugging Then
                Return Me.m_EmailAddressGivenByUser & vbNewLine & T & vbNewLine
            Else
                Return T
            End If
        Else
            ' The email address given by user is not a valid email address
            Return ""
        End If
        '
        ' End_[2008_03_25_PM_08_29_09]

    End Function ' GetEmailDisplayName
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

End Class ' WjEmailDisplayNameBuilderY2008M03D25

Do_PasteStringToTopOfRichTextBox [2008-03-25-PM-08-03-33]

    Private Sub Do_PasteStringToTopOfRichTextBox(ByVal AnyString As String)
        ' (本段程式之目的) Purpose:
        '     Do_PasteStringToTopOfRichTextBox [2008-03-25-PM-08-03-33]
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 60%
        ' (再利用的可能性) Chances of reuse: 40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 25 PM 08 00 58)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        With Me.RichTextBox1
            .Text = AnyString & vbNewLine & vbNewLine & .Text
        End With

    End Sub ' Do_PasteStringToTopOfRichTextBox
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

Test_SomeTask() [2008-03-25-PM-07-57-52]

    Private Sub Test_SomeTask()
        ' (本段程式之目的) Purpose:
        '     Test_SomeTask() [2008-03-25-PM-07-57-52]
        ' (本段程式是否已經在被使用中) In use: Yes No
        ' (重要等級) Importance rating: 60%
        ' (再利用的可能性) Chances of reuse: 40%
        ' (程式撰寫的進度) Developing: Ongoing (80%)
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 25 PM 07 50 25)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     DescriptionOfThisRevision
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim T As String
        T = " Happy   "
        Dim Tb As String

Tb = T.Trim

Me.RichTextBox1.Text = Tb

    End Sub ' Test_SomeTask
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

How to tell which class a control or object belongs to [2008-03-25].PNG

2008-03-25

How to tell which class a control or object belongs to [2008-03-25].PNG

Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill [2008-03-25] (1 of 2).PNG

2008-03-25

Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill [2008-03-25] (1 of 2).PNG

Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill [2008-03-25] (2 of 2).PNG

2008年3月23日星期日

' Excel VBA Code SortThisRangeAndOutputItsResultToANewSheet

Public Sub SortThisRangeAndOutputItsResultToANewSheet()
' (本段程式之目的) Purpose:
' Sort this range and output its result to a new sheet.
' (本段程式是否已經在被使用中) In use: Yes
' (重要等級) Importance rating: 80%
' (再利用的可能性) Chances of reuse: 80%
' (程式撰寫的進度) Developing: 100% (Mandatory)
' (程式堪用的程度) Workable: 80% (Threshold at 80%)
' (程式的測試程度) Code tested: 80% (max 99%)
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' (修改程式的日期) Revision Date: (2005 12 22 PM 08 39 55)
' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
' OK
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    Dim R1 As Excel.Range
    Dim R2 As Excel.Range

    Set R1 = Selection.CurrentRegion

    ' insert 2 new columns to my right
    R1.Columns("B:C").Select
    Selection.Insert Shift:=xlToRight
    Selection.Interior.ColorIndex = xlNone

    ' Copy ... and paste it to my right hand side
    R1.Copy
    R1.Cells(1, 3).Select
    ActiveSheet.Paste

    ' Cancel CutCopy mode
    Application.CutCopyMode = False

    ' Select the range to be sorted
    Set R2 = ActiveCell.CurrentRegion

    ' Sort this range using first column as the sorting key
    R2.Sort Key1:=R2.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlStroke, DataOption1:=xlSortNormal

    R2.Interior.ColorIndex = 4

End Sub ' SortThisRangeAndOutputItsResultToANewSheet
' - - - - - - - - - - - - -
' - - - - - - - - - - - - -

Class frmClickFun (敲敲樂 Demo) [2008-03-23-PM-05-17-52]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Class frmClickFun (敲敲樂 Demo) [2008-03-23-PM-05-17-52]
'     Version: 1.00.01
'     Last Updated: (2008 03 23 PM 05 14 15)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
Public Class frmClickFun
    Inherits System.Windows.Forms.Form
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Dim m_敲敲樂 As 敲敲樂
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

#Region " Windows Form 設計工具產生的程式碼 "

Public Sub New()
MyBase.New()

'此為 Windows Form 設計工具所需的呼叫。
InitializeComponent()

'在 InitializeComponent() 呼叫之後加入所有的初始設定

End Sub

    'Form 覆寫 Dispose 以清除元件清單。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

'為 Windows Form 設計工具的必要項
Private components As System.ComponentModel.IContainer

    '注意: 以下為 Windows Form 設計工具所需的程序
    '您可以使用 Windows Form 設計工具進行修改。
    '請勿使用程式碼編輯器來修改這些程序。
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(216, 72)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(160, 88)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'frmClickFun
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 15)
        Me.ClientSize = New System.Drawing.Size(440, 310)
        Me.Controls.Add(Me.Button1)
        Me.Name = "frmClickFun"
        Me.Text = "敲敲樂 Demo"
        Me.ResumeLayout(False)

End Sub

#End Region
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.m_敲敲樂.懂了沒()
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.m_敲敲樂 = New 敲敲樂(3)
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

End Class ' frmClickFun

How to set the name of Active Human User (如何設定使用者的名稱) in [WeiJin Tang at SoftHuman 2000] [2008-03-23]

2008年3月18日星期二

VB.NET_{Can't find Sub Main}[2008-03-18].png

VB.NET_{Object reference doesn’t refer to an object instance} [2008-03-18-PM-09-18-26]

VB.NET_{Object reference doesn't refer to an object instance} [2008-03-18-PM-09-18-26]

Private Sub Test_WjStudentIDSelectorY2008M03D11() [2008-03-18-PM-09-16-23]

    Private Sub Test_WjStudentIDSelectorY2008M03D11()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 60%
        ' (再利用的可能性) Chances of reuse: 40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 18 PM 08 28 32)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Dim O As WjStudentIDSelectorY2008M03D11

Dim MaxStudentIdNumber As Integer

MaxStudentIdNumber = 50

O = New WjStudentIDSelectorY2008M03D11(MaxStudentIdNumber)

Dim SB As New System.Text.StringBuilder

        With SB
            .Append(GetStandardTimeStampWithYearMonthDayAndTime)
            .Append(vbNewLine)
            .Append(O.SelectAStudentIdNumber)
            .Append(vbNewLine)
            .Append(vbNewLine)
        End With

Me.RichTextBox1.Text = SB.ToString & Me.RichTextBox1.Text

    End Sub ' Test_WjStudentIDSelectorY2008M03D11
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

敲敲樂 [2008-03-18-PM-07-48-23]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.敲敲樂
'
' (修改程式的人員) Revised by: 劉靜汝
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -
'     OOP2008C01.敲敲樂 [2008-03-18-PM-07-48-23]
'     Version: 1.00.01
'     Last Updated: (2008 03 18 PM 07 43 52)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class 敲敲樂

    Private m_我幾下要反應 As Integer
    Private m_我總共被拍幾下了 As Integer
    Public Sub New(ByVal 我幾下要反應 As Integer)
        Me.m_我幾下要反應 = 我幾下要反應
    End Sub
    Public Sub 懂了沒()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (程式撰寫的進度) Developing: Ongoing (80%)
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 18 PM 07 49 08)
        ' (修改程式的人員) Revised by: 劉靜汝
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Me.m_我總共被拍幾下了 = Me.m_我總共被拍幾下了 + 1
        If Me.m_我總共被拍幾下了 = Me.m_我幾下要反應 Then
            MsgBox("終於懂了")
        Else
            ' ffff
        End If
    End Sub
End Class ' 敲敲樂

2008年3月11日星期二

OOP2008C01.WjStudentIDSelector [2008-03-11-PM-09-06-44]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.WjStudentIDSelector
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -
'     OOP2008C01.WjStudentIDSelector [2008-03-11-PM-09-06-44]
'     Version: 1.00.02
'     Last Updated: (2008 03 11 PM 09 04 09)
' -   -   -   -   -   -
'     OOP2008C01.WjStudentIDSelector [2008-03-04-PM-08-58-59]
'     Version: 1.00.01
'     Last Updated: (2008 03 11 PM 09 03 15)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class WjStudentIDSelector

Private m_MaxStudentIdNumber As Integer
Private m_MinStudentIdNumber As Integer = 1

Public Sub New(ByVal MaxStudentIdNumber As Integer)
' ok

Me.m_MaxStudentIdNumber = MaxStudentIdNumber

End Sub

    Public Function SelectAStudentIdNumber() As Integer
        ' ok
        Dim myRandom As System.Random

myRandom = New System.Random

Dim myRandomNumber As Integer
myRandomNumber = myRandom.Next

Return (myRandomNumber Mod Me.m_MaxStudentIdNumber) + 1

End Function

End Class ' WjStudentIDSelector

湯偉晉_{那一種老板才是真正地善待他的員工？}[2008-03-08](IR90)

湯偉晉_{那一種老板才是真正地善待他的員工？}[2008-03-08](IR90)

2008-03-08
那一種老板才是真正地善待他的員工？

「以身作則，讓員工真正地了解品行、道德操守及行為準則的重要，和其價值之所在。透過堅實且持續地教育，致力於提升員工的能力及視野，給予他們更好的學習、成長及接受挑戰的機會，讓他們有能力去展現他們個人的才華，為這個世界創造出更大的價值，而不是只有提高他們的薪水。因為，薪水的高低，影響的只是，在眼前、在暫時之間，錢的多少；而錢乃是身外之物，只有能力、品行及道德操守的提昇，才是員工自身恆久的本錢及資產。具備了這些無形的資產，他們才有可能更上一層樓，看到另一層新的世界。」

湯偉晉親手原創性地寫作於 2008-03-08

2008年3月5日星期三

Function GetStandardTimeStampWithYearMonthDayAndTime() ; Version: 1.00.02 , Last Updated: (2006 01 13 AM 01 39 50)

    Public Function GetStandardTimeStampWithYearMonthDayAndTime() As String
        ' (本段程式之目的) Purpose:
        '     Return a standard time stamp like the followings:
        '
        '           "(2003 07 28 AM 01 51 56)"
        '           "(2003 07 28 MM 12 51 56)"
        '           "(2003 07 28 PM 01 51 56)"
        '
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 90%
        ' (再利用的可能性) Chances of reuse: 80%
        ' (程式撰寫的進度) Developing: 100%
        ' (程式堪用的程度) Workable: 80%
        ' (程式的測試程度) Code tested: 80%
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2003 07 28 PM 01 49 20)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        '     Version: 1.00.02
        '     Last Updated: (2006 01 13 AM 01 39 50)
        '     Version: 1.00.01
        '     Last Updated: (2003 07 28 PM 01 49 20)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

' Begin: 1.00.02 (2006 01 13 AM 01 40 03)

Dim TimeStampWithYearMonthDayAndTime As String
Dim ValueOfHour As Long

Dim ThisMoment As Date
ThisMoment = Now

ValueOfHour = Hour(ThisMoment)

Dim AM_MM_or_PM As String

        If ValueOfHour >= 0 And ValueOfHour < 12 Then
            AM_MM_or_PM = "AM"
        ElseIf ValueOfHour = 12 Then
            AM_MM_or_PM = "MM"
        Else
            AM_MM_or_PM = "PM"
            If ValueOfHour <> 12 Then
                ValueOfHour = ValueOfHour - 12
            End If
        End If

        Dim YearAsString As String
        YearAsString = ThisMoment.Year.ToString.PadLeft(4, Convert.ToChar("0"))
        Dim MonthAsString As String
        MonthAsString = ThisMoment.Month.ToString.PadLeft(2, Convert.ToChar("0"))
        Dim DayAsString As String
        DayAsString = ThisMoment.Day.ToString.PadLeft(2, Convert.ToChar("0"))

Dim HourAsString As String
HourAsString = ValueOfHour.ToString.PadLeft(2, Convert.ToChar("0"))

        Dim MinuteAsString As String
        MinuteAsString = ThisMoment.Minute.ToString.PadLeft(2, Convert.ToChar("0"))
        Dim SecondAsString As String
        SecondAsString = ThisMoment.Second.ToString.PadLeft(2, Convert.ToChar("0"))

Dim SpaceChar As String = " "

TimeStampWithYearMonthDayAndTime = "(" & YearAsString & SpaceChar & MonthAsString & SpaceChar & DayAsString & SpaceChar & AM_MM_or_PM & SpaceChar & HourAsString & SpaceChar & MinuteAsString & SpaceChar & SecondAsString & ")"

Return TimeStampWithYearMonthDayAndTime

' End: 1.00.02 (2006 01 13 AM 01 40 03)

    End Function ' GetStandardTimeStampWithYearMonthDayAndTime
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

2008年3月4日星期二

OOP2008C01.frmMainUI [2008-03-04-PM-09-40-24]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.frmMainUI
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -
'     OOP2008C01.frmMainUI [2008-03-04-PM-09-40-24]
'     Version: 1.00.02
'     Last Updated: (2008 03 04 PM 09 39 53)
' -   -   -   -   -   -
'     OOP2008C01.frmMainUI [2008-03-04-PM-09-37-16]
'     Version: 1.00.01
'     Last Updated: (2008 03 04 PM 09 30 22)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
Public Class frmMainUI
    Inherits System.Windows.Forms.Form
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

    ' Begin_[2008_03_04_PM_09_11_00]
    ' Comments by WeiJin Tang (湯偉晉) :
    '   We should declare it at the module level, i.e. class level.
    '
    Private m_WeiJin As WjClickFun
    '
    ' End_[2008_03_04_PM_09_11_00]

#Region " Windows Form 設計工具產生的程式碼 "

Public Sub New()
MyBase.New()

'此為 Windows Form 設計工具所需的呼叫。
InitializeComponent()

'在 InitializeComponent() 呼叫之後加入所有的初始設定

End Sub

'為 Windows Form 設計工具的必要項
Private components As System.ComponentModel.IContainer

    '注意: 以下為 Windows Form 設計工具所需的程序
    '您可以使用 Windows Form 設計工具進行修改。
    '請勿使用程式碼編輯器來修改這些程序。
    Friend WithEvents btnTestWJClickFun As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.btnTestWJClickFun = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'btnTestWJClickFun
        '
        Me.btnTestWJClickFun.Location = New System.Drawing.Point(200, 56)
        Me.btnTestWJClickFun.Name = "btnTestWJClickFun"
        Me.btnTestWJClickFun.Size = New System.Drawing.Size(144, 72)
        Me.btnTestWJClickFun.TabIndex = 0
        Me.btnTestWJClickFun.Text = "Test WJClickFun"
        '
        'frmMainUI
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 15)
        Me.ClientSize = New System.Drawing.Size(424, 389)
        Me.Controls.Add(Me.btnTestWJClickFun)
        Me.Name = "frmMainUI"
        Me.Text = "Main UI for OOP2008C01"
        Me.ResumeLayout(False)

End Sub

#End Region

    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestWJClickFun.Click

        ' Begin_[2008_03_04_PM_09_09_52]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   We shouldn't declare ...
        '
        ' We shouldn't declare the variable at the procedure level; instead we should
        ' declare it at the module level, i.e. class level.
        '
        'Dim O As WjClickFun
        'O = New WjClickFun(5)
        '
        ' End_[2008_03_04_PM_09_09_52]

Me.m_WeiJin.ClickForFun()

    End Sub ' Button1_Click
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Instantiate this module level object in the Form.Load event
Me.m_WeiJin = New WjClickFun(3)

    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class

OOP2008C01.WjClickFun [2008-03-04-PM-09-40-24]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Object Oriented Programming 2008, Class 01, Serving TSINT_2010級_夜四技_忠班
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Code Name of this module:
'     OOP2008C01.WjClickFun
'
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -
'     OOP2008C01.WjClickFun [2008-03-04-PM-09-40-24]
'     Version: 1.00.02
'     Last Updated: (2008 03 04 PM 09 38 18)
' -   -   -   -   -   -
'     OOP2008C01.WjClickFun [2008-03-04-PM-08-58-59]
'     Version: 1.00.01
'     Last Updated: (2008 03 04 PM 08 57 38)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class WjClickFun
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private m_NumberOfClickToRespond As Integer
    Private m_NumberOfTimesIWasClicked As Integer
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub New(ByVal NumberOfClickToRespond As Integer)
        Me.m_NumberOfClickToRespond = NumberOfClickToRespond
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub ClickForFun()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating: 60%
        ' (再利用的可能性) Chances of reuse: 40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 04 PM 08 32 14)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     ok
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Me.m_NumberOfTimesIWasClicked += 1
' Me.m_NumberOfTimesIWasClicked = Me.m_NumberOfTimesIWasClicked + 1

        If Me.m_NumberOfTimesIWasClicked = Me.m_NumberOfClickToRespond Then
            MsgBox("Hi, I am WjClickFun. How are you!")
        End If

    End Sub ' ClickForFun
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class ' WjClickFun

WjClickFun [2008-03-04-PM-08-58-59]

'     Code Name of this module:
'        WjClickFun
'
'        WjClickFun [2008-03-04-PM-08-58-59]
'     Version: 1.00.01
'     Last Updated: (2008 03 04 PM 08 57 38)

Public Class WjClickFun
Private m_NumberOfClickToRespond As Integer
Private m_NumberOfTimesIWasClicked As Integer

    Public Sub New(ByVal NumberOfClickToRespond As Integer)
        Me.m_NumberOfClickToRespond = NumberOfClickToRespond
    End Sub

    Public Sub ClickForFun()
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes No
        ' (重要等級) Importance rating: 60%
        ' (再利用的可能性) Chances of reuse: 40%
        ' (程式撰寫的進度) Developing: Ongoing (80%)
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 0% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 04 PM 08 32 14)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     DescriptionOfThisRevision
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Me.m_NumberOfTimesIWasClicked += 1
' Me.m_NumberOfTimesIWasClicked = Me.m_NumberOfTimesIWasClicked + 1

        If Me.m_NumberOfTimesIWasClicked = Me.m_NumberOfClickToRespond Then
            MsgBox("Hi, I am WjClickFun. How are you!")
        End If

    End Sub ' ClickForFun
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class ' WjClickFun

2008年3月2日星期日

http://teacherweijintang.spaces.live.com/

[2008-03-02-PM-05-59-41]

Teacher WeiJin Tang's Space at MSN

Try to learn something new and useful everyday! And, try to do something good for our society from time to time.

http://teacherweijintang.spaces.live.com/

Teacher WeiJin Tang's Space at MSN [2008-03-02].PNG

How to add a class to your VB.NET 2003 project [2008-03-02].PNG

訂閱：意見 (Atom)

Teacher WeiJin Tang (湯偉晉老師) at 中華民國臺灣省 (Taiwan)

2008年3月30日星期日

從網際網路複製一個類別, 把它加入到我們的VB.NET專案中 (by 葉雅馨) [2008-03-30]

開啟一個新的VB.NET專案 (by 葉雅馨) [2008-03-30-PM-04-43-50]

2008年3月25日星期二

Go to definition of a VB procedure [2008-03-25].PNG

Hythiol-C (沛體旺-C) CF by [Makiko Esumi (江角真紀子)] [2008-03-25].flv Hythiol-C (沛體旺-C) 健康與美麗的內在秘密 (The Internal Secret of Health and Beauty)

UseStringClassY2008M03D25 [2008-03-25].zip

FolderTeacherWeiJinTangY2008 at Microsoft SkyDrive [2008-03-25-PM-09-37-24]

Test_WjEmailDisplayNameBuilderY2008M03D25 [2008-03-25-PM-09-03-37]

' Class WjEmailDisplayNameBuilderY2008M03D25 [2008-03-25-PM-09-00-37]

Do_PasteStringToTopOfRichTextBox [2008-03-25-PM-08-03-33]

Test_SomeTask() [2008-03-25-PM-07-57-52]

How to tell which class a control or object belongs to [2008-03-25].PNG

Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill [2008-03-25] (1 of 2).PNG

2008年3月23日星期日

' Excel VBA Code SortThisRangeAndOutputItsResultToANewSheet

Class frmClickFun (敲敲樂 Demo) [2008-03-23-PM-05-17-52]

How to set the name of Active Human User (如何設定使用者的名稱) in [WeiJin Tang at SoftHuman 2000] [2008-03-23]

2008年3月18日星期二

VB.NET_{Can't find Sub Main}[2008-03-18].png

VB.NET_{Object reference doesn’t refer to an object instance} [2008-03-18-PM-09-18-26]

Private Sub Test_WjStudentIDSelectorY2008M03D11() [2008-03-18-PM-09-16-23]

敲敲樂 [2008-03-18-PM-07-48-23]

2008年3月11日星期二

OOP2008C01.WjStudentIDSelector [2008-03-11-PM-09-06-44]

湯偉晉_{那一種老板才是真正地善待他的員工？}[2008-03-08](IR90)

2008年3月5日星期三

Function GetStandardTimeStampWithYearMonthDayAndTime() ; Version: 1.00.02 , Last Updated: (2006 01 13 AM 01 39 50)

2008年3月4日星期二

OOP2008C01.frmMainUI [2008-03-04-PM-09-40-24]

OOP2008C01.WjClickFun [2008-03-04-PM-09-40-24]

WjClickFun [2008-03-04-PM-08-58-59]

2008年3月2日星期日

http://teacherweijintang.spaces.live.com/

How to add a class to your VB.NET 2003 project [2008-03-02].PNG

著作人

網誌存檔

追蹤者

2008年3月30日 星期日

2008年3月25日 星期二

2008年3月23日 星期日

2008年3月18日 星期二

2008年3月11日 星期二

2008年3月5日 星期三

2008年3月4日 星期二

2008年3月2日 星期日

著作人

網誌存檔

追蹤者

2008年3月30日星期日

2008年3月25日星期二

2008年3月23日星期日

2008年3月18日星期二

2008年3月11日星期二

2008年3月5日星期三

2008年3月4日星期二

2008年3月2日星期日