Testing Mo

從實踐中學習

2008-11-13

LoadCheckBox

  • 1525
  • 0

摘要:LoadCheckBox

 

    Private Sub LoadCheckBox(ByVal psValue As String, ByRef pchk As CheckBox)
        Try
            If psValue = BLANK Then Exit Sub

            Select Case psValue
                Case True
                    pchk.Checked = True
                Case False
                    pchk.Checked = False
                Case Else

            End Select
        Catch Err As Exception
            Call ErrHandler(Err.Message, APP_NAME)

        End Try
    End Sub

 

 

 

------------------

熱愛生命 喜愛新奇 有趣的事物

 

過去 是無法改變
將來 卻能夠創造

 

希望使大家生活更便利
世界更美好

 

a guy who loves IT and life