2016年08月01日

VB.NET備忘録/デリゲート、匿名メソッド、定義済みデリゲート

VB.NETにおけるデリゲート、匿名メソッド、定義済みデリゲートの書き方が分かるあんちょこ。

フォームForm1にボタンButton1を置いて、ボタンのクリックイベントを作ったら、以下のソースを貼り付け。
戻り値がいらないなら、Function/Funcの代わりにSub/Actionを使う。
Public Class Form1
    'デリゲート型の変数
    Private Delegate Function delVar(ByVal argStr As String) As Boolean

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        '(1)デリゲート型の変数を使ってPopupMes()を呼び出す方法
        Dim myFunc1 As delVar = New delVar(AddressOf PopupMes)
        myFunc1("おはよう")

        '(2)デリゲート型の変数と匿名メソッドを使う方法
        Dim  myFunc2 As delVar = Function(ByVal argStr As String)
                                     MessageBox.Show("匿名メソッド:" & argStr)
                                     Return True
                                 End Function
        myFunc2("こんにちは")

        '(3)定義済みデリゲートを使ってPopupMes()を呼び出す方法
        Dim myFunc3 As Func(Of String, Boolean) = AddressOf PopupMes
        myFunc3("お晩です")

        '(4)定義済みデリゲートと匿名メソッドを使う方法
        Dim myFunc4 As Func(Of String, Boolean) = Function(ByVal argStr As String)
                                                      MessageBox.Show("定義済みデリゲート:" & argStr)
                                                      Return True
                                                  End Function
        myFunc4("Hello!")

    End Sub

    Private Function PopupMes(ByVal argStr As String) As Boolean
        MessageBox.Show("ポップアップメッセージを表示させる関数:" & argStr)
        Return True
    End Function
End Class
posted by Hiro at 22:06| Comment(7) | プログラム
この記事へのコメント
テ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ーnerovisionテ」ニ陳敕」ニ陳シテ」窶堋ソテ」ニ停禿」ニ陳ォテ」ニ陳静」ニ陳シテ」窶堋クテ」ニ陳ァテ」ニ陳ウ9テ」ニ停「テ」ニ陳ォテ」窶堋キテ」ニ陳ェテ」窶堋「テ」ニ陳ォテ」窶堋ュテ」ニ陳ゥテ」ニ陳シ,Macro Express Pro4211テ」ニ陳敕」ニ陳シテ」窶堋ソテ」ニ停禿」ニ陳ォ,issテ」ニ停氾」ニ陳ュテ」窶堋ィテ」ニ椎禿」ニ陳ェテ」ニ陳・テ」ニ陳シテ」窶堋キテ」ニ陳ァテ」ニ陳ウ2テ」窶堋ッテ」ニ陳ゥテ」ニ停禿」窶堋ィテ」ニ停。テ」窶堋」テ」窶堋キテ」ニ陳ァテ」ニ陳ウ109
60a1537d4d byawenl
https://colab.research.google.com/drive/1EBaZUlDqIO50jZq4Bx3q0At1So67UWjx
https://colab.research.google.com/drive/1kZ9SBYydp76DkC9JjbAIaiujQ06oycn7
https://colab.research.google.com/drive/17L_yC9Q6ZQJd7w3x1PX8Zj7Sp_8A8nhM
https://colab.research.google.com/drive/1G-2n4XoqhxyjJ58HgUO-WkrA5sdzywAc
https://colab.research.google.com/drive/1gerl6H9tq0PGfIobcx3BgnlG-PKsv4Aa


http://www.moundstreetconstruction.com/2011/07/beach-hotels-vacation-paradise/
Posted by byawenl at 2022年08月07日 07:14
テ」ニ陳�テ」窶堋ァテ」ニ陳ェテ」ニ陳シrs6700USBテ」ニ停ーテ」ニ陳ゥテ」窶堋、テ」ニ陳静」ニ陳シテ」ツ�ツョテ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ー,Vir2 Acoustic Legends Keygen Torrent,テ」ニ椎クテ」窶堋ケテ」ニ塚�テ」ニ陳ャテ」窶堋ケテ」ツ�ナ津、ツサ窶「テ」ツ⇒�テ」窶壺ケテッツシヒ�1976テッツシ窶ーDVD Rip.avi 6
60a1537d4d elewest
https://colab.research.google.com/drive/1IqkZToXApRwiTRpWeSLJH_SQ6iQBQzbZ
https://colab.research.google.com/drive/1js3miGPsxCWTUjACs-d_0gnhn_h2zaW_
https://colab.research.google.com/drive/120s0GtZXYkKukwuqYYC4BvRVOVUZwfdN
https://colab.research.google.com/drive/1gQQqySfM8u_IjXCKWlbE_w00vSte3HjP
https://colab.research.google.com/drive/19JRZo0-Us8urwZOQHWQTLeZZraUpVUt4


