IF文
FOR文
Usingステートメント

ArrayListを利用
IEnumerableを実装
Dictionaryを利用
StringDictionaryを利用
Stack(スタック)
Queue(キュー)
Generic List

小文字⇔大文字の変換
文字列をある文字列で分割

日付関係
現在日付と時刻の取得
明日、来月の日付の取得
月末の日付の取得
日付チェック

ファイル関係
ファイル選択ダイアログ
ファイル読み込み
CSVファイル読み込み
XmlSerializerを利用
GZip圧縮
ファイル情報の取得
フォルダ配下のファイル情報取得

MySQLに接続
ADO.NetでSQLServerに接続

スレッドを作成
ManagementObjectSearcherを利用

ドライブ情報を取得

フォーム関係
チェックボックス
メニューバーの作成
DataGridViewのDataSourceに配置
Timerコントロール
タスクバーにアイコンを表示
プログレスバーを表示
閉じるボタンの処理
透過度の変更
ListBoxにドラック＆ドロップ
WebBrowserコントロール
コントロールをマウスで移動
MDIアプリケーション
フォームに線を引く

WebAPI
Webリクエスト送信
Google Geocoding APIを呼び出す
Google Static Maps APIを呼び出す


正規表現
「^」について
「$」について
「+」について
「*」について
「.」について
「|」について
「{n}」について
「{n，m}」について
「[]」について

トップ

IEnumerableを実装＠VB.Net

IEnumerableを実装します。
IEnumerableインターフェースは、ArrayListなどで実装されています。

●IEnumeratorの実装
まず、最初にIEnumeratorを実装したクラスを作成します。
MoveNext、Current、Resetを実装する必要があります。

Stringの配列を保持し、配列の値を取得するクラスを作成します。

MoveNext
現在の位置を次の位置に移動させる処理を実装します。
移動が可能ならばTrue、不可能ならばFalseを返します。

Current
現在の位置の配列の値を返します。

Reset
位置を前に戻します。

Imports System.Collections Public Class MyEnum : Implements IEnumerator     Private item() As String     Private count As Integer = -1     Public Sub New(ByVal item() As String)         Me.item = item     End Sub     Public Function MoveNext() As Boolean Implements IEnumerator.MoveNext         count = count + 1         Return (count < item.Length)     End Function     Public ReadOnly Property Current() As Object Implements IEnumerator.Current         Get             Return item(count)         End Get     End Property     Public Sub Reset() Implements IEnumerator.Reset         count = count - 1     End Sub End Class

●IEnumerableの実装
次に、IEnumerableを実装したクラスを作成します。
GetEnumeratorを実装する必要があります。

Stringの配列を元に、IEnumeratorを実装したクラスを生成し、
GetEnumeratorにて、生成したオブジェクトを返します。

Imports System.Collections Public Class MyCollection : Implements IEnumerable Private myEnum As MyEnum Public Sub New(ByVal item() As String) myEnum = New MyEnum(item) End Sub Public Function GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator Return myEnum End Function End Class

●呼び出し
IEnumerableを実装したクラスを生成します。

生成する為に、配列を作成します。
配列を元に、クラスを生成しまｓ。

生成したオブジェクトをFor Eachでループし、
データを取り出します。

Dim myCollection As MyCollection Dim item() As String = New String() { _             "A", "B", "C", "D", "E"} 'IEnumerableを実装したクラスを生成 myCollection = New MyCollection(item) Dim str As String For Each str In myCollection     Console.WriteLine(str) Next