Re[2]: Lableのカラー色を文字変数から変更したい - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

■35176 / 2階層)

　Lableのカラー色を文字変数から変更したい

□投稿者/ ま～一般人(8回)-(2022/10/19(Wed) 13:05:52)

いつもありがとうございます

> Lable と誤記っているのはさておき。
はい、間違ったスペルでコピペしたみたいです

> Label1.BackColor = RichTextBox2.BackColor
> の動作を文字列経由で受け渡したい、という状況でしょうか。
ここも、誤記でlabelが正です

Dim pdBackColor = TypeDescriptor.GetProperties(Label1).Find("BackColor", False)
Label2.BackColor = DirectCast(pdForeColor.Converter.ConvertFromInvariantString("255,245,222"), Color)
で上手く行きました

原因は新しく作ったFormの先頭にImports System.ComponentModelが無かった為です。
以前、教えて頂いた時のFormには書いてあったのですが今回それが無かった為に
TypeDescriptorで構文エラーになっていました。
以前色々とやってる中で何処かで見つけて書いていたもので何故必要なのかも理解せずに書いてましたので構文エラーとはならず気づかないまま。あれやこれややってました。。
参照設定だけでは駄目なのでしょうか？
何を基準にImports したら良いのか分からないですね。

それと、またまた棚ぼたの文例ありがとうございます。
凄く勉強になりました。

然しながら
> 永続化を目的として使う場合は、PropertyDescriptor の方が良さそうですが。
> Dim t As Type = RichTextBox1.GetType()
> For Each p As PropertyInfo In t.GetProperties()
のPropertyInfoで構文エラーとなります。要因は上記と同じく何かImportsしなくては？。。。

解決済み!

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[1]: Lableのカラー色を文字変数から変更したい /魔界の仮面弁士	→Re[3]: Lableのカラー色を文字変数から変更したい /魔界の仮面弁士
Lableのカラー色を文字変数から変更したい / ま～ (22/10/18(Tue) 17:28) #35172
`├` Re[1]: Lableのカラー色を文字変数から変更したい / KOZ (22/10/18(Tue) 18:24) #35173
`└` Re[1]: Lableのカラー色を文字変数から変更したい / 魔界の仮面弁士 (22/10/18(Tue) 20:29) #35175
`└` Lableのカラー色を文字変数から変更したい / ま～ (22/10/19(Wed) 13:05) #35176 解決済み! ←Now
`└` Re[3]: Lableのカラー色を文字変数から変更したい / 魔界の仮面弁士 (22/10/19(Wed) 13:58) #35178
`└` Re[4]: Lableのカラー色を文字変数から変更したい / ま～ (22/10/21(Fri) 17:21) #35190 解決済み!
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。
引用部分（行頭に「>」や「■」が付いている部分）が全体の 80% 以上のコメントは投稿できません。

半角カナは使用しないでください。文字化けの原因になります。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- 使用例)
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

投稿前に必ずお読みください

初めて投稿される方は、必ず「書き込みのルールについて（12/4/2更新）」をお読みください。読むのが面倒、ルールを守りたくないという方は、「お気楽掲示板」へ投稿してください。
質問を投稿する場合は、「質問をする際のアドバイス」を参考にしてください。
投稿は、明記のない限り、パブリックドメインになります。
マルチポストされた投稿を報告する時は匿名で投稿し、マルチポストされている場所を併記してください。以下のリンクをクリックしていただくと、自動で下のフォームが埋まりますので、その後「送信」ボタンを押してご投稿ください。
- マルチポストの報告をする
- マルチポストの報告をするが、マルチポスト先の投稿が嫌がらせである（元の投稿者とは別人が行なっている）可能性が高い（投稿日時に開きがあり、こちらの投稿の方が早い場合は、その可能性が高いです）

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No35176に返信(ま～さんの記事) > いつもありがとうございます > >>Lable と誤記っているのはさておき。 > はい、間違ったスペルでコピペしたみたいです > >>Label1.BackColor = RichTextBox2.BackColor >>の動作を文字列経由で受け渡したい、という状況でしょうか。 > ここも、誤記でlabelが正です > > Dim pdBackColor = TypeDescriptor.GetProperties(Label1).Find("BackColor", False) > Label2.BackColor = DirectCast(pdForeColor.Converter.ConvertFromInvariantString("255,245,222"), Color) > で上手く行きました > > 原因は新しく作ったFormの先頭にImports System.ComponentModelが無かった為です。 > 以前、教えて頂いた時のFormには書いてあったのですが今回それが無かった為に > TypeDescriptorで構文エラーになっていました。 > 以前色々とやってる中で何処かで見つけて書いていたもので何故必要なのかも理解せずに書いてましたので構文エラーとはならず気づかないまま。あれやこれややってました。。 > 参照設定だけでは駄目なのでしょうか？ > 何を基準にImports したら良いのか分からないですね。 > > それと、またまた棚ぼたの文例ありがとうございます。 > 凄く勉強になりました。 > > 然しながら >>永続化を目的として使う場合は、PropertyDescriptor の方が良さそうですが。 >>Dim t As Type = RichTextBox1.GetType() >>For Each p As PropertyInfo In t.GetProperties() > のPropertyInfoで構文エラーとなります。要因は上記と同じく何かImportsしなくては？。。。 >
File	/ アップ可能拡張子=> /.gif/.jpg/.png/.zip 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回20KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[0/300KB] 残り:[300KB]
Icon	/ (画像を選択/サンプル一覧)
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!（スレッドを閉じる目的ではチェックしないでください!）
クリエイティブ・コモンズ・ライセンスを Comment の末尾に挿入するには、以下のリンクをクリックしてください。（Javascript で挿入しているだけです。）表示（CC BY） \| 表示-改変禁止（CC BY-ND） \| 表示-継承（CC BY-SA） \| 表示-非営利（CC BY-NC） \| 表示-非営利-改変禁止（CC BY-NC-ND） \| 表示-非営利-継承（CC BY-NC-SA）
プレビュー/　クッキーに保存しない/