Testing Mo

從實踐中學習

2008-11-13

LoadRadioButton

  • 1400
  • 0

摘要:LoadRadioButton

 

    Private Sub LoadRadioButton(ByVal psValue As String, ByVal pchk As RadioButton)
        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