עזרה באקסס קוד לזיהוי רקע מחשב

[ארי4791]

בדוגמאות שהבאתם זה החזיר לי שגיאה כאשר לא היה שום תמונה בתיקייה.
יש איך לכתוב מה יקרה אם אין תמונה?
תודה

 

[מתמצא]

מה אתה רוצה שיקרה?
אתה יכול להשתמש בבדיקה מה אורך המחרוזת

strDir = dir({נתיב})
if strDir = "" then
....
'או לחילופין
if len(strDir) then

 

[ארי4791]

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

 

[מתמצא]

בשמחה..
איך הקוד הנ"ל פותר לך את השגיאה כשאין קובץ בתיקיה, זה גם מחזיר מחרוזת ריקה

 

[אפר]

ודרך אגב אפשר לעשות כך

strjpg  = nz(dir("C:\Users\*\AppData\Roaming\Microsoft\Windows\Themes\CachedFiles\*.jpg"),"")

 

[ארי4791]

זה גם מחזיר מחרוזת ריקה

ואז אני כותב שאם המחרוז תריקה שישים תמונה ברירת מחדל.

ודרך אגב אפשר לעשות כך

אבל אם אין שם תמונה הוא לא מזהה את זה כמחזורת ריקה אלא כשגיאה.

 

[אפר]

ואז אני כותב שאם המחרוז תריקה שישים תמונה ברירת מחדל.


אבל אם אין שם תמונה הוא לא מזהה את זה כמחזורת ריקה אלא כשגיאה.

גם עם NZ?

 

[Rרחמים]

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

אפשר לעשות בקוד, שיצלם את המסך, ואת צילום המסך תשים כרקע של הטופס שלך.

 

[מתמצא]

ודרך אגב אפשר לעשות כך

strjpg  = nz(dir("C:\Users\*\AppData\Roaming\Microsoft\Windows\Themes\CachedFiles\*.jpg"),"")

ואז אני כותב שאם המחרוז תריקה שישים תמונה ברירת מחדל.


אבל אם אין שם תמונה הוא לא מזהה את זה כמחזורת ריקה אלא כשגיאה.

יש לכם טעות קטנה
הפוקנציה dir אם היא לא מוצאת קובץ בנתיב שהוגדרה לה מחזירה מחרוזת ריקה - כלומר - "" , לא שגיאה!
מכאן, ש NZ לא יעזור, משום ש NZ מטפל בערכי NULL ולא במחרוזות ריקות

מה שהכי פשוט הוא לבדוק מה מתקבל ב DIR אם מקבלים "" או מחרוזת באורך 0 - זה אומר שלא נמצאה תמונה וע"כ שישים תמונות ברירת מחדל, ואם מקבלים מחרוזת ארוכה מ-0 או לא "" שישים את הנתיב שקיבל

@ארי4791 אם מוחזר לך שגיאה, כנראה את מגדיר את dir ישר למאפיין של תמונת הרקע, ולכן חוזרת שגיאה כיון שערך "" הוא ערך לא חוקי למאפיין תמונת רקע. אתה צריך להשים אותו במשתנה קודם כל ואז לבדוק מה נטען במשתנה

 

[ארי4791]

ממה שאני מצליח להבין, השגיאה היא בגלל שאמנם בקוד של DIR אפשר לכתוב בסוף "*.jpg", אבל כשאני רוצה לכתוב את זה במאפיין של התמונת רקע הוא צריך שם מדויק של הקובץ, ואת זה הקוד של DIR לא נותן לי.
משא"כ לפי הקוד שאני הבאתי למעלה, הוא מחפש אם יש תמונה בתוך התיקייה הזאת, ואז מחזיר לי מחרוזת של הנתיב כולל השם של התמונה.

 

[אפר]

ממה שאני מצליח להבין, השגיאה היא בגלל שאמנם בקוד של DIR אפשר לכתוב בסוף "*.jpg", אבל כשאני רוצה לכתוב את זה במאפיין של התמונת רקע הוא צריך שם מדויק של הקובץ, ואת זה הקוד של DIR לא נותן לי.
משא"כ לפי הקוד שאני הבאתי למעלה, הוא מחפש אם יש תמונה בתוך התיקייה הזאת, ואז מחזיר לי מחרוזת של הנתיב כולל השם של התמונה.

