Re[2]: TEXTBOXのプロパティを文字列に - DOBON.NETプログラミング道掲示板

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

■35163 / 2階層)

　TEXTBOXのプロパティを文字列に

□投稿者/ ま～一般人(2回)-(2022/10/11(Tue) 16:59:51)

　関連する内容で追加の質問をさせて頂きたいのですがお手数ですが宜しくお願いします。
参考にしてFont以外の復元（色とか）もトライして見たのですが上手くいきません
Labelには文字列として値は入っています。

'この宣言を理解してない所があります。（Label１３は適当に書いてみました。これが要因？）
Dim pdFont = TypeDescriptor.GetProperties(Label13).Find("Font", False)
Dim pdBackColor = TypeDescriptor.GetProperties(Label13).Find("BackColor", False)
Dim pdForeColor = TypeDescriptor.GetProperties(Label13).Find("ForeColor", False)

'各設定を文字列として保存
Label13.Text = pdFont.Converter.ConvertToInvariantString(TextBox1.Font)
Label14.Text = pdBackColor.Converter.ConvertToInvariantString(TextBox1.BackColor)
Label15.Text = pdForeColor.Converter.ConvertToInvariantString(TextBox1.ForeColor)

'文字列として保存された Fontなどの値を、実際のオブジェクトに復元したい
TextBox2.Font = DirectCast(pdFont.Converter.ConvertFromInvariantString(Label13.Text), Font)

’　　　↑ここまでは上手く行ってます。問題はFont以外です↓（文法が間違っているみたいです）

TextBox2.BackColor = DirectCast(pdBackColor.Converter.ConvertFromInvariantString(Label14.Text), BackColor)
TextBox2.ForeColor = DirectCast(pdForeColor.Converter.ConvertFromInvariantString(Label15.Text), ForeColor)

宜しくお願いします

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[1]: TEXTBOXのプロパティを文字列に /魔界の仮面弁士	→Re[3]: TEXTBOXのプロパティを文字列に /魔界の仮面弁士
TEXTBOXのプロパティを文字列に / ま～ (22/10/07(Fri) 16:49) #35159
`├` Re[1]: TEXTBOXのプロパティを文字列に / 魔界の仮面弁士 (22/10/08(Sat) 15:23) #35161
`│├` Re[2]: TEXTBOXのプロパティを文字列に / まー (22/10/11(Tue) 12:53) #35162
`│└` TEXTBOXのプロパティを文字列に / ま～ (22/10/11(Tue) 16:59) #35163 ←Now
`│ └` Re[3]: TEXTBOXのプロパティを文字列に / 魔界の仮面弁士 (22/10/11(Tue) 19:04) #35164
`│ └` Re[4]: TEXTBOXのプロパティを文字列に / まー (22/10/13(Thu) 11:10) #35166
`└` Re[1]: TEXTBOXのプロパティを文字列に / KOZ (22/10/08(Sat) 14:26) #35160
`└` Re[2]: TEXTBOXのプロパティを文字列に / ま～ (22/10/18(Tue) 17:17) #35171 解決済み!
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。
引用部分（行頭に「>」や「■」が付いている部分）が全体の 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文字以内) ■No35163に返信(ま～さんの記事) > 　関連する内容で追加の質問をさせて頂きたいのですがお手数ですが宜しくお願いします。 > 参考にしてFont以外の復元（色とか）もトライして見たのですが上手くいきません > Labelには文字列として値は入っています。 > > 'この宣言を理解してない所があります。（Label１３は適当に書いてみました。これが要因？） > Dim pdFont = TypeDescriptor.GetProperties(Label13).Find("Font", False) > Dim pdBackColor = TypeDescriptor.GetProperties(Label13).Find("BackColor", False) > Dim pdForeColor = TypeDescriptor.GetProperties(Label13).Find("ForeColor", False) > > '各設定を文字列として保存 > Label13.Text = pdFont.Converter.ConvertToInvariantString(TextBox1.Font) > Label14.Text = pdBackColor.Converter.ConvertToInvariantString(TextBox1.BackColor) > Label15.Text = pdForeColor.Converter.ConvertToInvariantString(TextBox1.ForeColor) > > '文字列として保存された Fontなどの値を、実際のオブジェクトに復元したい > TextBox2.Font = DirectCast(pdFont.Converter.ConvertFromInvariantString(Label13.Text), Font) > > ’　　　↑ここまでは上手く行ってます。問題はFont以外です↓（文法が間違っているみたいです） > > TextBox2.BackColor = DirectCast(pdBackColor.Converter.ConvertFromInvariantString(Label14.Text), BackColor) > TextBox2.ForeColor = DirectCast(pdForeColor.Converter.ConvertFromInvariantString(Label15.Text), ForeColor) > > 宜しくお願いします
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）
プレビュー/　クッキーに保存しない/