ואז אני כותב שאם המחרוז תריקה שישים תמונה ברירת מחדל.זה גם מחזיר מחרוזת ריקה
אבל אם אין שם תמונה הוא לא מזהה את זה כמחזורת ריקה אלא כשגיאה.ודרך אגב אפשר לעשות כך
גם עם NZ?ואז אני כותב שאם המחרוז תריקה שישים תמונה ברירת מחדל.
אבל אם אין שם תמונה הוא לא מזהה את זה כמחזורת ריקה אלא כשגיאה.
אפשר לעשות בקוד, שיצלם את המסך, ואת צילום המסך תשים כרקע של הטופס שלך.שלום רב
אני בונה תוכנה באקסס, ואני רוצה שיהיה שם טופס שיש לו תמונה כמו הרקע של המחשב.
אני בניתי אותו בצורה שהוא יגדל על כל המסך ויסתיר הכל, ואני רוצה שזה יראה כאילו זה הרקע.
יש איזה קוד שמזהה איזה תמונה יש על הרקע של המחשב ואותה הוא ישים בטופס?
תודה
ודרך אגב אפשר לעשות כך
קוד:strjpg = nz(dir("C:\Users\*\AppData\Roaming\Microsoft\Windows\Themes\CachedFiles\*.jpg"),"")
ואז אני כותב שאם המחרוז תריקה שישים תמונה ברירת מחדל.
אבל אם אין שם תמונה הוא לא מזהה את זה כמחזורת ריקה אלא כשגיאה.
זה מה ש DIR עושהממה שאני מצליח להבין, השגיאה היא בגלל שאמנם בקוד של DIR אפשר לכתוב בסוף "*.jpg", אבל כשאני רוצה לכתוב את זה במאפיין של התמונת רקע הוא צריך שם מדויק של הקובץ, ואת זה הקוד של DIR לא נותן לי.
משא"כ לפי הקוד שאני הבאתי למעלה, הוא מחפש אם יש תמונה בתוך התיקייה הזאת, ואז מחזיר לי מחרוזת של הנתיב כולל השם של התמונה.
לא זכרתי אם מחזיר NULL או "" לכן כתבתי NZ בהתבסס על דברי @ארי4791יש לכם טעות קטנה
הפוקנציה dir אם היא לא מוצאת קובץ בנתיב שהוגדרה לה מחזירה מחרוזת ריקה - כלומר - "" , לא שגיאה!
מכאן, ש NZ לא יעזור, משום ש NZ מטפל בערכי NULL ולא במחרוזות ריקות
מה שהכי פשוט הוא לבדוק מה מתקבל ב DIR אם מקבלים "" או מחרוזת באורך 0 - זה אומר שלא נמצאה תמונה וע"כ שישים תמונות ברירת מחדל, ואם מקבלים מחרוזת ארוכה מ-0 או לא "" שישים את הנתיב שקיבל
@ארי4791 אם מוחזר לך שגיאה, כנראה את מגדיר את dir ישר למאפיין של תמונת הרקע, ולכן חוזרת שגיאה כיון שערך "" הוא ערך לא חוקי למאפיין תמונת רקע. אתה צריך להשים אותו במשתנה קודם כל ואז לבדוק מה נטען במשתנה
אתה בא לענות או לשאול?זה מה ש DIR עושה
מחזיר את הנתיב הראשון המתאים לתנאי
אני עונה ש DIR מחזיר את הנתיב המלא על פי הסינון שהכנסת לואתה בא לענות או לשאול?
אתה מסכים אם מה שאני אומר?
מה שהכי פשוט הוא לבדוק מה מתקבל ב DIR אם מקבלים "" או מחרוזת באורך 0 - זה אומר שלא נמצאה תמונה וע"כ שישים תמונות ברירת מחדל, ואם מקבלים מחרוזת ארוכה מ-0 או לא "" שישים את הנתיב שקיבל
צודק שכחתי שלא מחזיר נתיב מלא צריך לעשות כךניסיתי לשים כך
אבל זה לא עובד.קוד: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")
למה פעמיים BE=ככה?
הוא לא מחזיר שגיאה, אבל גם לא מזהה את התמונה.קוד:be = Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\" & Dir(Environ("APPDATA") & "\Microsoft\Windows\Themes\CachedFiles\*.jpg") If be <> "" Then Me.Picture = be
הוא שם את התמונת ברירת מחדל.
אצלי איןסתם לידיעתכם...
אחרי בדיקה קצרה שעשיתי התברר שתמיד (!) יש קובץ של תמונה בתיקייה הזאת.
גם כאשר עושים רקע של צבע מלא, וגם כאשר עושים הצגת שקופיות (שאז כל פרק זמן מוגדר הוא מחליף את התמונה שיש בתיקייה).
כך שכנראה לא צריך בכלל לעשות בדיקה האם יש שם תמונה או לא.
לילה טוב.
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
4.06
כ"ז אייר
סילבוס חדש ל-2024!
קורס פיתוח ובניית אתרים
קריירה מתקדמת, ביקוש עצום, וממוצע משכורות גבוה במיוחד!
מלגות גבוהות ומשתלמות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
4.06
כ"ז אייר
#רקבפרוג
הרצאה מרתקת:
הכירו את טווינמושן
עם גל אקסלרוד
עולם מטורף משל הדמיות! ממשק חדשני שמאפשר לבצע הדמיה כמעט כמו משחק מחשב
לתלמידים ובוגרים בלבד!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק קמו
א הַלְלוּיָהּ הַלְלִי נַפְשִׁי אֶת יְהוָה:ב אֲהַלְלָה יְהוָה בְּחַיָּי אֲזַמְּרָה לֵאלֹהַי בְּעוֹדִי:ג אַל תִּבְטְחוּ בִנְדִיבִים בְּבֶן אָדָם שֶׁאֵין לוֹ תְשׁוּעָה:ד תֵּצֵא רוּחוֹ יָשֻׁב לְאַדְמָתוֹ בַּיּוֹם הַהוּא אָבְדוּ עֶשְׁתֹּנֹתָיו:ה אַשְׁרֵי שֶׁאֵל יַעֲקֹב בְּעֶזְרוֹ שִׂבְרוֹ עַל יְהוָה אֱלֹהָיו:ו עֹשֶׂה שָׁמַיִם וָאָרֶץ אֶת הַיָּם וְאֶת כָּל אֲשֶׁר בָּם הַשֹּׁמֵר אֱמֶת לְעוֹלָם:ז עֹשֶׂה מִשְׁפָּט לָעֲשׁוּקִים נֹתֵן לֶחֶם לָרְעֵבִים יְהוָה מַתִּיר אֲסוּרִים:ח יְהוָה פֹּקֵחַ עִוְרִים יְהוָה זֹקֵף כְּפוּפִים יְהוָה אֹהֵב צַדִּיקִים:ט יְהוָה שֹׁמֵר אֶת גֵּרִים יָתוֹם וְאַלְמָנָה יְעוֹדֵד וְדֶרֶךְ רְשָׁעִים יְעַוֵּת:י יִמְלֹךְ יְהוָה לְעוֹלָם אֱלֹהַיִךְ צִיּוֹן לְדֹר וָדֹר הַלְלוּיָהּ: