ساخت یوزر فرم شفاف

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • Imanfy

    • 2011/07/16
    • 50
    • 56.00
    #1

    ساخت یوزر فرم شفاف

    سلام به همه ی اساتید
    میخواستم ببینم میشه با استفاده از دستورات vba از طریق msgbox یا userform روشی رو انجام داد که یک پیام بدون پس زمینه نمایش داده بشه و بعد از ۲ ثانیه خودش بسته بشه
    می دونم که اگه از userform استفاده کنیم و دستور زیر رو توی کدهاش قرار بدیم بعد از ۲ ثانیه بسته میشه

    Private Sub UserForm_Activate()
    Application.Wait (Now + TimeValue("0:00:02"))
    bytOpacity = 192 ' variable keeping opacity setting
    Unload Me
    End Sub
    برچسب ها: هیچ‌کدام
    • Imanfy

      • 2011/07/16
      • 50
      • 56.00
      #2
      نوشته اصلی توسط Imanfy
      سلام به همه ی اساتید
      میخواستم ببینم میشه با استفاده از دستورات vba از طریق msgbox یا userform روشی رو انجام داد که یک پیام بدون پس زمینه نمایش داده بشه و بعد از ۲ ثانیه خودش بسته بشه
      می دونم که اگه از userform استفاده کنیم و دستور زیر رو توی کدهاش قرار بدیم بعد از ۲ ثانیه بسته میشه

      Private Sub UserForm_Activate()
      Application.Wait (Now + TimeValue("0:00:02"))
      bytOpacity = 192 ' variable keeping opacity setting
      Unload Me
      End Sub

      یک هفته گذشت و بدون جواب؟؟؟

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67
          #3
          سلام
          در مورد زمان که هیچ قایل حله و به نظر خوتون هم حل کردید....!
          در مورد این که پیش زمینه نداشته باشه!...بیشتر توضیح بدید... شفافیت با پیش زمینه تفاوت داره.!
          این که transparency یوزرفرم رو هم بخواهیم کمتر کنیم امکانش هست البته به طور کل با همه ملحقاتش کم و زیاد میشه! با سرچ در نت می تونید نمونه هایی از این کار رو ببنید!
          نمونه ای که خروجی رو نشون بده بذارید شاید زود تر به نتیجه برسیم!
          [B][SIZE=1]بخش امضاء :
          [/SIZE][/B][LEFT]
          [CODE]
          Sub Macro()
          ActiveCell = "IY" & Right(Application.Name, 5)
          With ActiveCell.Characters(Start:=2, Length:=1).Font
          .Name = "Webdings"
          .Color = 255
          End With
          End Sub
          [/CODE]
          [/LEFT]

            کامنت

            • rahi_feri

              • 2014/08/08
              • 524
              • 94.67
              #4
              اینم چک کنید...!
              زمانش 5 ثانیه!
              فایل های پیوست شده
              [B][SIZE=1]بخش امضاء :
              [/SIZE][/B][LEFT]
              [CODE]
              Sub Macro()
              ActiveCell = "IY" & Right(Application.Name, 5)
              With ActiveCell.Characters(Start:=2, Length:=1).Font
              .Name = "Webdings"
              .Color = 255
              End With
              End Sub
              [/CODE]
              [/LEFT]

                کامنت

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

                  • 2017/03/23
                  • 558
                  • 41.00
                  #5
                  نوشته اصلی توسط Imanfy
                  سلام به همه ی اساتید
                  میخواستم ببینم میشه با استفاده از دستورات vba از طریق msgbox یا userform روشی رو انجام داد که یک پیام بدون پس زمینه نمایش داده بشه و بعد از ۲ ثانیه خودش بسته بشه
                  می دونم که اگه از userform استفاده کنیم و دستور زیر رو توی کدهاش قرار بدیم بعد از ۲ ثانیه بسته میشه

                  Private Sub UserForm_Activate()
                  Application.Wait (Now + TimeValue("0:00:02"))
                  bytOpacity = 192 ' variable keeping opacity setting
                  Unload Me
                  End Sub
                  با کد Vba میشه یوزر فرم را شفاف کرد به توری که پشت اون معلوم باشه اگه خواستید درخدمت هستم
                  [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

                    کامنت

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