Fa نمايش تصويرانتخاب شده

nazary2009 · Jul 31, 2012

سلام مي خواستم ببينم براي اينكه تصويري را كه كاربرازمنويopenfileانتخاب مي كنه رودربرنامه نشون بدم بايد چه كاركنم

وهمين طوربراي نمايش تصاوير موجود دريك پوشه دربرنامه چه كدي مي خواد ممنون

silvercover · Jul 31, 2012

جواب سوالات شما در یه نمونه هایی به اسم test_image_viewer.mbd و imagedemo.mbd در مسیر Program Files\Multimedia Builder498\Samples\495_examples\images پیدا میشه.

nevercom · Jul 31, 2012

کد:

[COLOR=#000090][B]OpenFile[/B][/COLOR]("Images|*.jpg|All Files|*.*||","*.jpg") 
[COLOR=#0000FF]If[/COLOR] (OpenFile$ = [COLOR=#800000]''[/COLOR]) [COLOR=#0000FF]Then[/COLOR] 
  [COLOR=#000090][B]Return[/B][/COLOR]() 
[COLOR=#0000FF]End[/COLOR] 
[COLOR=#000090][B]ViewImage[/B][/COLOR]("OpenFile$","CENTER") 
 
[COLOR=#009000]***************************************************[/COLOR] 
 
[COLOR=#000090][B]OpenFile[/B][/COLOR]("Images|*.jpg|All Files|*.*||","*.jpg") 
[COLOR=#0000FF]If[/COLOR] (OpenFile$ = [COLOR=#800000]''[/COLOR]) [COLOR=#0000FF]Then[/COLOR] 
  [COLOR=#000090][B]Return[/B][/COLOR]() 
[COLOR=#0000FF]End[/COLOR] 
[COLOR=#000090][B]ReplaceImage[/B][/COLOR]("HotSpot","OpenFile$")

در روش دوم یک شئ HotSpot (میتونه HotSpot, Polygonal HotSpot و یا Bitmap باشه) ایجاد کنید، تصویر انتخابی در اون شئ نمایش پیدا میکنه

nazary2009 · Aug 1, 2012

nevercom گفت:

کد:

[COLOR=#000090][B]OpenFile[/B][/COLOR]("Images|*.jpg|All Files|*.*||","*.jpg") 
[COLOR=#0000FF]If[/COLOR] (OpenFile$ = [COLOR=#800000]''[/COLOR]) [COLOR=#0000FF]Then[/COLOR] 
  [COLOR=#000090][B]Return[/B][/COLOR]() 
[COLOR=#0000FF]End[/COLOR] 
[COLOR=#000090][B]ViewImage[/B][/COLOR]("OpenFile$","CENTER") 
 
[COLOR=#009000]***************************************************[/COLOR] 
 
[COLOR=#000090][B]OpenFile[/B][/COLOR]("Images|*.jpg|All Files|*.*||","*.jpg") 
[COLOR=#0000FF]If[/COLOR] (OpenFile$ = [COLOR=#800000]''[/COLOR]) [COLOR=#0000FF]Then[/COLOR] 
  [COLOR=#000090][B]Return[/B][/COLOR]() 
[COLOR=#0000FF]End[/COLOR] 
[COLOR=#000090][B]ReplaceImage[/B][/COLOR]("HotSpot","OpenFile$")

در روش دوم یک شئ HotSpot (میتونه HotSpot, Polygonal HotSpot و یا Bitmap باشه) ایجاد کنید، تصویر انتخابی در اون شئ نمایش پیدا میکنه

باتشكرازراهنماييتان فقط يه سوال اگه بخوام 2تا تصوير كه توي يه پوشه خاص قرارداره رو توي برنامه نشون بدم بايد چه كنم (تصاوير داخل پوشه ممكن است تغيير كنند)

nevercom · Aug 1, 2012

اگر نام تصاویر مشخص هست، یعنی درواقع یک تصویر خاص که با نامش شناسایی میشه باید نمایش داده بشه، که آدرس تصویر رو در یک متغیر میریزید و نمایش میدید.

اگر نام تصاویر مشخص نیست و مثلاً قصد دارید هر چند تا تصویر که در یک پوشه ی خاص موجود هست رو نمایش بدید (مثل گالری)، اول اون پوشه رو برای فایل های تصویری جستجو میکنید و بعد آدرس تصویر رو از لیستی که حاوی نتیجه ی جستجو هست می خونید و نمایش می دید:

کد:

SearchForFiles("<SrcDir>\Images","jpg, jpeg, bmp")
For i=1 To CBK_NumInList
  LoadText("PicPath$","STRING:<List>i")
  ViewImage("PicPath$","CENTER")
  Pause("3000")
Next i

nazary2009 · Aug 1, 2012

nevercom گفت:
اگر نام تصاویر مشخص هست، یعنی درواقع یک تصویر خاص که با نامش شناسایی میشه باید نمایش داده بشه، که آدرس تصویر رو در یک متغیر میریزید و نمایش میدید.

اگر نام تصاویر مشخص نیست و مثلاً قصد دارید هر چند تا تصویر که در یک پوشه ی خاص موجود هست رو نمایش بدید (مثل گالری)، اول اون پوشه رو برای فایل های تصویری جستجو میکنید و بعد آدرس تصویر رو از لیستی که حاوی نتیجه ی جستجو هست می خونید و نمایش می دید:

کد:

SearchForFiles("<SrcDir>\Images","jpg, jpeg, bmp") For i=1 To CBK_NumInList LoadText("PicPath$","STRING:<List>i") ViewImage("PicPath$","CENTER") Pause("3000") Next i

سلام فقط مي خوام 2تاعكس وداخل خود برنامه نمايش داده بشه كجاي كدهايي روكه گذاشتيدبايدتغييربدم