onn_the_vy פורסם 2002 במרץ 29 Share פורסם 2002 במרץ 29 איך אני הופך את זה..: Image1(1).Picture = LoadPicture("E:\MAP\Map250\1.bmp") Image1(2).Picture = LoadPicture("E:\MAP\Map250\2.bmp") Image1(3).Picture = LoadPicture("E:\MAP\Map250\3.bmp") Image1(4).Picture = LoadPicture("E:\MAP\Map250\4.bmp") Image1(5).Picture = LoadPicture("E:\MAP\Map250\5.bmp") Image1(6).Picture = LoadPicture("E:\MAP\Map250\6.bmp") Image1(7).Picture = LoadPicture("E:\MAP\Map250\7.bmp") Image1(8).Picture = LoadPicture("E:\MAP\Map250\8.bmp") Image1(9).Picture = LoadPicture("E:\MAP\Map250\9.bmp") Image1(10).Picture = LoadPicture("E:\MAP\Map250\10.bmp") Image1(11).Picture = LoadPicture("E:\MAP\Map250\11.bmp") Image1(12).Picture = LoadPicture("E:\MAP\Map250\12.bmp") Image1(13).Picture = LoadPicture("E:\MAP\Map250\13.bmp") Image1(14).Picture = LoadPicture("E:\MAP\Map250\14.bmp") Image1(15).Picture = LoadPicture("E:\MAP\Map250\15.bmp") Image1(16).Picture = LoadPicture("E:\MAP\Map250\16.bmp") Image1(17).Picture = LoadPicture("E:\MAP\Map250\17.bmp") Image1(18).Picture = LoadPicture("E:\MAP\Map250\18.bmp") Image1(19).Picture = LoadPicture("E:\MAP\Map250\19.bmp") Image1(20).Picture = LoadPicture("E:\MAP\Map250\20.bmp") Image1(21).Picture = LoadPicture("E:\MAP\Map250\21.bmp") Image1(22).Picture = LoadPicture("E:\MAP\Map250\22.bmp") Image1(23).Picture = LoadPicture("E:\MAP\Map250\23.bmp") Image1(24).Picture = LoadPicture("E:\MAP\Map250\24.bmp") Image1(25).Picture = LoadPicture("E:\MAP\Map250\25.bmp") Image1(26).Picture = LoadPicture("E:\MAP\Map250\27.bmp") Image1(27).Picture = LoadPicture("E:\MAP\Map250\28.bmp") Image1(28).Picture = LoadPicture("E:\MAP\Map250\29.bmp") Image1(29).Picture = LoadPicture("E:\MAP\Map250\30.bmp") Image1(30).Picture = LoadPicture("E:\MAP\Map250\31.bmp") Image1(31).Picture = LoadPicture("E:\MAP\Map250\32.bmp") Image1(32).Picture = LoadPicture("E:\MAP\Map250\33.bmp") Image1(33).Picture = LoadPicture("E:\MAP\Map250\34.bmp") Image1(34).Picture = LoadPicture("E:\MAP\Map250\35.bmp") Image1(35).Picture = LoadPicture("E:\MAP\Map250\36.bmp") Image1(36).Picture = LoadPicture("E:\MAP\Map250\37.bmp") Image1(37).Picture = LoadPicture("E:\MAP\Map250\38.bmp") Image1(38).Picture = LoadPicture("E:\MAP\Map250\39.bmp") Image1(39).Picture = LoadPicture("E:\MAP\Map250\40.bmp") Image1(40).Picture = LoadPicture("E:\MAP\Map250\41.bmp") ל....: for i to 40 אני לא יודע מה לכתוב כאן.... next i תודה קישור לתוכן שתף באתרים אחרים More sharing options...
RedHat_Lover פורסם 2002 במרץ 29 Share פורסם 2002 במרץ 29 מה ה-str מיצג? את השם של התמונות? קישור לתוכן שתף באתרים אחרים More sharing options...
onn_the_vy פורסם 2002 באפריל 1 מחבר Share פורסם 2002 באפריל 1 STR הופך את I שהוא משתנה נומרי לתו אלפא נומריוכך יוצא שהמחרוזת שמגדירה את הPATCH משתנה לפי ה-Iבעיקרון אני חושב שVB לא יצעק עם לא יהיה הSTR אבל בשביל תכנות נכון....תודה...:-))והVB צועק...אם אין את הSTR...אבל הקוד השתנה קצת...:-\..יש דרך להפוך את זה.......:Form1.PP.Visible = TrueImage1(1).Picture = LoadPicture("E:\MAP\Map250\1.bmp") Form1.PP.Value = Form1.PP.Value + 1Image1(2).Picture = LoadPicture("E:\MAP\Map250\2.bmp")Image1(2).Left = Image1(1).Left + Image1(1).Width Form1.PP.Value = Form1.PP.Value + 1Image1(3).Picture = LoadPicture("E:\MAP\Map250\3.bmp")Image1(3).Left = Image1(2).Left + Image1(2).Width Form1.PP.Value = Form1.PP.Value + 1Image1(4).Picture = LoadPicture("E:\MAP\Map250\4.bmp")Image1(4).Left = Image1(3).Left + Image1(3).Width Form1.PP.Value = Form1.PP.Value + 1Image1(5).Picture = LoadPicture("E:\MAP\Map250\5.bmp")Image1(5).Top = Image1(1).Top + Image1(1).HeightImage1(5).Left = Image1(1).Left Form1.PP.Value = Form1.PP.Value + 1Image1(6).Picture = LoadPicture("E:\MAP\Map250\6.bmp")Image1(6).Top = Image1(1).Top + Image1(1).HeightImage1(6).Left = Image1(2).Left Form1.PP.Value = Form1.PP.Value + 1Image1(7).Picture = LoadPicture("E:\MAP\Map250\7.bmp")Image1(7).Top = Image1(1).Top + Image1(1).HeightImage1(7).Left = Image1(3).Left Form1.PP.Value = Form1.PP.Value + 1Image1(8).Picture = LoadPicture("E:\MAP\Map250\8.bmp")Image1(8).Top = Image1(1).Top + Image1(1).HeightImage1(8).Left = Image1(4).Left Form1.PP.Value = Form1.PP.Value + 1Image1(9).Picture = LoadPicture("E:\MAP\Map250\9.bmp")Image1(9).Top = Image1(5).Top + Image1(5).HeightImage1(9).Left = Image1(1).Left Form1.PP.Value = Form1.PP.Value + 1Image1(10).Picture = LoadPicture("E:\MAP\Map250\10.bmp")Image1(10).Top = Image1(5).Top + Image1(5).HeightImage1(10).Left = Image1(2).Left Form1.PP.Value = Form1.PP.Value + 1Image1(11).Picture = LoadPicture("E:\MAP\Map250\11.bmp")Image1(11).Top = Image1(5).Top + Image1(5).HeightImage1(11).Left = Image1(3).Left Form1.PP.Value = Form1.PP.Value + 1Image1(12).Picture = LoadPicture("E:\MAP\Map250\12.bmp")Image1(12).Top = Image1(5).Top + Image1(5).HeightImage1(12).Left = Image1(4).Left Form1.PP.Value = Form1.PP.Value + 1וכו'... עד 40.. הוא לא נותן לי לכניס הכל..Private Sub Form_Load()למערך..........? קישור לתוכן שתף באתרים אחרים More sharing options...
onn_the_vy פורסם 2002 באפריל 2 מחבר Share פורסם 2002 באפריל 2 אולי אני יסביר מה אני עושה בכלל... ( ).... אבא שלי הביא לי מפות טיולים, סרוקות ברזולוציות של: 1:50, 1:250.. עשיתי מפה מוקטת,ושאתה לוחץ על אזור הוא פותח פורום חדש ואתה מדפדף במפה הגדולה.. עשיתי עד עכשיו את המפה של ה1:250.. ופשטו כתבתי את הכל ואני לא רוצה לדעת כמה זה לכתוב ב1:50.. עכשיו נגיד יש לי 40 תמונות, שצריכות להיות מסודרות ככה..: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * אני צריך להגיד לVB שיעלה תמונה, וישים אותה במקום.. אני לא יכול לסדר את זה לבד ולא בתוכנה כי התמונות ברזולוציה ע_נ_ק_י_ת_... אז זה הTOP.... מצורץ הקוד בלי התמונות.. קישור לתוכן שתף באתרים אחרים More sharing options...
Recommended Posts
ארכיון
דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.