עבור לתוכן

שאלה באקסס בקוד vb!!

Featured Replies

פורסם

בשיטוטי באינטרנט מצאתי את הקוד שלהלן עבור הסתרת המסך הראשי של האקסס:

מאתר אקסס בשם המפתח לאקסס

האם ניתן לקבל הסבר על הקוד ?

תודה מראש

(כל הזכויות שמורות לאתר "המפתח לאקסס")להלן הקוד:

הסתרת המסך הראשי של האקסס

במודול ראשי

Public Const SW_MINIMIZE = 6

Public Const SW_HIDE = 0

Public Const SW_NORMAL = 1

Public Const SW_MAXIMIZE = 3

Public Const ERROR_SUCCESS = 0

Public Declare Function ShowWindow Lib "user32" _

(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

בתכונת טופס

תכונת "מוקפץ" = כן.

באירוע בעת פתיחת הטופס

Call ShowWindow(hWndAccessApp, SW_HIDE)

באירוע בעת סגירת טופס

סגירת היישום כולו

Application.Quit

או גילוי האקסס מחדש

Call ShowWindow(hWndAccessApp, SW_NORMAL)

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

אודה לך על העזרה.

מיקי.

  • 4 שבועות מאוחר יותר...
פורסם

לא הבנתי כל כך מה אתה רוצה לעשות אבל בכל מקרה הנה הסבר קצרצר על הקוד שנתת לנו פה אולי זה יעזור לך.

הפונקציה ShowWindow מקבלת שני פרמטרים.

hwnd ו הפעולה האתה רוצה לבצע את אותו hwnd.

מה זה hwnd ?

לכל חלון, אובייקט יש מספר מזהה משלו כמו טביעת אצבע.

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

SW_HIDE - גורם לו להיות בלתי נראה.

SW_NORMAL - מחזיר אותו למצבו וגודלו הנורמליים.

SW_MINIMIZE - ממזער את החלון.

SW_MAXIMIZE - מגדיל את החלון.

אתה יכל לחפש עוד פעולות ב "API Text Viewer" ע"י חיפוש של קונסטנטים ( קבועים ).

רוב הקומסנטים מתחילים בקיצור של הפונקציה ולאחר מכן מה שהם עושים לדוגמא:

משתנה קבוע של הפונקציה ShowWindow הוא יתחיל לרוב ב SW_ .

ייתכן שמה שנשאר לך לא מוסתר הוא לא מוכל ע"י אותו אובייקט אב. כלומר הוא לא הילד שלו ולכן לא שייך אליו.

מקווה שזה עזר לך להבין מה הבעיה וכיצד לפתור אותה.

המשך יום נעים.

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים