با سلام بعضی وقتها لازم میشه که به کاربر قبل از کلیک کردن روی یک دکمه در مورد کاری که با کلیک روی دکمه انجام میشود هشدار داد البته راههای زیادی برای این کار هست مثل استفاده از یک 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]
کد:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes("Mouse_t_1").Visible = True
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes("Mouse_t_1").Visible = False
End Sub
موفق باشید.
 |
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
پاسخ با نقل قول
علاقه مندی ها (Bookmarks)