خواهش میکنم کمکم کنید

سلام
من یه ocx درست کردم و میخوام که با فشار دادن یه دکمه 100 تای دیگه از اون کنترل روی فرم درست بشه ولی به صورت خیلی سریع.
مثلا وقتی که شما توی ویندوز به پوشه ای میرید که 400 تا عکس توش هست خیلی سریع لود میشن . من میخوام یه همچین چیزی درست کنم

این ها چند تا برنامه هستند که سرعت بالایی در این کار دارند.

شما می تونی از اینها الگو برداری کنید.

Lightning Photo Viewer

Simple, fast photo viewer with scrolling image and looping slideshow with user-defined delay. Supports jpg, gif, bmp, ico, cur, wmf. Source code demonstrates the drive/directory/file controls and their use, along with loading and displaying images in a PictureBox.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=6915&strZipAccessCode=tp%2FC69153033

---

i2 - Simple Digital Camera Image Viewer

i2 is a simple image viewer intended to be used with pictures from digital cameras. It is for the purpose of viewing 640x480 pixel digital camera photos. i2 was designed to be easy to use and FAST. i2's image loading routine has been trimmed down to show a picture in the least amount of time. i2 will automatically detect commonly used folders for pictures, such as "My Documents" and "My Pictures." i2 can handle all files with the extension of ".jpg." i2 is not Bloatware! It does what you need, and nothing else!

کد:

---

http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=14052&strZipAccessCode=tp%2FC140522931

---

سلام
ممنون از کمکتون .ولی این اون چیزی نبود که میخواستم.
من یه ocx درست کردم و میخوام که با فشار دادن یه دکمه 100 تای دیگه از اون کنترل روی فرم درست بشه ولی به صورت خیلی سریع
من یه راهی برای این کار میخواستم .
و مثالم تصویر بود که تو ویندوز لود میشه.اونی که شما گذاشتین خیلی ساده بود و ربطی به چیزی که من گفتم نداشت.
البته از توجهتون ممنون

برای این کار روش های مختلفی وجود داره ولی من روش سریع رو نمی دونم.

شما کنترل مورد نظر رو یک بار کپی پیست بکنید تا آرایه ای ار اون کنترل ایجاد بشه بعد هم به کد زیر دقت کنید.

کد:

---

Private Sub Command1_Click(Index As Integer)
 Load Command1(1)
 Command1(1).Left = Command1(0).Left
 Command1(1).Top = Command1(0).Top + Command1(0).Height
 Command1(1).Visible = True
End Sub

---

بله ممنون
من هم این روش رو بلد بودم ولی اگه بخواهیم با این روش 100 تا رو لود کنیم خیلی طول میکشه.
ممنون میشم اکه به این سوال هم پاسخ بدید
سلام
يه فايل دارم ولي چيز زيادي ازش سر در نميارم.
با اين فايل ميشه عکس ها رو لود کرد ولي من هر کاري کردم نتوستم عکس ها رو باهاش نشون بدم
عکس ها لود ميشه ولي تصويرشون معلوم نيست.ممنون ميشم اگه کمکم کنيد.
اگه کسي تونست درستش کنه ازش يه سوال دارم:
ميشه توي user control يه imagebox گذاشت که عکس ها توي اون قراربگيره.اگه ميشه چه جوري؟
ممنون ميشم اگه سريع جوابشو بگيد آخه خيلي خيلي فوريه.!!!!!!
البته توي فايل يه ليست باکس هستش که توش آدرس عکس هارو بايد بذاريد.همراه پسوند
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با حلقه for هم خیلی طول می کشه؟

کد:

---

http://downloadshadow.persiangig.com/document/Thumb.zip

---

این برنامه پیشرفته هست ولی من ساده ام:31::41:

خواهش می کنم یه جوری یه چیزی شبیه این برام پیدا کنید خیلی فوریه.
خواهش میکننم:41:

شما از این هم بپرس

کد:

---

http://forum.p30world.com/member.php?u=148371

---

البته الان امتحان داره ولی شاید جوابت رو داد.

این توضیح انگلیسیش هست ببین سر در میاری.

Use GDI+ ( aka GDIPlus ) with VB6 and Win98!

Yes, you can use GDI+ with VB6 (and maybe previous versions with a little editing) along with Win98 or better! Fixed GdiplusShutdown declaration [8/3]. Added ImageLockMode and ImageCodecFlags enums [1/22]. Dana Seaman contributed the translation of the huge EmfPlusRecordType enum and I fixed a frame delay bug in Play GIF [12/4]. Dana created an even better function for getting all GUID constants [12/19]. The goal was to simply port the C++ APIs to VB6, and as I never personally found any comprehensive examples or declarations, although there was one newsgroup post mentioned to me that clarified one issue holding me back (See "HOWTO: call GDIPLUS directly from VB6" in comp.lang.basic.visual.misc), I decided to port nearly 30 SDK samples and declared basically every single API I could find and the required enums and constants. There is so much, I hope I didn't miss anything else... Estimated API conversion accuracy: 99% Correct. If you don't have WinXP, you may need the GDI+ Redistributable RTM which is available here:

کد:

---

http://www.microsoft.com/downloads/release.asp?releaseid=32738

---

. . . You should also read the beginning of the GDIPlusAPI module, as it has some useful information. If you find anything wrong, complain away, but show the fix when possible! I don't like when people have a problem and then simply say "I fixed it", as others may have a similar problem and not know how to fix it. I encourage everyone to edit the sample, post better samples, and make some classes to simplify the GDI+ usage even more! I'm not great at writing boring or even exciting introductions, so I'll try my best to explain some core ideas to you, and the code is also heavily commented, though not "well" commented. A GDI+ object class, for the purposes of VB, is simply a pointer (aka Long). The pointer, once retrieved, is simply passed ByVal to the API functions. All you really have to worry about is remembering to delete the object that the pointer represents when you are done. You could also think of the pointer as a handle, if it helps you understand better. Some API functions also want arrays of types for a parameter (you'll usually see a count parameter associated with that function). Another important fact to remember is that ALL strings that GDI+ returns or uses MUST BE UNICODE! In this code I opted to use StrConv to achieve Unicode strings, and the APIs are accordingly declared As String, but you can alter the APIs to use the StrPtr result if you like by selecting the API function declarations and Replace " As String" with " As Long". I opted not to do that as I feared I might forget what type of variable is really required, although doing so improves performance. Also, if you see "argb" floating around, it stands for Alpha-blending, Red, Green, and Blue - it is the color "encoding" scheme used by GDI+. I hope this will quickly cover some of the finer points about GDI+, but I can't rival the explainations of the GDI+ documentation:

کد:

---

http://msdn.microsoft.com/library/en-us/gdicpp/gdi+/gdi+.asp?frame=true

---

. . . Notes about the example code: Look at the mnuRedraw_Click menu event to see a list of available samples, and uncomment them to view the demo. I did this to encourage you to view the source. For the thumbnail sample, you'll have to insert the filename of a huge file you'd like to view the thumbnail for. There is also a very basic "freehand" curve drawing demo under the file menu [9/4]. Added a rough on demo how to play an animated GIF [9/7]. Added a SaveGrayscale demo with code from Dana Seaman [11/26]. Added a wrapper demo from Dana [11/30]. Added a DrawTextBackColor demo [1/18]. Added a LockBits demo [1/22]. Added two different BMPtoGIF demos [2/6].