Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75022 / 76738

←次へ　｜　前へ→


	【6165】Re:TextBoxのフォーカス時ラベルの書式変更PartII

１２３ - 03/6/18(水) 9:53 -


	引用なし

	パスワード

▼Jaka さん,ichinose　こんにちは。

お返事が遅れてしまいまして失礼致しました。

いろいろとありがとうございました。

いろいろとやってみましたが、ExitとKeydwonでは
Exitの方が有効になってしまうので、
ExitでそのTextBoxに対応するLabelのNameを変数に代入して
次のTextBoxでMouseDownした時に変数に代入したLabelの書式を
変更するようにしました。
また、TextBoxで、KeyCode 13 または9を KeyDownした時
TabIndexで指定してある次のTextBoxに対応するLabelの書式を
変更するようにしました。
以下のものをTextBox数分記述しました。
多分無駄なことをしているとは思いますが、私の知識では
これが限界でした。

標準モジュール------------
Sub L1通常()
UserForm.Label1.Font.Underline = False
UserForm.Label1.ForeColor = &H80000012
End Sub

Sub L1選択()
UserForm.Label1.Font.Underline = True
UserForm.Label1.ForeColor = &HC0&
End Sub

Sub L2通常()
UserForm.Label2.Font.Underline = False
UserForm.Label2.ForeColor = &H80000012
End Sub

Sub L2選択()
UserForm.Label2.Font.Underline = True
UserForm.Label2.ForeColor = &HC0&
End Sub

UserFormのモジュール----------
Dim 前ctl1 As String,前ctl2 As String

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Then
L1通常
L2選択
End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
前ctl1 = "Label1"
前ctl2 = "Label101"
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
Controls(前ctl1).Font.Underline = False
Controls(前ctl1).ForeColor = &H80000012
Controls(前ctl2).Font.Underline = False
Controls(前ctl2).ForeColor = &H80000012
L1選択
L101選択
End Sub

0 hits

▼

【5986】TextBoxのフォーカス時ラベルの書式変更PartII １２３ 03/6/11(水) 13:54