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

2009年3月30日星期一

累積人生的智慧 [2009-03-31]

2009-03-30

「肯承認錯誤並虛心改進的人才能增長智慧。」

恭錄自證嚴法師所述的 [靜思語] 一書

2009-03-30

累積人生的智慧

「能夠不恥下問，可以虛心接受別人的批評，又能勇於承認自身的錯誤，並且願意針對問題之所在，主動進取地採取實際的行動，確確實實地著手去進行自我改革的人，自然就能夠與時俱進，不斷地累積出真正屬於自己的智慧。」

湯偉晉（WeiJin Tang）親手逐字地寫於西元 2009-03-30

2009-03-31

File Index: 0001
Original file name (原始的檔案名稱):
TextOnImage_累積人生的智慧_[2009-03-31].gif
GUID file name:
FN_68C271AFDD7C49A1AE6D343C9D51D417.gif

Keywords:
累積人生的智慧_[2009-03-31]

Number of attached files:
1

2009年3月22日星期日

Image of test result of [SHColorPicker_2009-0322] [2009-03-22]

[2009-03-22-PM-04-48-19]

Image of test result of [SHColorPicker_2009-0322] [2009-03-22] (1_of_4).png
Image of test result of [SHColorPicker_2009-0322] [2009-03-22] (2_of_4).png
Image of test result of [SHColorPicker_2009-0322] [2009-03-22] (3_of_4).png
Image of test result of [SHColorPicker_2009-0322] [2009-03-22] (4_of_4).png

SoftHuman Color Picker (善解科技_顏色選擇器) - 1.0.1.50 [2009-03-22](IR89)[2009-03-22-PM-04-25-29].zip

March 22, 2009; 04:41:46 p.m. Taipei Time

SoftHuman Color Picker (善解科技_顏色選擇器) - 1.0.1.50 [2009-03-22](IR89)[2009-03-22-PM-04-25-29].zip

SoftHuman Color Picker (善解科技_顏色選擇器) - 1.0.1.50 [2009-03-22](IR89)[2009-03-22-PM-04-25-29].zip.SHCRC32

SHColorPicker_2009-0322.frmMainUI [2009-03-22-PM-04-39-39]

'
' Code Name of this Visual Basic 2003 Windows Form Application:
' SHColorPicker_2009-0322.frmMainUI
'
' Version 1.00.01; Last Updated on [2009-03-22-MM-12-25-58]
'
Public Class frmMainUI
    Inherits System.Windows.Forms.Form
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Const pc_FriendlyApplicationName As String = "SoftHuman Color Picker (善解科技_顏色選擇器)"
    Private m_PictureBoxHelper_WJ As WJPictureBoxHelper_Y2009M03D22

    Private m_ReportMouseTipCoordinates_Delegate As WJPictureBoxHelper_Y2009M03D22.ReportMouseTipCoordinates_Delegate
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
#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 StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents miTest01 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents miLoadNewImageFile As System.Windows.Forms.MenuItem
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMainUI))
        Me.StatusBar1 = New System.Windows.Forms.StatusBar
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.miTest01 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.miLoadNewImageFile = New System.Windows.Forms.MenuItem
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
        Me.Splitter1 = New System.Windows.Forms.Splitter
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 384)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Size = New System.Drawing.Size(672, 22)
        Me.StatusBar1.TabIndex = 0
        Me.StatusBar1.Text = "StatusBar1"
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem2, Me.MenuItem1})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 2
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miTest01})
        Me.MenuItem1.Text = "Test"
        '
        'miTest01
        '
        Me.miTest01.Index = 0
        Me.miTest01.Shortcut = System.Windows.Forms.Shortcut.F5
        Me.miTest01.Text = "Test 01"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "Tools"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 0
        Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miLoadNewImageFile})
        Me.MenuItem3.Text = "File"
        '
        'miLoadNewImageFile
        '
        Me.miLoadNewImageFile.Index = 0
        Me.miLoadNewImageFile.Text = "Load New Image File"
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.RichTextBox1)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(672, 200)
        Me.Panel1.TabIndex = 1
        '
        'RichTextBox1
        '
        Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
        Me.RichTextBox1.Name = "RichTextBox1"
        Me.RichTextBox1.Size = New System.Drawing.Size(672, 200)
        Me.RichTextBox1.TabIndex = 0
        Me.RichTextBox1.Text = "RichTextBox1"
        '
        'Splitter1
        '
        Me.Splitter1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Splitter1.Location = New System.Drawing.Point(0, 200)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(672, 3)
        Me.Splitter1.TabIndex = 2
        Me.Splitter1.TabStop = False
        '
        'PictureBox1
        '
        Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(0, 203)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(672, 181)
        Me.PictureBox1.TabIndex = 3
        Me.PictureBox1.TabStop = False
        '
        'frmMainUI
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 15)
        Me.ClientSize = New System.Drawing.Size(672, 406)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Menu = Me.MainMenu1
        Me.Name = "frmMainUI"
        Me.Text = "SoftHuman Color Picker"
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

