Soru Buton üzerine gelince Labelde açıklama yazması

[sirkülasyon]

Userform üzerinde butonun üzerine gelince butonun altında labelde butonun açıklamasını yazması buton üzerinden gidince de kaybolması için nasıl bir kod yazılabilir? Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Bu durumu sadece bir buton için mi talep ediyorsunuz?

 

[sirkülasyon]

Korhan abi aşağıda ki kod ile çözdüm. Allah sizden razı olsun

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label3.Visible = True
End Sub
Private Sub UserForm_Activate()
Me.Label3.Visible = False
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label3.Visible = False
End Sub

 

[Korhan Ayhan]

Sizin verdiğiniz kod ile LABEL Sadece gizlenip görünür hale geliyor. Buton üzerindeki metin LABEL nesnesinde görünmüyor. Aşağıdaki gibi deneyiniz.

Kendinize uyarlarsınız.

Option Explicit

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Label1.Visible = True
    Label1.Caption = Me.CommandButton1.Caption
End Sub

Private Sub UserForm_Initialize()
    Me.Label1.Visible = False
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Label1.Visible = False
End Sub

 

[sirkülasyon]

Korhan Abi Teşekkür Ederim.