タイトル : Re^3: VB2005の配列の扱いについて 投稿日 : 2007/09/12(Wed) 20:43 投稿者 : ダンボ
これはこれで現在のご期待に添えるとは思いますが、もっと根本的なアプローチを 考え直した方が良いのではないでしょうか? わざわざCheckBoxStateを100個も取って保存するより必要な度に該当するCheckBoxを 見に行けばよいだけだし。 いやその前にCheckBoxを100個もデザイナーで貼り付けていく方が非人道的で。。。 CheckBoxの自動生成を検討したほうが良いのでは。(まあ移行だから) Option Strict On Option Explicit On Public Class Form1 Private CheckBoxState(99) As System.Windows.Forms.CheckState Private Sub CopyCheckState() For Each CNT As Control In Me.Controls If TypeOf CNT Is CheckBox Then If InStr(CNT.Name, "CheckBox") > 0 Then Dim SubNum As String = CNT.Name.Substring("CheckBox".Length) Dim Index As Integer If Integer.TryParse(SubNum, Index) Then CheckBoxState(Index - 1) = CType(CNT, CheckBox).CheckState End If End If End If Next End Sub End Class |