End Sub

#End Region
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub frmMainUI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myFriendlyApplicationNameWithVersionInfo As String

        'myFriendlyApplicationNameWithVersionInfo = pc_FriendlyApplicationName & " - " & Application.ProductVersion
        myFriendlyApplicationNameWithVersionInfo = _
            pc_FriendlyApplicationName & " - " & Application.ProductVersion & " " & "[2009-03-22]"

Me.Do_InitializeMemberVariables()

With Me
.Text = myFriendlyApplicationNameWithVersionInfo

.Font = New System.Drawing.Font("Times New Roman", 13)

.StartPosition = FormStartPosition.CenterScreen
End With

        With Me.RichTextBox1
            .Font = New System.Drawing.Font("Times New Roman", 13)
            '.ZoomFactor = 1.5
            '.ZoomFactor = 1.4
            .ZoomFactor = 1.3
            '.ZoomFactor = 1.2

.ShowSelectionMargin = True

            .SelectAll()
            '.SelectionFont = New System.Drawing.Font("Times New Roman", 13, FontStyle.Regular)
            .SelectionColor = System.Drawing.Color.Blue

.Dock = DockStyle.Fill

' initial setup, for info only
.Text = myFriendlyApplicationNameWithVersionInfo

End With

Dim FPFN As String
'FPFN = "C:\Documents and Settings\806\My Documents\My Pictures\Data 02.PNG"

With Me.PictureBox1
' .Dock = DockStyle.Fill

If IO.File.Exists(FPFN) Then
'MsgBox("FPFN = " & FPFN)

                .Image = System.Drawing.Image.FromFile(FPFN)
            Else
            End If

.BringToFront()
End With

        With Me.RichTextBox1
            '           .BringToFront()
        End With

        With Me.StatusBar1
            .Text = myFriendlyApplicationNameWithVersionInfo
        End With
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub Do_InitializeMemberVariables()
        ' OK

Me.m_ReportMouseTipCoordinates_Delegate = New WJPictureBoxHelper_Y2009M03D22.ReportMouseTipCoordinates_Delegate(AddressOf Me.Do_ReportMouseTipCoordinates_Delegate)

Me.m_PictureBoxHelper_WJ = New WJPictureBoxHelper_Y2009M03D22(Me.PictureBox1, Me.m_ReportMouseTipCoordinates_Delegate)

    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub Do_ReportMouseTipCoordinates_Delegate(ByVal X As Integer, ByVal Y As Integer)
        ' OK

Dim SB As New System.Text.StringBuilder

        With SB
            '.Append(vbNewLine)
            '.Append(vbNewLine)
            .Append("X = ")
            '            .Append(vbNewLine)
            .Append(X)
            '.Append(vbNewLine)
            .Append(vbNewLine)
            .Append("Y = ")
            '            .Append(vbNewLine)
            .Append(Y)
            .Append(vbNewLine)

            '.Append("Me.m_PictureBoxHelper_WJ.RValueGValueAndBValueOfThePixelPointedByMouseTip")
            .Append(vbNewLine)
            .Append(Me.m_PictureBoxHelper_WJ.RValueGValueAndBValueOfThePixelPointedByMouseTip)
            .Append(vbNewLine)
            .Append(vbNewLine)
            '.Append(vbNewLine)

