none
程式疑問 RRS feed

  • 問題

  • 請問下面程式碼的意思是?謝謝

    Dim updateDelegate As New  myDelegate(AddressOf updateMessageLog)

    Public Delegate Sub myDelegate(ByVal str As String)
    Public Sub updateMessageLog(ByVal str As String)
            If str.Length > 0 Then
                TextBox2.Text += "-->" & str            
            End If
     End Sub

     

    2010年4月15日 上午 01:37

解答

  • Public Delegate Sub myDelegate(ByVal str As String) <--宣告一個委派稱為 myDelegate

    Public Sub updateMessageLog(ByVal str As String) <---反正就是個函式
            If str.Length > 0 Then
                TextBox2.Text += "-->" & str            
            End If
     End Sub

     

    Dim updateDelegate As New  myDelegate(AddressOf updateMessageLog) <--以updateMessageLog Method建立一個myDelegate委派執行個體

    詳情請參閱MSDN文件庫

    [Visual Basic 語言概念 Visual Basic 中的委派 ]

    [Delegate 類別 ]


    MSDN 文件庫很重要
    回應幫助你的人是一種禮貌, 良好的禮貌有助於激發大家對你問題回應的熱情
    進步的人會找尋自己程式中的缺點,半桶水則把自己程式的錯誤推到不相干事物的身上
    2010年4月15日 上午 02:38

所有回覆

  • Public Delegate Sub myDelegate(ByVal str As String) <--宣告一個委派稱為 myDelegate

    Public Sub updateMessageLog(ByVal str As String) <---反正就是個函式
            If str.Length > 0 Then
                TextBox2.Text += "-->" & str            
            End If
     End Sub

     

    Dim updateDelegate As New  myDelegate(AddressOf updateMessageLog) <--以updateMessageLog Method建立一個myDelegate委派執行個體

    詳情請參閱MSDN文件庫

    [Visual Basic 語言概念 Visual Basic 中的委派 ]

    [Delegate 類別 ]


    MSDN 文件庫很重要
    回應幫助你的人是一種禮貌, 良好的禮貌有助於激發大家對你問題回應的熱情
    進步的人會找尋自己程式中的缺點,半桶水則把自己程式的錯誤推到不相干事物的身上
    2010年4月15日 上午 02:38
  • 謝謝那麼詳細的回答

    我在研究一下

     

    2010年4月15日 上午 03:34