זה מה ש DIR עושה
מחזיר את הנתיב הראשון המתאים לתנאי

יש לכם טעות קטנה
הפוקנציה dir אם היא לא מוצאת קובץ בנתיב שהוגדרה לה מחזירה מחרוזת ריקה - כלומר - "" , לא שגיאה!
מכאן, ש NZ לא יעזור, משום ש NZ מטפל בערכי NULL ולא במחרוזות ריקות

מה שהכי פשוט הוא לבדוק מה מתקבל ב DIR אם מקבלים "" או מחרוזת באורך 0 - זה אומר שלא נמצאה תמונה וע"כ שישים תמונות ברירת מחדל, ואם מקבלים מחרוזת ארוכה מ-0 או לא "" שישים את הנתיב שקיבל

@ארי4791 אם מוחזר לך שגיאה, כנראה את מגדיר את dir ישר למאפיין של תמונת הרקע, ולכן חוזרת שגיאה כיון שערך "" הוא ערך לא חוקי למאפיין תמונת רקע. אתה צריך להשים אותו במשתנה קודם כל ואז לבדוק מה נטען במשתנה

לא זכרתי אם מחזיר NULL או "" לכן כתבתי NZ בהתבסס על דברי @ארי4791

 

[ארי4791]

זה מה ש DIR עושה
מחזיר את הנתיב הראשון המתאים לתנאי

אתה בא לענות או לשאול?
אתה מסכים אם מה שאני אומר?

 

[אפר]

אתה בא לענות או לשאול?
אתה מסכים אם מה שאני אומר?

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

מה שהכי פשוט הוא לבדוק מה מתקבל ב DIR אם מקבלים "" או מחרוזת באורך 0 - זה אומר שלא נמצאה תמונה וע"כ שישים תמונות ברירת מחדל, ואם מקבלים מחרוזת ארוכה מ-0 או לא "" שישים את הנתיב שקיבל

 

[ארי4791]

ניסיתי לשים כך

Dim be As String

be = Dir(Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\*.jpg")
If be <> "" Then Me.Picture = be

אבל זה לא עובד.

 

[אפר]

ניסיתי לשים כך

Dim be As String

be = Dir(Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\*.jpg")
If be <> "" Then Me.Picture = be

אבל זה לא עובד.

צודק שכחתי שלא מחזיר נתיב מלא צריך לעשות כך

be = Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\" & Dir(Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\*.jpg")

 

[ארי4791]

ככה?

be = Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\" & Dir(Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\*.jpg")
If be <> "" Then Me.Picture = be

הוא לא מחזיר שגיאה, אבל גם לא מזהה את התמונה.
הוא שם את התמונת ברירת מחדל.

 

[אפר]

ככה?

be = Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\" & Dir(Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\*.jpg")
If be <> "" Then Me.Picture = be

הוא לא מחזיר שגיאה, אבל גם לא מזהה את התמונה.
הוא שם את התמונת ברירת מחדל.

למה פעמיים BE=

 

[ארי4791]

צודק טעות!
וזה עובד מצוין!
תודה רבה לכולם!!!

 

[ארי4791]

סתם לידיעתכם...
אחרי בדיקה קצרה שעשיתי התברר שתמיד (!) יש קובץ של תמונה בתיקייה הזאת.
גם כאשר עושים רקע של צבע מלא, וגם כאשר עושים הצגת שקופיות (שאז כל פרק זמן מוגדר הוא מחליף את התמונה שיש בתיקייה).
כך שכנראה לא צריך בכלל לעשות בדיקה האם יש שם תמונה או לא.

לילה טוב.

 

[אפר]

סתם לידיעתכם...
אחרי בדיקה קצרה שעשיתי התברר שתמיד (!) יש קובץ של תמונה בתיקייה הזאת.
גם כאשר עושים רקע של צבע מלא, וגם כאשר עושים הצגת שקופיות (שאז כל פרק זמן מוגדר הוא מחליף את התמונה שיש בתיקייה).
כך שכנראה לא צריך בכלל לעשות בדיקה האם יש שם תמונה או לא.

לילה טוב.

אצלי אין