End With

Me.RichTextBox1.Text = SB.ToString

    End Sub ' Do_ReportMouseTipCoordinates_Delegate
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub miLoadNewImageFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLoadNewImageFile.Click
        ' (本段程式之目的) Purpose:
        '     Explanation
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 60% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2009 03 22 PM 03 20 08)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

' Most recently used folder path
Static MRUFolderPath As String = Nothing

Dim FP As String

        ' Try to set the initial folder to the most recently used folder
        If MRUFolderPath Is Nothing Or IO.Directory.Exists(MRUFolderPath) = False Then
            FP = System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
        Else
            FP = MRUFolderPath
        End If

Dim FPFN As String

        With Me.OpenFileDialog1
            If IO.File.Exists(FP) Then
                .InitialDirectory = FP
            Else
                ' use default folder path
                .InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            End If

            If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
                FPFN = Me.OpenFileDialog1.FileName
            Else
                Exit Sub
            End If
        End With

        If IO.File.Exists(FPFN) Then
        Else
            Exit Sub
        End If

        Try
            With Me.PictureBox1
                .Image = System.Drawing.Bitmap.FromFile(FPFN)
                .Width = .Image.Width
                .Height = .Image.Height
            End With

            ' save ...
            MRUFolderPath = IO.Path.GetFullPath(FPFN)
            'MsgBox("MRUFolderPath = " & MRUFolderPath)
        Catch ex As Exception

        End Try
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class ' frmMainUI

SHColorPicker_2009-0322.WJPictureBoxHelper_Y2009M03D22 [2009-03-22-PM-04-38-29]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     (著作權聲明) Copyright Statement:
'           Copyright 2000-2009, SoftHuman Corporation. All rights reserved.
'           善解科技股份有限公司
'           著作權 2000-2009。版權所有，保留一切權利。
'
'     (本段程式之目的) Purpose:
'           Object of this class can help you to report the X and Y coordinates of the mouse tip clicking on the
'           surface of a Windows.Form.PictureBox control.
'
'     (友善的模組名稱) Friendly name of this module:
'           SHColorPicker_2009-0322.WJPictureBoxHelper_Y2009M03D22
'
'     Code Name of this Visual Basic 2003 Windows Form Application:
'     (程式用模組名稱) Code name of this module:
'           SHColorPicker_2009-0322.WJPictureBoxHelper_Y2009M03D22
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'   Version 1.00.03; Last Updated on [2009-03-22-PM-02-18-37]
'       The following functionalities are ready in this version:
'           Public Function RGBColorOfThePixelPointedByMouseTip() As System.Drawing.Color
'           Public Function RGBValueOfThePixelPointedByMouseTip() As Integer
'
'   Version 1.00.02; Last Updated on [2009-03-22-PM-01-53-12]
'       The following functionalities are ready in this version:
'   Public Sub Enable_Handling_MouseMove_Event()
'   Public Sub Disable_Handling_MouseMove_Event()
'   Public ReadOnly Property X_CoordinateOfMouseTip() As Integer
'   Public ReadOnly Property Y_CoordinateOfMouseTip() As Integer
'
'   Version 1.00.01; Last Updated on [2009-03-22-MM-12-49-49]
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     (本段程式是否已經在被使用中) In use: Yes
'     (程式撰寫的進度) Developing: 100% (Mandatory)
'     (程式堪用的程度) Workable: 80% (Threshold at 80%)
'     (程式的測試程度) Code tested: 80% (max 99%)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class WJPictureBoxHelper_Y2009M03D22
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Delegate Sub ReportMouseTipCoordinates_Delegate(ByVal X As Integer, ByVal Y As Integer)

Private m_ReportMouseTipCoordinates_Delegate As WJPictureBoxHelper_Y2009M03D22.ReportMouseTipCoordinates_Delegate = Nothing

