Dim i As Long
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Frame1上にマウスが来た時の処理
For i = 1 To 4
Controls("CommandButton" & i).Font.Bold = False 'commandbuttonからポインターが外れてFrame1の上に来た時に太字をやめる
Next
End Sub
Private Sub UserForm_Initialize()
'Formを読み込み時にCommandButtonの背景やフォント色を指定
For i = 1 To 4
Controls("CommandButton" & i).BackColor = RGB(18, 83, 164) 'とりあえずRGB関数で指定することによって自由度が増す
Controls("CommandButton" & i).ForeColor = &HFFFFFF '文字の色を指定
Next
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'CommandButton1の上にポインタがあるときは太字にする
CommandButton1.Font.Bold = True
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'CommandButton2の上にポインタがあるときは太字にする
CommandButton2.Font.Bold = True
End Sub
Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'CommandButton3の上にポインタがあるときは太字にする
CommandButton3.Font.Bold = True
End Sub
Private Sub CommandButton4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'CommandButton4の上にポインタがあるときは太字にする
CommandButton4.Font.Bold = True
End Sub
コメントを残す