https://concise.ng/thintalltony-urges-fans-vote-bisola/
Posted by elewest at 2022年08月07日 15:31
テ」ニ椎禿」ニ陳シテ」ニ陳ウテ」窶堋ソテ」窶堋ヲテ」ニ陳ウv1.1.1テ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッ,テ」ニ停。テ」窶堋」テ」ニ陳ウ1507017,MS.OFFICE.LANGUAGE.PACK.2007.PORTUGUESEテ」窶堋キテ」ニ陳ェテ」窶堋「テ」ニ陳ォテ」窶堋ュテ」ニ陳シ
60a1537d4d condev
https://colab.research.google.com/drive/1Dmv5ZUbJMaL6mAtZ9yKPFkSXAwe6AAyp
https://colab.research.google.com/drive/18OLRTNcEUW8dNXABK0iDxrHqugqFQeoQ
https://colab.research.google.com/drive/1XLL26vtkUP_JMUE1ZJGiCFwNEwS7fgPd
https://colab.research.google.com/drive/1YDCuJWjEgmyEJT6UYVwwybfAO6hv50JP
https://colab.research.google.com/drive/1bOeYN1i5MAw6r1NSCQj5N9fTkOHMKETd


https://www.amcham.webfootprint.co.za/amchams-services/
Posted by condev at 2022年08月07日 19:11
Antamedia BillingHotspotテ」ニ停「テ」ニ陳ォテ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテ」窶堋ステ」ニ停「テ」ニ塚�テ」窶堋ヲテ」窶堋ァテ」窶堋「,テ」ニ塚�テ」窶堋・テ」ニ陳シテ」ニ陳テ」ニ陳ャテ」窶堋、テ」ニ停ぎテ」ニ陳シテッツシナ。SE DLCS RePack R.G Mechanics NASWARI ZOHAIBDRMテァ窶楪。テヲ窶凪┐,Mojosoft BusinessCards MX474テ・ツ、ナ。ティツィ竄ャティツェナセテ・ツッツセテ・ツソナ禿」ニ陳敕」ニ陳シテ」窶堋ソテ」ニ停禿」ニ陳ォ
60a1537d4d helxan
https://colab.research.google.com/drive/1Xi_Ly37VNUmp9penowjT2ZNC-E3PTHom
https://colab.research.google.com/drive/1kzcgN25CDwEBLX56ZBPXIQt5s7m0eK-n
https://colab.research.google.com/drive/1kGvttPmFdWFZDR8q6T6XIklWAs-FLU-L
https://colab.research.google.com/drive/1X1ZsUQzgLa_Ri09C6XnqZUYW4trwvdXL
https://colab.research.google.com/drive/1lzZyKq8ov6Q5nx4fSWyiAwHCR0xAEZSZ


https://www.trickeri.org/component/kide/-/index.php
Posted by helxan at 2022年08月07日 20:23
cd le maitre de l \\ 'olympezeusテ」窶壺凖」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッテ」ツ≫氾」ツ�ツェテ」ツ≫�,Eca Vrt Dvd2009テ」窶堋キテ」ニ陳ェテ」窶堋「テ」ニ陳ォ12,Autodata 2005Srpskiテァ窶楪。テヲ窶凪┐テ」ニ停ぎテ」窶堋ヲテ」ニ陳ウテ」ニ陳ュテ」ニ陳シテ」ニ停ーWindows764テ」ニ停愿」ニ槌津」ニ塚�テヲ窶コツエテヲ窶督ー
60a1537d4d ichasear
https://colab.research.google.com/drive/1eDYjkTNyExu8nke8srko2LBJ5u9Cm755
https://colab.research.google.com/drive/1KZNL720ZfHQj7WVlMJKyJsQlIENf0ArM
https://colab.research.google.com/drive/18_wNvk87AzxKQuzojRgipdxiBYM3x4q-
https://colab.research.google.com/drive/1_C6oZsLgla0VeTp3FE219aQ5Cin9oTi5
https://colab.research.google.com/drive/1ULN07T5R26cDmTBaTgjcvtQmFVD4GoLJ


http://timetestednews.com.ng/be-joyful-by-nancy-oyetade/
Posted by ichasear at 2022年08月07日 23:57
SafebytesCrackテ」ツ�ツォテ」窶塒�テ」窶壺ケテゥツ≫ケティツサツ「テヲ窶敖ッテヲツ渉エテ」ニ陳ゥテ」窶堋、テ」窶堋サテ」ニ陳ウテ」窶堋ケテ」窶堋ュテ」ニ陳シ,Vcds 15.7.4 Keygen.epub,テ」ニ椎セテ」ニ陳ォテ」ニ陳�テ」ニ陳�テ」ニ陳」テ」ニ陳シテ」ニ塚�テ」窶堋ッテ」ニ陳ゥテ」ニ槌津」窶堋ッ11l
60a1537d4d faysab
https://colab.research.google.com/drive/1kBGRQ3dFHxmhwHXGcolqo9VdBygQFN4m
https://colab.research.google.com/drive/1pqRwev0XwZXs7dGp4J4QWpgaQeYiw7Au
https://colab.research.google.com/drive/16l8wUDIENAsrFTCl3WiA74QQqeQDs3GA
https://colab.research.google.com/drive/1ZfVxG4zTCh1x-Eb7GmfcLVN1z5DMjbkI
https://colab.research.google.com/drive/1JCrn_PR2C2BCkA7b_X0ev-r-RVy8hG_9


http://mm.fe.unp.ac.id/news/panduan-pendaftaran-wisuda-unp-juni-2020-0?page=47#comment-585160
Posted by faysab at 2022年08月08日 02:42
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント: