No35163 の記事表示 - DOBON.NETプログラミング道掲示板

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

No35163 の記事

■35163 / )

　Re[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)

宜しくお願いします

違反を報告