コントロール配列（みたい）なのを実現するには。 (ID:141051)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

新しいプロジェクトで

Textbox  Ichitasen11からIchitasen18  まで8個
NumericUpDown3 をひとつ

作って実行したらエラーも出ずにVisible設定はうまく動作している。
だから
>ここがおかしいのだろうと思いますが、・・・
ということはない。

'引数indexに番号を受け取って、その番号が付いたTxtichitasenコントロールを返す
    Private Function Txtichitasen(ByVal index As Integer) As TextBox
        Return DirectCast(Me.Controls("Ichitasen" & index.ToString), TextBox)
    End Function

Private Sub NumericUpDown3_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
        Dim i As Integer = 1
        If NumericUpDown3.Value = 1 Then
            For i = 1 To 1 '0  <--8個しか作ってないのでループはなし
                Txtichitasen(i * 10 + 1).Visible = True
                Txtichitasen(i * 10 + 2).Visible = False
                Txtichitasen(i * 10 + 3).Visible = False
                Txtichitasen(i * 10 + 4).Visible = False
                Txtichitasen(i * 10 + 5).Visible = False
                Txtichitasen(i * 10 + 6).Visible = False
                Txtichitasen(i * 10 + 7).Visible = False
                Txtichitasen(i * 10 + 8).Visible = False
            Next i
        End If
    End Sub

しかし、80個(以上?)のTextboxを使うこと自体が常識はずれだな。

←解決時は質問者本人がここをチェックしてください。

戻る