イベント †AddHandler Me.Button1.Click, Function(x, y) MessageBox.Show("ラムダ") AddHandler Me.Button1.Click, Function(x, y) MessageBox.Show("ラムダ") Return False '値をリターンする必要がある End Function AddHandler Me.Button1.Click, Sub(x, y) MessageBox.Show("ラムダ") AddHandler Me.Button1.Click, Sub(x, y) MessageBox.Show("ラムダ") End Sub Any †'Imports System.Linq 'がソースファイルの一番上に書かれているものとする '検索元の配列を作成 Dim ary As String() = New String() {"b", "aaaaa", "cc"} '長さが1の文字列を探す If ary.Any(Function(s) s.Length = 1) Then Console.WriteLine("見つかりました。") End If 月額たった 1,050円で始められる本格的なお店のホームページ! コメント: |