טופס שקופים (אטימות)

הפעם אני רוצה להראות דוגמא קטנה ב -Visual Basic. נטו שאהבתי כאשר עשיתי בפעם הראשונה. זה לא משהו שאנחנו משתמשים כל יום אבל אני בטוח שהם יהיו כאלה, תוכלו למצוא שם. אני אוהב במיוחד להשתמש בו כאשר אני מראה את התמונה "על ..." בכמה יישומים שלי ...

זוהי הופעתה ההדרגתית של טופס, מתחילה עד שהיא נראית ברורה ב 100%. לשם כך עלינו להשתמש בקרת טיימר ואת המאפיין אטימות של הטופס.

בדוגמה ניצור מה שתי צורות (Form1 ו Form2), Form1 עם כפתור הפעולה של כפתור זה הוא לקרוא את הטופס השני. הטופס השני יופיע בהדרגה תעשה את אותו הדבר כאשר אנו קרובים. זה אמור להיראות כמו בתמונה למטה:

ובכן, להגיע לעבודה, haha.

ראשית לחץ על כפתור האירוע לטעון את הטופס השני:

 Private Sub Button1_Click (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Button1.Click
     כמו חדש Form2 דים vForm2
     vForm2.ShowDialog ()
 End Sub

בעלון 2 שני מרכיבים טופס של טיימר (Timer1 ו Timer2). ואז להעתיק את הקוד הבא:

 Form2_Load Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות MyBase.Load
     Me.Opacity = 0
     Timer1.Interval = 25
     Timer1.Enabled = True
 End Sub

 תת פרטיות Form2_FormClosing (ByVal השולח כהודעות דואר Object, ByVal כפי System.Windows.Forms.FormClosingEventArgs) ידיות Me.FormClosing
     Timer2.Interval = 25
     Timer2.Enabled = True
     אם Me.Opacity> 0 אז
         e.Cancel = True
     סוף אם
 End Sub

 Timer1_Tick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Timer1.Tick
     אם Me.Opacity = 1 אז
         Timer1.Enabled = False
     אחר
         Me.Opacity Me.Opacity + 0.02 =
         Me.Refresh ()
     סוף אם
 End Sub

 Timer2_Tick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.EventArgs) ידיות Timer2.Tick
     אם Me.Opacity = 0 אז
         Timer2.Enabled = False
         Me.Close ()
     אחר
         Me.Opacity Me.Opacity = - .02
         Me.Refresh ()
     סוף אם
 End Sub

אני אסביר בקצרה מה זה עושה:

טפסים של Windows יש נכס שנקרא אטימות המאחסן ערך בין 0 ל -1. ערך זה מציין את אחוז אטימות של הטופס, כאשר 1 100 0% 0% אטום אטום, אשר יהיה זהה אומר 100% שקוף. אז בערך 0.5 תהיה טופס 50% 50% אטום או שקוף (כמו שאתה אוהב).