Private WithEvents m_PictureBox As Windows.Forms.PictureBox = Nothing
Private m_flagHandle_MouseMove_Event As Boolean = True

    Private m_PositionOfMouseTip As Point
    Private m_X_CoordinateOfMouseTip As Integer
    Private m_Y_CoordinateOfMouseTip As Integer
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub Enable_Handling_MouseMove_Event()
        ' OK
        Me.m_flagHandle_MouseMove_Event = True
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub Disable_Handling_MouseMove_Event()
        ' OK
        Me.m_flagHandle_MouseMove_Event = False
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public ReadOnly Property X_CoordinateOfMouseTip() As Integer
        ' OK
        Get
            Return Me.m_X_CoordinateOfMouseTip
        End Get
    End Property
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public ReadOnly Property Y_CoordinateOfMouseTip() As Integer
        ' OK
        Get
            Return Me.m_Y_CoordinateOfMouseTip
        End Get
    End Property
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function GetTestingResultAsOneString() As String
        ' OK, but with ongoing nature

Dim SB As New System.Text.StringBuilder

        With SB
            .Append(vbNewLine)
            .Append(vbNewLine)
            .Append("Me.X_CoordinateOfMouseTip = ")
            '            .Append(vbNewLine)
            .Append(Me.X_CoordinateOfMouseTip)
            .Append(vbNewLine)
            .Append(vbNewLine)
            .Append("Me.Y_CoordinateOfMouseTip = ")
            '            .Append(vbNewLine)
            .Append(Me.Y_CoordinateOfMouseTip)
            .Append(vbNewLine)

'.Append(vbNewLine)
'.Append(vbNewLine)

End With

Return SB.ToString

'Return "Me.X_CoordinateOfMouseTip =" & Me.X_CoordinateOfMouseTip & "," & "Me._CoordinateOfMouseTip =" & Me.Y_CoordinateOfMouseTip

    End Function
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub New(ByVal AnyPictureBox As System.Windows.Forms.PictureBox, ByVal D As WJPictureBoxHelper_Y2009M03D22.ReportMouseTipCoordinates_Delegate)
        ' OK
        Me.m_PictureBox = AnyPictureBox

Me.m_ReportMouseTipCoordinates_Delegate = D

    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Private Sub m_PictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles m_PictureBox.MouseDown
        ' OK

' MsgBox("into m_PictureBox_MouseDown")

        If Me.m_flagHandle_MouseMove_Event Then
            ' wjTeach: wjKnowHow:
            ' Me.m_PictureBox.PointToClient(Cursor.Position)
            '
            '      Search Microsoft related web sites using Google
            '      http://www.google.com/microsoft
            '
            Me.m_PositionOfMouseTip = Me.m_PictureBox.PointToClient(Cursor.Position)

'Dim X_CoordinateOfMouseTip As Integer
'Dim Y_CoordinateOfMouseTip As Integer

            With Me.m_PositionOfMouseTip
                Me.m_X_CoordinateOfMouseTip = .X
                Me.m_Y_CoordinateOfMouseTip = .Y
            End With

' wjKeyStep:
Me.m_ReportMouseTipCoordinates_Delegate(Me.X_CoordinateOfMouseTip, Me.Y_CoordinateOfMouseTip)

'MsgBox("me.GetTestingResultAsOneString = " & Me.GetTestingResultAsOneString)

        Else
            Exit Sub
        End If
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function RGBColorOfThePixelPointedByMouseTip() As System.Drawing.Color
        ' OK
        Dim ImageWidth As Integer
        Dim ImageHeight As Integer

Dim BMP As System.Drawing.Bitmap

BMP = Me.m_PictureBox.Image

ImageWidth = BMP.Width
ImageHeight = BMP.Height

Dim C As System.Drawing.Color
'Dim C_DefaultColor As System.Drawing.Color = System.Drawing.Color.Black

        If Me.X_CoordinateOfMouseTip > ImageWidth Or Me.Y_CoordinateOfMouseTip > ImageHeight Then
            'C = C_DefaultColor
            C = Me.m_PictureBox.BackColor
        Else
            C = BMP.GetPixel(Me.X_CoordinateOfMouseTip, Me.Y_CoordinateOfMouseTip)
        End If

