نمایش عکس با حرکت موس روی باتن (MouseMove)

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • Nima

    • July 2011
    • 385

    نمایش عکس با حرکت موس روی باتن (MouseMove)

    با سلام بعضی وقتها لازم میشه که به کاربر قبل از کلیک کردن روی یک دکمه در مورد کاری که با کلیک روی دکمه انجام میشود هشدار داد البته راههای زیادی برای این کار هست مثل استفاده از یک MsgBox یا با استفاده از گزینه ControlTipText که از پنجره Properties قابل دسترسی می باشد .

    اما یک راه جالب برای این کار استفاده از یک عکس میتونه باشه،که با حرکت موس روی دکمه نمایان میشه برای اینکار به روش زیر عمل میکنیم:


    ابتدا یک Label از قسمت Active X به شیت مورد نظر اضافه میکنیم : ( Developer Tab -> Insert -> label (in Active x

    سپس یک CommandButton از مسیر بالا به شیت اضافه میکنیم اما باید دقت کنید که سایز Label بزرگتر از سایز CommanButton باشه و دکمه حتما روی Label قرار بگیره برای اینکار میتونید ازCut&Paste استفاده کنید

    در این مرحله یک Shape به صفحه اضافه کنید نام انرا تغییر دهید در مثال ما
    Mouse_t_1.

    حالا روی لیبل کلیک راست کرده و گزینه Properties رو انتخاب کنید و دو گزینه زیر رو تغییر بدید:





    حالا با راست کلیک کردن روی شیت و انتخاب View Code کدهای زیر را وارد کنید:


    [/CODE]
    کد:
    [COLOR=#000000][FONT=Arial]Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)[/FONT][/COLOR]
    [COLOR=#000000][FONT=Arial]ActiveSheet.Shapes("Mouse_t_1").Visible = True[/FONT][/COLOR]
    [COLOR=#000000][FONT=Arial]End Sub[/FONT][/COLOR]
    
    
    [COLOR=#000000][FONT=Arial]Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)[/FONT][/COLOR]
    [COLOR=#000000][FONT=Arial]ActiveSheet.Shapes("Mouse_t_1").Visible = False[/FONT][/COLOR]
    [COLOR=#000000][FONT=Arial]End Sub[/FONT][/COLOR]


    موفق باشید.

    فایل های پیوست شده
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************

Working...