Excel VBA質問箱 IV

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

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


75016 / 76732 ←次へ | 前へ→

【6165】Re:TextBoxのフォーカス時ラベルの書式変更PartII
お礼  123  - 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
1 hits

【5986】TextBoxのフォーカス時ラベルの書式変更PartII 123 03/6/11(水) 13:54 質問
【6014】Re:TextBoxのフォーカス時ラベルの書式変更... ichinose 03/6/11(水) 23:00 回答
【6020】Re:TextBoxのフォーカス時ラベルの書式変更... 123 03/6/12(木) 12:28 発言
【6022】Re:TextBoxのフォーカス時ラベルの書式変更... ichinose 03/6/12(木) 13:23 発言
【6023】Re:TextBoxのフォーカス時ラベルの書式変更... Jaka 03/6/12(木) 13:39 発言
【6165】Re:TextBoxのフォーカス時ラベルの書式変更... 123 03/6/18(水) 9:53 お礼
【6301】今ごろ書いても見ないと思うけど...。 Jaka 03/6/23(月) 9:43 回答
【6313】余計な物が.... Jaka 03/6/24(火) 9:02 発言

75016 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free