מה הופך את השליטה טיימר הוא להפעיל את הקוד באירוע טיק טיימר יש miestras לאפשר הנכס נכון וכל מרווח נקבע על ידי נכס מרווח.
אז יש לנו Timer1 עבור כאשר אתה פותח את הטופס (ומכאן acrivo "Timer1.Enable = True" במקרה טען וכדי Timer2 במצב סגור (על אירוע נעילה טופס).

ובכן, אני לא להרחיב את הדיבור על הסברים כי קוד קצר ואני חושב שיש הרבה יותר מאשר להבהיר.

אם אתה אוהב דוגמה זו להשאיר תגובה. אני רוצה לדעת מה ההעדפות של המבקרים שלי.

20 תגובות ל "טופס שקופים (אטימות)"

  1. Bitacoras.com אומר:

    מידע Bitacoras.com ...

    דרג ב Bitacoras.com: הפעם אני רוצה להראות דוגמא קטנה שאהבתי כאשר עשיתי בפעם הראשונה. זה לא משהו שאנחנו משתמשים כל יום אבל אני בטוח שהם יהיו כאלה, תוכלו למצוא שם. Particularm ...

  2. Fluireemi אומר:

    תודה!

  3. Mayang אומר:

    gmn negc ... bingung ... ד"ר מאנה Dulu Mulai nya ..
    gmn Sidebar buat klu קיאק?

  4. galvis אומר:

    אוף זה ממש Buno haha ​​impreciono לי
    תודה

  5. חוסה מנואל אומר:

    גברים עדינים זה סופר, אבל אם אתה אם אתה יכול לשלוח לי שירים חדשים לדואר שלי ואני מאוד מעריך את האנשים ...

  6. במסגרת מדינה אומר:

    אחר צהריים טובים שומנים, לא תהיה לך כל למשל לשלוט (או כך, תווית לחצן מסגרת) שקוף? תודה

  7. יואל אומר:

    תודה גבר זה קוד טוב זה מה האיש estava מחפש ..... תודה

  8. סבסטיאן אומר:

    תודה ובכן, זה ESPLICADO

  9. NazGarB אומר:

    תודה אחי AC הזמן צפיתי את זה, הוא משיג Pro ACR ד אחר ש לא רצה, עכשיו הבעיה אינה משיגה את האפקט ש ACR QL מתרחש כאשר הטופס הכלול אחר waaaaaaaaaaaa.

    תודה

  10. Jhonathan אומר:

    esat טוב ....
    אבל הייתי רוצה לדעת כיצד להציג תמונות ש UA אחר אבל זה desvanescan או להיות אטימות שקופה ....

    grasias בתקווה לעזור לי!

  11. אדוארדו אומר:

    אני מחפש לעשות שקוף, או לשנות את האטימות שלו, שליטה אחד, לא את הטופס. מישהו יודע?.

  12. אדר אומר:

    הוא טוב מאוד תודה רבה

  13. אדווין אומר:

    טוב מאוד מעקב מעריכים מידע נוסף ..... זה מאוד מעניין

  14. דאגלס סלסדו אומר:

    נהדר.

    הסתכלתי בכמה אתרים explicanción קל לניהול מרכיבי Visual Studio. algunso עניים מאוד, אחרים אינם ברורים ואחרים לקחת הרבה דברים לסבך.

    אני רוצה לברך אותך על הבלוג שלך. מעשית, "יחיד" להסביר מועיל מאוד.

    תודה עזרת לי מאוד.

    ממשיכים לראות דוגמאות שלך להשלים בקרוב פרויקט יש לי בבית שלי.

    דאגלס סלסדו
    נס - אקוודור

    • אלישע אומר:

      תודה רבה לך על התגובה שלך, זו היא הרוח שמניעה את הבלוג הזה: לא יודע הכל, אבל כל מאמר שנכתב להסביר את זה כמו כל נושא פשוטה ומעשית ככל האפשר.
      בברכה
      אלישע

  15. דוד אומר:

    עבודה טובה

  16. אביגיל אומר:

    בבקשה, אני תקוע סופר, אני צריך לדעת את הקוד כדי לאחזר את תוכן התא שבו אני לוחץ על datagridview ב-Visual Studio, הייתי מאוד מעריך את זה, אני מקווה התשובה שלך ... תודה

    • אלישע אומר:

      היי
      צריך לכתוב קוד במקרה של תא לחץ ולקרוא את הערך של datagridview1.currentCell.value

      או

      datagridview1.currentrow.cell (n). ערך כאשר n הוא האינדקס של העמודה הנדונה

      אני מקווה לשרת

    • דוד אומר:

      GrdDatos_MouseDoubleClick Private Sub (ByVal השולח כמו System.Object, ByVal e כמו System.Windows.Forms.MouseEventArgs) ידיות GrdDatos.MouseDoubleClick

      אם Convert.ToInt32 (GrdDatos.CurrentRow.Index) <= Convert.ToInt32 (GrdDatos.Rows.Count - 2) לאחר מכן
      txtOrdeninter.Text = GrdDatos.CurrentRow.Cells (0). Value.ToString ()
      סוף אם
      txtOrdeninter.Text = GrdDatos.CurrentRow.Cells (0). Value.ToString ()
      txtPartinter.Text = GrdDatos.CurrentRow.Cells (1). Value.ToString ()
      txtCant_ter1inter.Text = GrdDatos.CurrentRow.Cells (4). Value.ToString ()
      txtcantdisp.Text = GrdDatos.CurrentRow.Cells (5). Value.ToString ()
      txtCant_EnvioInter.Text = GrdDatos.CurrentRow.Cells (6). Value.ToString ()
      txtLotinter.Text = GrdDatos.CurrentRow.Cells (10). Value.ToString ()
      txtMedidaInter.Text = GrdDatos.CurrentRow.Cells (13). Value.ToString ()

      ActDesBotones (אמיתי)
      אם Convert.ToInt32 (GrdDatos.CurrentRow.Cells (4). ערך) = 0 אז
      btnModificarInter.Enabled = False
      סוף אם
      txtCant_EnvioInter.Focus ()
      End Sub

      אני מקווה אתם משרתים

הערה