VB.NET
プログラムによりExcelの制御は、Excelがインストールされていないとできません。
なので、制御プログラムに行く前にチェックする必要があります。
Dim xlApp As Excel.Application
Try
xlApp = New Excel.Application()
Catch ex As Exception
Throw New Exception("Microsoft Office Excelがインストールされていません")
End Try
xlApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
コントロールを実行時に作成する方法を説明します。
'配列を定義する
Private MyTextBoxs As TextBox()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'５個の配列を確保する
Me.MyTextBoxs = New TextBox(4) {}
For no As Integer = 0 To 4
Me.MyTextBoxs(no) = New TextBox()
'プロパティなどを必要に応じて設定します
Me.MyTextBoxs(no).Name = "MyTextBox" & no.ToString()
Me.MyTextBoxs(no).Text = "MyTextBox" & no.ToString()
Me.MyTextBoxs(no).Top = no * 25
'コントロールをフォームに追加する
Me.Controls.Add(Me.MyTextBoxs(no))
'イベントも統合する場合は、イベントハンドラを追加する
AddHandler MyTextBoxs(no).KeyPress, AddressOf MyTextBoxs_KeyPress
Next
Private Sub MyTextBoxs_KeyPress(sender As Object, e As KeyPressEventArgs)
Dim ctrl As TextBox = DirectCast(sender, TextBox)
End Sub