سلام دوستان
من قصد دارم تو VB6 محیطی رو ایجاد کنم که ازم شماره بگیره و عکس مربوط به اون شماره رو از تو فولدر مشخصی نمایش بده اما تو کتابها که چیزی پیدا نکردم .
دوستان ممنون میشم رهنمایی کنید .
من تو VB تازه کارم .
موفق باشید
سلام دوستان
من قصد دارم تو VB6 محیطی رو ایجاد کنم که ازم شماره بگیره و عکس مربوط به اون شماره رو از تو فولدر مشخصی نمایش بده اما تو کتابها که چیزی پیدا نکردم .
دوستان ممنون میشم رهنمایی کنید .
من تو VB تازه کارم .
موفق باشید
سلام علیکم
یک textbox و commandbutton با نام های Text2و Command1 بر روی فرم قرار بدین، و کد های زیر را در ماژول فرم کپی کنین:
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(App.Path & "\" & Text1 & ".jpg")
End Sub
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
سلام
همون کارهایی رو که فرمودید انجام دادم و عکس های مورد نظرمو ریختم تو همون فولدری که برنامه رو ذخیره کرده بودم .
اما برنامه کار خاصی رو انجام نمی ده .
به نظر شما چیکار باید انجام بدم.
متشکر
موفق باشید
آخرین ویرایش به وسیله coloory : یک شنبه 13 شهریور 1390 در 01:15 صبح
سلام علیکم برای نمایش تصاویر باید یک PictureBox بر روی فرم ایجاد کنید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
سلام
دوست خوبم از اینکه محبت میکنید و جواب میدید ممنونم .
یه اشکال کوچیک تو نوشتن دستور بود که حل شد ولی حالا یه مسئله ی دیگه هیت .
میخوام اگر اسم وارد شده تو تکست باکی توی فایل ها وجود نداشت یه ارور بده و بعد اسم جدید رو طلب کنه .
حالا باید چطور بنویسم .
ممنون .
یه موضوع دیگه که اذیت میکنه اینه که فقط توانایی نمایش فایل های GIF رو داره .
نمیشه کاری کرد که پسوند های GPEG رو هم نمایش بده ؟؟؟
موفق باشید
سلام علیکمنوشته شده توسط coloory
برای نمایش یک پیام خطا میتوانید به روش های مختلفی موجودیت فایل را بررسی کنید هم توسط تابع Dir ، دستور Open هم APIی PathFileExists و ... که در زیر از Dir استفاده شده است:
Private Sub Command1_Click()
On Error Resume Next
Dim sfle_pth$
sfle_pth$ = App.Path & "\" & Text1 & ".jpg"
If Not Dir(sfle_pth$) = Empty Then
Picture1.Picture = LoadPicture(sfle_pth$)
Else
MsgBox "'" & sfle_pth$ & "' was not found!" & vbCrLf & "Please try again.", vbCritical, "Error"
End If
End Sub
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
همانطور که میدانیم در وی بی از فرمت های تصویر gif,bmp, Metafile و Icon پشتیبانی میشود، شما میتوانید برای انتخاب نوع تصویر از یک combobox برای اینکار استفاده کنید، یعنی فرمت های مختلف را در آن اضافه کرده که با انتخاب هر فرمت، در دستور باگذاری، تصویر با فرمت انتخاب شده بارگذاری شودنوشته شده توسط coloory
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
سلام به همه
چطوری عکس های بزرگ رو موقع نمایش محدود کنم ؟؟
آخه بعضی از عکس ها خیلی بزرگ هستن و از پنجره بیرون میزنن و بخشهایی از اونها دیده نمیشه .
ممنون
موفق باشید
ببخشید سوالام زیاد شد
کار این خط از برنامه چیه ؟؟
چرا فرمتش jpg انتخاب شده ؟؟
sfle_pth$ = App.Path & "\" & Text1 & ".jpg"
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
یه موضوعدیگه اینکه :
نمیشه اسم عکس ها رو اعداد تکراری مثل 222 یا 111 یا از این دست و یا اینکه حروف انتخاب کرد و باید حتما عدد باشه!!!!!!!
متشکرم
سلام
گفتم شاید این برنامه به درد کسه دیگه هم بخوره :
Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path & "\" & "Picture" & "\" & "nofile.gif")
End Sub
Private Sub Text1_LostFocus()
On Error Resume Next
Dim sfle_pth$
sfle_pth$ = App.Path & "\" & Text1 & ".jpg"
If Not Dir(sfle_pth$) = Empty Then
Picture1.Picture = LoadPicture(App.Path & "\" & "Picture" & "\" & Text1 & ".gif")
Else
Rem MsgBox "'" & "' was not found!" & vbCrLf & "Please try again.", vbCritical, ". íÏÇ äÔÏ ."
Picture1.Picture = LoadPicture(App.Path & "\" & "Picture" & "\" & "nofile.gif")
Rem("App.Path \nofile.gif")
Beep
Text1 = Empty
End If
End Sub
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
سلام
منظورم سوال بود که اون هم با رفع اشکال از کد نویسی حل شد .
فقط الان 3 تا موضوع باقی مونده که اگر حل بشن تقریبا کارم تمومه.
1-عکس ها بزرگ هستند و از کادر پنجره نمایش بیرون میزنن
2-عکسهای با فرمت JPEG رو نمیتونم به نمایش در بیارم
3-ارتباط با پایگاه داده (که اون هم تقریبا حل شده هست )
از اینکه لطف دارید و سریع پاسخ می دید ممنونم.
موفق باشید
آخرین ویرایش به وسیله coloory : پنج شنبه 17 شهریور 1390 در 08:07 صبح
سلام
کسی نیست کمک کنه ؟؟
نسبت به سوالات قبلی از بابت کمکهاتون ممنونم.
موفق باشید
سلام علیکم
همانگونه که در پست های قبل هم عرض شد با فعال کردن گزینه Structure مشکل نمایش تصاویر بزرگ حل میشه1-عکس ها بزرگ هستند و از کادر پنجره نمایش بیرون میزنن
تا آنجایی که بنده اطلاع دارم vb با فرمت های عمومی همانند jpeg و bitmap مشکلی ندارد2-عکسهای با فرمت JPEG رو نمیتونم به نمایش در بیارم
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
سلام علیکم
بعضی از کدها را متوجه نشدم مثلا چرا زمانی که فایل sfle_pth$ وجود دارد تصویر دیگری نمایش داده میشود، البته ممکن است خطای برنامه نویسی باشد
در دستور بالا در هر حال در صورتیکه فایل sfle_pth$ وجود داشته باشد تصویر با فرمت gif از پوشه ای مشخص نمایش داده میشود، که میتواند مشکل از این قسمت باشد
همچنین در صورتیکه فایل sfle_pth$ یافت نشد هم میتوانیم از تابع LoadPicture و هم از Nothing برای حذف تصویر فعلی PictureBox استفاده کنیم
کد زیر را بررسی کنید:
Private Sub Form_Load()
'Picture1.Picture = LoadPicture(App.Path & "\" & "Picture" & "\" & "nofile.gif")
Picture1.Picture = LoadPicture
End Sub
Private Sub Text1_LostFocus()
On Error Resume Next
Dim sfle_pth$
sfle_pth$ = App.Path & "\" & Text1 & ".jpg"
If Not Dir(sfle_pth$) = Empty Then
'Picture1.Picture = LoadPicture(App.Path & "\" & "Picture" & "\" & Text1 & ".gif")
Picture1.Picture = LoadPicture(sfle_pth$)
Else
'Picture1.Picture = LoadPicture(App.Path & "\" & "Picture" & "\" & "nofile.gif")
' Picture1.Picture = LoadPicture
Set Picture1.Picture = Nothing
Text1 = Empty
Beep
End If
End Sub
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
دوست عزيز تو بايد واسه بارگذاري عکس هات چند تا کار انجام بدي:
اول اينکه از CommonDialog استفاده کن
دوم اينکه بر روي CommonDialog فيلتر بذار
سوم اينکه بقيه کد هاشو تو يه دکمه بزن و اينقدر وقت خودتو الکي تلف نکن
اين کاري که شما داري انجام ميدي کاملا بي معنيه
موفق باشي
سلام
این تاپیک دیگه بسته شده و فکر نکنم اون کسی که سوال پرسیده دوباره بیاد
اما اگه میخواهید جواب بدید این سوال رو جواب بدید تا دوباره تاپیک بیاد بالا و مشکل من هم حل بشه:
تصاویر با فرمت gif رو چطوری ازشون در برنامه استفاده کنم؟موقع استفاده کردن فقط فریم اول رو نشون میده.(یعنی اولین عکس رو نشون میده , و تصاویر بعدی رو نشون نمیده که تصویر حالت متحرک پیدا کنه )
هم از image و هم از picture اسفاده کردم اما جواب نداد
شما باید از کامپوننتی ستفاده کنی که فایل gif رو پشتیبانی کنه
سلام
البته اگه دارید اگه ممکنه کامپونت رو با یه توضیح مختصر قرار بدید عالی میشه...
ممنونم
یه نمونش اینه
فایل gif رو داخلش لود کن و بعد با play اجراش کن.
ممنون دوست عزیز
با این دوخط اجراش کردم:
AniGIF1.ReadGIF (Path)
AniGIF1.Play
نمیدونم منظورتون همین بود یانه.
به هر حال دستتون واقعا درد نکنه...