Return C

    End Function
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function RGBValueOfThePixelPointedByMouseTip() As Integer
        ' OK
        Return Me.RGBColorOfThePixelPointedByMouseTip.ToArgb
    End Function
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function RValueGValueAndBValueOfThePixelPointedByMouseTip() As String
        ' OK

Dim C As System.Drawing.Color
C = Me.RGBColorOfThePixelPointedByMouseTip

Dim SB As New System.Text.StringBuilder

        With SB
            .Append("R = ")
            .Append(CType(C.R, Integer))
            .Append(vbNewLine)
            .Append("G = ")
            .Append(CType(C.G, Integer))
            .Append(vbNewLine)
            .Append("B = ")
            .Append(CType(C.B, Integer))
            .Append(vbNewLine)
            '.Append(vbNewLine)
            '.Append(vbNewLine)

End With

Return SB.ToString

    End Function
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
End Class ' WJPictureBoxHelper_Y2009M03D22

2009年3月14日星期六

Figure 009 saved on [2009-03-15].PNG

March 15, 2009; 12:28:50 m.m. Taipei Time

Figure 009 saved on [2009-03-15].PNG
Figure 010 saved on [2009-03-15].PNG
Figure 011 saved on [2009-03-15].PNG

Figure 006 saved on [2009-03-15].PNG

March 15, 2009; 12:15:01 m.m. Taipei Time

Figure 006 saved on [2009-03-15].PNG
Figure 007 saved on [2009-03-15].PNG
Figure 008 saved on [2009-03-15].PNG

Handy Tools, i.e. software programs written by WeiJin Tang as of [2009-03-15]

March 15, 2009; 12:04:11 m.m. Taipei Time

Handy Tools, i.e. software programs written by WeiJin Tang as of [2009-03-15]
自動翻譯「Handy Tools, i.e. software programs written by WeiJin Tang (方便的工具，即軟件程序撰WeiJin Tang (湯偉晉) 寫的)」

SoftHuman Word Experts (Release version)[2007-11-27](IR90).zip

WeiJin Tang at SoftHuman 2005 Release version 1.0.1.121 [2009-02-22]
http://teacherweijintang.blogspot.com/2009/03/weijin-tang-at-softhuman-2005-release.html

WeiJin_Tang_at_SoftHuman_1_1_417_(2003_05_21)(IR89).zip

[善解科技_資訊管理員]管理的空白資料庫 (R1.07.24C)(IR90)(2006 03 18).mdb

Keywords:
(美國) 微軟文字專家, 字詞,單字

Figure 001 saved on [2009-03-15].PNG

March 15, 2009; 10:47:10 a.m. Taipei Time

Figure 001 saved on [2009-03-15].PNG
Figure 002 saved on [2009-03-15].PNG
Figure 003 saved on [2009-03-15].PNG
Figure 004 saved on [2009-03-15].PNG
Figure 005 saved on [2009-03-15].PNG

2009年3月13日星期五

Drawing by [Douglas Tang (湯傑堯)][2009-03-12](IR88) (1_of_4)(for BlogSpot)(40PoO).jpg

March 13, 2009; 06:11:19 p.m. Taipei Time

Drawing by [Douglas Tang (湯傑堯)][2009-03-12](IR88) (1_of_4)(for BlogSpot)(40PoO).jpg

2009年3月7日星期六

Gadgets » Ball Clock [2009-03-08-MM-12-05-07]

http://abowman.com/google-modules/ball-clock/

Gadgets » Ball Clock

This Ball Clock gives you a fun and unique way to see what time it is. The balls on the top two ramps represent the minutes and the balls on the bottom ramp represent the hours.

Gadgets » Hamster [2009-03-08]

http://abowman.com/google-modules/hamster/

Gadgets » Hamster

This lively pet hamster will keep you company throughout the day. Watch him run on his wheel, drink water, and eat the food you feed him by clicking your mouse. Click the center of the wheel to make him get back on it.