کپشن چشمک زن در لیبل

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • rayeagni

    • 2018/04/21
    • 59
    #1

    [حل شده] کپشن چشمک زن در لیبل

    سلام دوستان
    آیا در یوزرفرم امکانش هست کپشن لیبل رو چشمک زنش بکنیم؟
    برچسب ها: هیچ‌کدام
    • M_ExceL

      • 2018/04/23
      • 677
      #2
      نوشته اصلی توسط rayeagni
      سلام دوستان
      آیا در یوزرفرم امکانش هست کپشن لیبل رو چشمک زنش بکنیم؟
      سلام،
      بله امکانش هست، از کد های زیر طبق فایل پیوست استفاده کنید :
      کد:
      Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "color_l"
End Sub
Sub color_l()
With UserForm1.Label1
    If .ForeColor = &H80000012 Then
    .ForeColor = &H80000004
     Else
    .ForeColor = &H80000012
    End If
End With
startTimer
End Sub
Sub endtimer()
Application.OnTime Now + TimeValue("00:00:01"), "color_l", schedule:=False
End Sub
      فایل های پیوست شده
      [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
      [/CENTER]

        کامنت

        • میثم مقدم نیا

          • 2017/03/23
          • 558
          • 41.00
          #3
          نوشته اصلی توسط M_ExceL
          سلام،
          بله امکانش هست، از کد های زیر طبق فایل پیوست استفاده کنید :
          کد:
          Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "color_l"
End Sub
Sub color_l()
With UserForm1.Label1
    If .ForeColor = &H80000012 Then
    .ForeColor = &H80000004
     Else
    .ForeColor = &H80000012
    End If
End With
startTimer
End Sub
Sub endtimer()
Application.OnTime Now + TimeValue("00:00:01"), "color_l", schedule:=False
End Sub
          سلام
          استاد عالی بود
          یه سوال دیگه من در مورد این موضوع داشتم
          من خواستم برای خارج شدن از یک نواختی از چندین رنگ در این کد استفاده کنم
          ولی نتونستم رنگ دیگه ای جز دوتا رنگ مشخص شده اضافه کنم
          فقط تونستم اون رنگهای های تعریف شده شمارا تغییر بدم
          چطوری چندتا رنگ دیگه هم به اون دوتا رنگ قبلی اضافه کنم
          ممنون میشم اگه راهنمایم کنید
          [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

            کامنت

            • M_ExceL

              • 2018/04/23
              • 677
              #4
              نوشته اصلی توسط mmn1000
              سلام
              استاد عالی بود
              یه سوال دیگه من در مورد این موضوع داشتم
              من خواستم برای خارج شدن از یک نواختی از چندین رنگ در این کد استفاده کنم
              ولی نتونستم رنگ دیگه ای جز دوتا رنگ مشخص شده اضافه کنم
              فقط تونستم اون رنگهای های تعریف شده شمارا تغییر بدم
              چطوری چندتا رنگ دیگه هم به اون دوتا رنگ قبلی اضافه کنم
              ممنون میشم اگه راهنمایم کنید
              سلام، خواهش میکنم
              کد های زیر رو جایگزین کنید :
              کد:
              Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "color_l"
End Sub
Sub color_l()
With UserForm1.Label1
    If .ForeColor = &H80000012 Then
    .ForeColor = &H80000005
     ElseIf .ForeColor = &H80000005 Then
    .ForeColor = &H8000000D
     ElseIf .ForeColor = &H8000000D Then
    .ForeColor = &HFF&
     Else
    .ForeColor = &H80000012
    End If
End With
startTimer
End Sub
Sub endtimer()
Application.OnTime Now + TimeValue("00:00:01"), "color_l", schedule:=False
End Sub
              [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
              [/CENTER]

                کامنت

                • rayeagni

                  • 2018/04/21
                  • 59
                  #5
                  نوشته اصلی توسط M_ExceL
                  سلام،
                  بله امکانش هست، از کد های زیر طبق فایل پیوست استفاده کنید :
                  کد:
                  Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "color_l"
End Sub
Sub color_l()
With UserForm1.Label1
    If .ForeColor = &H80000012 Then
    .ForeColor = &H80000004
     Else
    .ForeColor = &H80000012
    End If
End With
startTimer
End Sub
Sub endtimer()
Application.OnTime Now + TimeValue("00:00:01"), "color_l", schedule:=False
End Sub



                  دست شما درد نکنه. ..

                    کامنت

                    قبلی template بعدی
                    چند لحظه..