איך אני הופך את זה..:

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

תודה

מה ה-str מיצג? את השם של התמונות?

STR הופך את I שהוא משתנה נומרי לתו אלפא נומרי

וכך יוצא שהמחרוזת שמגדירה את הPATCH משתנה לפי ה-I

בעיקרון אני חושב שVB לא יצעק עם לא יהיה הSTR אבל בשביל תכנות נכון....

תודה...:-))

והVB צועק...אם אין את הSTR...

אבל הקוד השתנה קצת...:-\..

יש דרך להפוך את זה.......:

Form1.PP.Visible = True
Image1(1).Picture = LoadPicture("E:\MAP\Map250\1.bmp")
Form1.PP.Value = Form1.PP.Value + 1
Image1(2).Picture = LoadPicture("E:\MAP\Map250\2.bmp")
Image1(2).Left = Image1(1).Left + Image1(1).Width
Form1.PP.Value = Form1.PP.Value + 1
Image1(3).Picture = LoadPicture("E:\MAP\Map250\3.bmp")
Image1(3).Left = Image1(2).Left + Image1(2).Width
Form1.PP.Value = Form1.PP.Value + 1
Image1(4).Picture = LoadPicture("E:\MAP\Map250\4.bmp")
Image1(4).Left = Image1(3).Left + Image1(3).Width
Form1.PP.Value = Form1.PP.Value + 1
Image1(5).Picture = LoadPicture("E:\MAP\Map250\5.bmp")
Image1(5).Top = Image1(1).Top + Image1(1).Height
Image1(5).Left = Image1(1).Left
Form1.PP.Value = Form1.PP.Value + 1
Image1(6).Picture = LoadPicture("E:\MAP\Map250\6.bmp")
Image1(6).Top = Image1(1).Top + Image1(1).Height
Image1(6).Left = Image1(2).Left
Form1.PP.Value = Form1.PP.Value + 1
Image1(7).Picture = LoadPicture("E:\MAP\Map250\7.bmp")
Image1(7).Top = Image1(1).Top + Image1(1).Height
Image1(7).Left = Image1(3).Left
Form1.PP.Value = Form1.PP.Value + 1
Image1(8).Picture = LoadPicture("E:\MAP\Map250\8.bmp")
Image1(8).Top = Image1(1).Top + Image1(1).Height
Image1(8).Left = Image1(4).Left
Form1.PP.Value = Form1.PP.Value + 1
Image1(9).Picture = LoadPicture("E:\MAP\Map250\9.bmp")
Image1(9).Top = Image1(5).Top + Image1(5).Height
Image1(9).Left = Image1(1).Left
Form1.PP.Value = Form1.PP.Value + 1
Image1(10).Picture = LoadPicture("E:\MAP\Map250\10.bmp")
Image1(10).Top = Image1(5).Top + Image1(5).Height
Image1(10).Left = Image1(2).Left
Form1.PP.Value = Form1.PP.Value + 1
Image1(11).Picture = LoadPicture("E:\MAP\Map250\11.bmp")
Image1(11).Top = Image1(5).Top + Image1(5).Height
Image1(11).Left = Image1(3).Left
Form1.PP.Value = Form1.PP.Value + 1
Image1(12).Picture = LoadPicture("E:\MAP\Map250\12.bmp")
Image1(12).Top = Image1(5).Top + Image1(5).Height
Image1(12).Left = Image1(4).Left
Form1.PP.Value = Form1.PP.Value + 1

וכו'... עד 40.. הוא לא נותן לי לכניס הכל..

Private Sub Form_Load()

למערך..........?

אולי אני יסביר מה אני עושה בכלל... ( )....

אבא שלי הביא לי מפות טיולים, סרוקות ברזולוציות של: 1:50, 1:250..

עשיתי מפה מוקטת,ושאתה לוחץ על אזור הוא פותח פורום חדש ואתה מדפדף במפה הגדולה..

עשיתי עד עכשיו את המפה של ה1:250.. ופשטו כתבתי את הכל ואני לא רוצה לדעת כמה זה לכתוב ב1:50..

עכשיו נגיד יש לי 40 תמונות, שצריכות להיות מסודרות ככה..:

* * * *

* * * *

* * * *

* * * *

* * * *

* * * *

* * * *

* * * *

* * * *

אני צריך להגיד לVB שיעלה תמונה, וישים אותה במקום..

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

אז זה הTOP....

מצורץ הקוד בלי התמונות..