הפעם אני רוצה להראות דוגמא קטנה ב -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 במצב סגור (על אירוע נעילה טופס).
ובכן, אני לא להרחיב את הדיבור על הסברים כי קוד קצר ואני חושב שיש הרבה יותר מאשר להבהיר.
אם אתה אוהב דוגמה זו להשאיר תגובה. אני רוצה לדעת מה ההעדפות של המבקרים שלי.
מידע Bitacoras.com ...
דרג ב Bitacoras.com: הפעם אני רוצה להראות דוגמא קטנה שאהבתי כאשר עשיתי בפעם הראשונה. זה לא משהו שאנחנו משתמשים כל יום אבל אני בטוח שהם יהיו כאלה, תוכלו למצוא שם. Particularm ...
תודה!
gmn negc ... bingung ... ד"ר מאנה Dulu Mulai nya ..
gmn Sidebar buat klu קיאק?
אוף זה ממש Buno haha impreciono לי
תודה
גברים עדינים זה סופר, אבל אם אתה אם אתה יכול לשלוח לי שירים חדשים לדואר שלי ואני מאוד מעריך את האנשים ...
אחר צהריים טובים שומנים, לא תהיה לך כל למשל לשלוט (או כך, תווית לחצן מסגרת) שקוף? תודה
תודה גבר זה קוד טוב זה מה האיש estava מחפש ..... תודה
תודה ובכן, זה ESPLICADO
תודה אחי AC הזמן צפיתי את זה, הוא משיג Pro ACR ד אחר ש לא רצה, עכשיו הבעיה אינה משיגה את האפקט ש ACR QL מתרחש כאשר הטופס הכלול אחר waaaaaaaaaaaa.
תודה
esat טוב ....
אבל הייתי רוצה לדעת כיצד להציג תמונות ש UA אחר אבל זה desvanescan או להיות אטימות שקופה ....
grasias בתקווה לעזור לי!
אני מחפש לעשות שקוף, או לשנות את האטימות שלו, שליטה אחד, לא את הטופס. מישהו יודע?.
לא כל הפקדים יש מאפיין זה, אתה צריך ללמוד כל פקד מסוים.
הוא טוב מאוד תודה רבה
טוב מאוד מעקב מעריכים מידע נוסף ..... זה מאוד מעניין
נהדר.
הסתכלתי בכמה אתרים explicanción קל לניהול מרכיבי Visual Studio. algunso עניים מאוד, אחרים אינם ברורים ואחרים לקחת הרבה דברים לסבך.
אני רוצה לברך אותך על הבלוג שלך. מעשית, "יחיד" להסביר מועיל מאוד.
תודה עזרת לי מאוד.
ממשיכים לראות דוגמאות שלך להשלים בקרוב פרויקט יש לי בבית שלי.
דאגלס סלסדו
נס - אקוודור
תודה רבה לך על התגובה שלך, זו היא הרוח שמניעה את הבלוג הזה: לא יודע הכל, אבל כל מאמר שנכתב להסביר את זה כמו כל נושא פשוטה ומעשית ככל האפשר.
בברכה
אלישע
עבודה טובה
בבקשה, אני תקוע סופר, אני צריך לדעת את הקוד כדי לאחזר את תוכן התא שבו אני לוחץ על 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
אני מקווה אתם משרתים