C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[4]: textboxのBackcolor設定

分類:[.NET 全般]　

よろしくお願いします。
従来VBAで造っていたものをVB2008に変換していますが、TextboxのBackcolorの所の記述がうまくいきません。

sub XXXX
①　Dim mytextbox As MSForms.TextBox
　　Dim i AS interger
途中略
　　For i = 1 To 42
② 　　　Set mytextbox = Me.Controls("textbox" & i)
　　　If Mat(2, i) = "1" Then
③ 　　　Me.Controls("textbox" & i).BackColor = &HC0C0FF
　　　Else
　　　　Me.Controls("textbox" & i).BackColor = &H80000005
　　　End If
end sub
　上記のプログラムの中で
　①、②、③の記述部分のご指導をお願いします。
　

■No38906 (toto さん) に返信
> よろしくお願いします。
> 従来VBAで造っていたものをVB2008に変換していますが、TextboxのBackcolorの所の記述がうまくいきません。
>
> sub XXXX
> ①　Dim mytextbox As MSForms.TextBox
> 　　Dim i AS interger
> 途中略
> 　　For i = 1 To 42
> ② 　　　Set mytextbox = Me.Controls("textbox" & i)
> 　　　If Mat(2, i) = "1" Then
> ③ 　　　Me.Controls("textbox" & i).BackColor = &HC0C0FF
> 　　　Else
> 　　　　Me.Controls("textbox" & i).BackColor = &H80000005
> 　　　End If
> end sub
> 　上記のプログラムの中で
> 　①、②、③の記述部分のご指導をお願いします。
>

なんかソース見ると①と②は不要な気がするんだけど。
まああえて書けば
①は
Dim mytextbox As TextBox
②は
mytextbox = Me.Contlors("textbox" & i)
となる。

③は
VB.NETにおいてはColor構造体を使用して、色を設定したり参照したりする。
③をVB.NETに変化すると
Me.Controls("textbox" & i) = Color.FromArgb(&HFF, &HC0, &HC0)
となる。
あと、○付けされていない行
Me.Controls("textbox" & i).BackColor = &H80000005
の行では、システムカラーを設定しているので注意しないといけない。
&H80000005はウィンドウの背景色らしい。
この行を素直に変換すると
Me.Controls("textbox" & i).BackColor = System.Drawing.SystemColors.Window
としちゃうところだが、VB.NETにおいてウインドウの背景色はSystem.Drawing.SystemColors.Controlが設定されているので
Me.Controls("textbox" & i).BackColor = System.Drawing.SystemColors.Control
となる。

■No38912 (gtk2k さん) に返信
> ■No38906 (toto さん) に返信
>>よろしくお願いします。
>>従来VBAで造っていたものをVB2008に変換していますが、TextboxのBackcolorの所の記述がうまくいきません。
>>
>>sub XXXX
>> ①　Dim mytextbox As MSForms.TextBox
>> 　　Dim i AS interger
>> 途中略
>> 　　For i = 1 To 42
>> ② 　　　Set mytextbox = Me.Controls("textbox" & i)
>> 　　　If Mat(2, i) = "1" Then
>> ③ 　　　Me.Controls("textbox" & i).BackColor = &HC0C0FF
>> 　　　Else
>> 　　　　Me.Controls("textbox" & i).BackColor = &H80000005
>> 　　　End If
>>end sub
>>　上記のプログラムの中で
>>　①、②、③の記述部分のご指導をお願いします。
> >
>
> なんかソース見ると①と②は不要な気がするんだけど。
> まああえて書けば
> ①は
> Dim mytextbox As TextBox
> ②は
> mytextbox = Me.Contlors("textbox" & i)
> となる。
>
> ③は
> VB.NETにおいてはColor構造体を使用して、色を設定したり参照したりする。
> ③をVB.NETに変化すると
> Me.Controls("textbox" & i) = Color.FromArgb(&HFF, &HC0, &HC0)
> となる。
> あと、○付けされていない行
> Me.Controls("textbox" & i).BackColor = &H80000005
> の行では、システムカラーを設定しているので注意しないといけない。
> &H80000005はウィンドウの背景色らしい。
> この行を素直に変換すると
> Me.Controls("textbox" & i).BackColor = System.Drawing.SystemColors.Window
> としちゃうところだが、VB.NETにおいてウインドウの背景色はSystem.Drawing.SystemColors.Controlが設定されているので
> Me.Controls("textbox" & i).BackColor = System.Drawing.SystemColors.Control
> となる。
早速のご指導ありがとうございます。
　ご指導の通り実施しましたが、③の所で
　NullReferenceExceptionはハンドルされませんでしたのと警告が表示されました。
　どのように修正したらよいか教えていただきたいと思います。

2009/07/27(Mon) 16:36:07 編集(投稿者)
2009/07/27(Mon) 16:27:44 編集(投稿者)

Formにはテキストボックスを(42個)配置してる？
配置しているならテキストボックスのNameプロパティを
"textbox1"～"textbox42"に設定しないと(大文字小文字区別しないからデフォルトでつけられている"TextBox1"でだいじょうぶだけど)

■No38915 (gtk2k さん) に返信
> 2009/07/27(Mon) 16:36:07 編集(投稿者)
> 2009/07/27(Mon) 16:27:44 編集(投稿者)
>
> Formにはテキストボックスを(42個)配置してる？
> 配置しているならテキストボックスのNameプロパティを
> "textbox1"～"textbox42"に設定しないと(大文字小文字区別しないからデフォルトでつけられている"TextBox1"でだいじょうぶだけど)
>
有り難うございました。解決しました。テキストボックスをグループして有ってので、グループ化を止めたら
出来ました。

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[4]: textboxのBackcolor設定

過去ログには書き込み不可