タイトル : Re: インデックスが配列の境界外です。 投稿日 : 2009/10/17(Sat) 12:02 投稿者 : オショウ
> このエラーが発生しない為に修正を行いたいです。 > 学習した方が良い項目やコードの指摘を教えて頂きたいです。 > よろしくお願いします。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AddMainList("ファイル(&F)", "編集(&E)", "表示(&V)", "設定(&S)", "ヘルプ(&H)") End Sub Public Sub AddMainList(ByVal ParamArray MenuName() As String) Dim item() As ToolStripMenuItem MenuStrip1.Items.Clear() item = New ToolStripMenuItem(MenuName.GetUpperBound(0)) {} For i As Integer = 0 To MenuName.GetUpperBound(0) item(i) = New ToolStripMenuItem item(i).Text = MenuName(i) Next MenuStrip1.Items.AddRange(item) MenuStrip1.Refresh() End Sub こういう結果が欲しいのでしょうか? ※ クラスでの生成はしてません・・・ あしからず。 以上。 |