ايران ويج

با سلام به دوستای خوبم. شرمنده شاید این سوال ها که من میکنم برای شما خیلی ابتدائی باشه ولی من چون تازه کار هستم یه مقدار سخت هست برام

من یه کتاب به نام مرجع کامل ویژوال بیسیک دارم که توی اون علاوه بر آموزش تمرین و جواب هم هست. یه مثال هست که من کل اون رو مینویسم اگه میشه بگید این جواب مشکل داره یا من بلد نیستم. قسمتی که پر رنگ میزارم متن کاملی هست که توی کتاب اومده. من 2 تا چیز رو متوجه نمیشم. یکی اینکه دکمه commondialog چی هست. یکی دیگه هم اینکه private sub cmdchane با private sub command فرق میکنه و اگه فرق میکنه چه فرقی؟

مثال:
برنامه ای بنویسید که عکس درون form1 را به دلخواه بتوانیم تغییر دهیم.
برای اینکار 2 دکمه و یک picturebox به همراه یک دکمه commondialog به فرم خود اضافه میکنیم. دکمه اولی را برای تعویض عکس و دکمه دوم را حهت خروج اختصاص میدهیم.
حال کد زیر را برای تغییر عکس وارد میکنیم:

Private Sub Cmdchane_Click()
cdlcommon.InitDir = App.Path
cdlcommon.fliter = "bitmap files(*.bmp)|*.bmp|gif files(*.gif)|*.gif|jpegfiles(*.jpg)|*.jpg)|allfiles(*.*)|*.*"
cdlcommon.showopen
x = cdlcommon.filetitle
Picture1.Picture = LoadPicture(x)
End Sub

بعد از زدن دکمه تغییر عکس ما تغییر خواهد کرد


محبت میکنید اگر جواب منو بدید

دوست عزيز

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

عنصر CommonDialog به طور پيش فرض در ليست ابزارهاي VB6 وجود نداره شما بايد ابتدا اون رو به پرو‍ژتون اضافه كنيد

براي اين كار بر روي ليست ابزار VB6 راست كليك كرده و گزينه Add Component‌رو انتخاب كنيد. سپس در پنجره باز شده از

ليستي كه داره مي تونيد ابزارهاي مورد نظرتون رو اضافه كنيد كه در اينجا بايد Microsoft Common Dialog ( دقيق يادم

نيست اسمش رو ) رو تيك بزنيد. پس از اضافه شدن اين ابزار به جعبه ابزار VB مي تونيد اون رو به فرمي كه مي خواهيد

اضافه كنيد.

اما اون دستوري كه گفتيد : Private Sub Cmdchane_Click

اين يعني دستورات مربوط به عنصري با نام Cmdchane كه در هنگام رويداد Click بايد انجام شوند. حالا اگه از اسم پيش

فرض خود VB هم استفاده كنيد مي شه Private Sub Command_Click كه عملا با هم فرقي ندارند فقط اسم اين دوتا

دكمه با هم فرق داره.

سلام دوست عزیزم. ممنون که وقت گذاشتیذ و جواب دادید.

من اون عنصر که گفتید رو پیدا کردم. فقط میخواستم بدونم این کدی که بالا هست رو باید توی قسمت command بنویسم که نوشتم.ولی پیغام یه خطا میده. توی اون قسمت Microsoft Common Dialog هم باید چیزی بنویسم یعنی توی قسمت general اون؟

پیغام خطا رو عکس گرفتم:

نیازی به cdlcommon.InitDir = App.Path نیست

و باید به جای
x = cdlcommon.filetitle

اینو قرار بدی

x = cdlcommon.filename

هنوزم ارور میده. یه جای کار ایراد داره که من سر در نمیارم.

توی اون کدی که عکسش رو گرفتم نقطه ای علامتی چیزی جا نمونده؟

cdlcommon.InitDir = App.Path رو حذف کردم روی خط بعدی ارور میده

دوست عزيز

لطفا اسم عنصرتون رو به cdlcommon تغيير بديد!

آقا ممنونم. بالاخره موفق شدم. اصلا حواسم به اسمش نبود که باید به نامی باشه که توی کد نوشته.

خیلی لطف کردید