چگونه مي توان يك عكس Gif را در يك فرم ويژوال بيسيك قرار داد

از تمامي كساني كه مي تونند به من كمك كنند درخواست مي كنم اين آموزش را برايم تو اين تايپيك بنويسند

با تشكر از همه

معمولا از اکتيو ايکس هاي آماده استفاده مي شود. قبلا يکي ديده بودم. اسمش هم معروف بود ( بين برنامه نويسا ) اما حالا يادم نيست چي بود. شما يک سرچ تو گوگل کني حتما به نتيجه مي رسي.

سلام دوست عزیز لطف کنید که قوانین رو رعایت کنید و هر سوالی‌ دارید اول نگاه کنید که تاپیک براش داریم یا نه اگه نبود مشگلی‌ نیست که تاپیک جدید باز کنید ولی‌ این زبان ویبی‌ که خیلی‌ معروف هست و اون بالا هم کلی‌ مطلب و پرسش و پاسخ داریم .لطفا توجه کنید متشکر از شما
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

سلام ساسر جان .به علت این که ما تاپیک ویبی‌ داریم و دوستان باید حتما در جای خودشون سوال کنن لذا خواهش می‌کنم که هر جا دیدین که خارج از محدوده هست به سوال ها پاسخ ندین و قفل یا ... بکنین .سپاسگزارم.

سلام nesta جان
من اين موضوع رو تو انجمن جستجو كردم اما چيزي پيدا نكردم
و اينجا يك تاپيك با همين موضوع زدم
حالا شما مي گوييد من قوانين انجمن را رعايت نكردم

موضوع سوال من كه راجع به برنامه نويسيه
چنين تايپيكي هم در اين انجمن وجود نداشت

حالا چرا به من مي گوييد كه قوانين رو رعايت نمي كنم

سلام دوست عزیز .شما مگر هر موضوعی‌ رو پیدا نکردین باید تاپیک بزنید؟
شما عنوان رو که دیدین من منظورم این هست که سر جای خودش سوال کنید .این رو شما نمیبینید؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بیشتر توجه کنید لطفا.

سلام دوست عزیز
جوابت راا میدم تا مشکلت حل شه ولی قوانین را رعایت کن
شما project بر روی componets کلیک کرده از قسمت insertable object گزینه animation gif control را تیک زده و
ok کنید.
حالا از قسمت toolbox ماننده شیئی های دیگر بر روی gif کلیک کرده و از قسمت پروپرتیز تصویر gif خود را انتخاب کنید.
ممنون خدا نگهدار

واسه من هم چين چيزي وجود نداره چيكار كنم

[php]

Public Function load_animated_gif(fname As String, jimage As imgdes) As Long ' jimage will be replaced by this animated gif Dim rcode As Long Dim tempimage As imgdes Dim totalFrames As Long Dim gdata As GifGlobalData Dim fdatarray() As GifFrameData Dim size As Long ' Count the number of frames rcode = gifframecount(fname, totalFrames) ReDim fdatarray(0 To totalFrames - 1) ' Get all the frames' info rcode = gifinfoallframes(fname, gdata, fdatarray(0), totalFrames) ' Load all frames into a single vertical image If (rcode = NO_ERROR) Then Dim j As Long ' Allocate an image buffer rcode = allocimage(tempimage, gdata.saveData.scrwidth, gdata.saveData.scrlength * totalFrames, fdatarray(0).vbitcount) If (rcode = NO_ERROR) Then Dim dummy As Long ' Set the background color dummy = zeroimage(gdata.saveData.bckColor, tempimage) ' Load all frames For j = 0 To totalFrames - 1 tempimage.stx = fdatarray(j).saveData.startx tempimage.sty = j * gdata.saveData.scrlength + fdatarray(j).saveData.starty rcode = loadgifframe(fname, tempimage, gdata, fdatarray(j)) Next j End If tempimage.stx = 0 tempimage.sty = 0 freeimage jimage copyimgdes tempimage, jimage ' Replace previous image with this animated gif End If If (rcode = NO_ERROR Or rcode = BAD_DATA) Then rcode = NO_ERROR Set rcode to NO_ERROR if file contained invalid data End If load_animated_gif = rcodeEnd Function........... Add these defines and declarations to your Global module ...........' Image descriptorType imgdes ibuff As Long stx As Long sty As Long endx As Long endy As Long buffwidth As Long palette As Long colors As Long imgtype As Long bmh As Long hBitmap As LongEnd TypeType GifGlobalSaveData scrwidth As Long scrlength As Long hasColorMap As Long bckColor As Long loop As LongEnd TypeType GifGlobalData saveData as GifGlobalSaveData BitsPPixel As Long colorRes As Long pixelAspectRatio As Long commentOffset As Long colors As Long colorMapOffset As LongEnd TypeType GifFrameSaveData startx As Long starty As Long hasColorMap As Long delay As Long ' 100ths of a second to display frame transColor As Long ' Transparent color index, -1 => none removeBy As Long ' How graphic is to be treated after display waitForUserInput As Long 'If true, expect user inputEnd TypeType GifFrameData saveData as GifFrameSaveData vbitcount As Long width As Long length As Long frame As Long interlace As Long codesize As Long colors As Long colorMapOffset As Long rasterDataOffset As LongEnd TypeDeclare Function allocimage Lib "VIC32.DLL" (image As imgdes, ByVal wid As Long, ByVal leng As Long, ByVal BPPixel As Long) As LongDeclare Sub copyimgdes Lib "VIC32.DLL" (srcimg As imgdes, desimg As imgdes)Declare Sub freeimage Lib "VIC32.DLL" (image As imgdes)Declare Function gifframecount Lib "VIC32.DLL" (ByVal fname As String, ByRef totalFrames As Long) As LongDeclare Function gifinfoallframes Lib "VIC32.DLL" (ByVal fname As String, gdata As GifGlobalData, fdata As GifFrameData, ByVal frameElem As Long) As LongDeclare Function loadgifframe Lib "VIC32.DLL" (ByVal fname As String, desimg As imgdes, gdata As GifGlobalData, fdata As GifFrameData) As Long[/php]خوب مطمئن هستم که این کدها مشکل شما عزیزان رو حل می کنه