Ｐａｇｅ 137 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼TextがActive時にラベルの書式変更 １２３ 02/9/27(金) 11:00 ┗Re:TextがActive時にラベルの書式変更 つん 02/9/27(金) 11:30 ┗Re:TextがActive時にラベルの書式変更 １２３ 02/9/27(金) 14:40 ┗Re:TextがActive時にラベルの書式変更 つん 02/9/27(金) 16:10 ┗完璧です １２３ 02/9/27(金) 17:16 ─────────────────────────────────────── ■題名 ： TextがActive時にラベルの書式変更 ■名前 ： １２３ ■日付 ： 02/9/27(金) 11:00 -------------------------------------------------------------------------
| 初歩的な質問なのですが、 Text1がActiveな時（Focusされている時）に Label1の書式を変更（MS明朝⇒MSゴシック、下線なし⇒下線あり） したいのですが、なかなかできません。 以下の記述ではだめでした。 間違いを指摘して頂きたく お願いいたします。 Private Sub Text1_Activate() With Label1.Font .Name = "ＭＳ ゴシック" .Underline = True End With End Sub |
| １２３さん、こんにちは。 Text1ってのは、Textboxのことですよね？ Activateっちゅーイベントはないので、 Private Sub TextBox1_Enter() With Label1.Font .Name = "ＭＳ ゴシック" .Underline = True End With End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With Label1.Font .Name = "ＭＳ 明朝" .Underline = False End With End Sub これでどーですかー？ |
| ▼つん さん こんにちは。 >Text1ってのは、Textboxのことですよね？ >Activateっちゅーイベントはないので、 そっそうでしたか >Private Sub TextBox1_Enter() > > With Label1.Font > .Name = "ＭＳ ゴシック" > .Underline = True > End With > >End Sub > >Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) > > With Label1.Font > .Name = "ＭＳ 明朝" > .Underline = False > End With > >End Sub > >これでどーですかー？ すみません。説明不足でした。 Text1の脇にLabel1（例えば"氏名"）が並べてあります。 Text1（TextBox）を入力している時に 「今、このTexBoxに入力していますよ」ということが 明確になるように、Label1の文字を明朝体をゴシック体に またアンダーラインで強調したいのです。 したがって、Text2に移った時は、Label2の文字を 強調したいのです。 つまり、TextBoxをFocusしている時（Avtive時）に Labelの文字書式を変えたいのです。 可能でしょうか。 （つんさん せっかく ご回答頂いたのに すみません） |
| どもども・・・ >>Activateっちゅーイベントはないので、 >そっそうでしたか VBEのイベントがリスとされているところ（って何て言うんやろう？）あそこになかったらないです。 >すみません。説明不足でした。 >Text1の脇にLabel1（例えば"氏名"）が並べてあります。 >Text1（TextBox）を入力している時に >「今、このTexBoxに入力していますよ」ということが >明確になるように、Label1の文字を明朝体をゴシック体に >またアンダーラインで強調したいのです。 >したがって、Text2に移った時は、Label2の文字を >強調したいのです。 >つまり、TextBoxをFocusしている時（Avtive時）に >Labelの文字書式を変えたいのです。 >可能でしょうか。 ラベルとテキストボックスが対になってるわけですよね？ こんな感じかなー？ ラベルの名前は、連番にしてくださいね。 Private Sub subTest2(i As Long) With Me.Controls("Label" & i).Font .Name = "ＭＳ 明朝" .Underline = False End With End Sub Private Sub subTest1(i As Long) With Me.Controls("Label" & i).Font .Name = "ＭＳ ゴシック" .Underline = True End With End Sub Private Sub TextBox1_Enter() Call subTest1(1) End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Call subTest2(1) End Sub 以下、TextBox2,3...とあるだけ書いてください。 これで、どーでっしゃろ？ |
| ▼つん さん： ありがとうございました。 完璧です。 >>つまり、TextBoxをFocusしている時（Avtive時）に >>Labelの文字書式を変えたいのです。 >>可能でしょうか。 >Private Sub TextBox1_Enter() > Call subTest1(1) >End Sub TextBoxをFocusしている（Avtive）場合には、 _Enter()でいいんですね。 勉強になりました。 本当にありがとうございました。 |