[فوری] نیاز سبز و حیاتی برای ساخت یه فرم!!

[omid_phoenix]

یعنی این شکلی؟

کد:

Private Sub Combo1_click()

Select Case Combo1.Text

   Case "Title1"
       picadr = "title1Pic.jpg"

   Case "title2"
       picadr = "title2pic.jpg"

   Case "Title3"
       picadr = "title3Pic.jpg"

   Case "title4"
       picadr = "title4pic.jpg"

End Select

image1.Picture = LoadPicture(picadr)

End Sub

[javad917]

با سلام
یک نمونه کد . عکس ها در مسیر نصب برنامه و داخل فایل images قرار دارند :

کد:

     If Combo2.ListIndex <= 0 And Text4.Text = "" And Combo3.ListIndex > 0 Then
     Image2.Picture = LoadPicture(App.Path & "\images\1unpws.jpg")
     End If
     If Combo2.ListIndex > 0 And Text4.Text <> "" And Combo3.ListIndex > 0 Then
     Image2.Picture = LoadPicture(App.Path & "\images\1unpfw.jpg")
     End If

[omid_phoenix]

یعنی این شکلی؟

کد:

Private Sub Combo1_click()

Select Case Combo1.Text

   Case "Title1"
       picadr = "title1Pic.jpg"

   Case "title2"
       picadr = "title2pic.jpg"

   Case "Title3"
       picadr = "title3Pic.jpg"

   Case "title4"
       picadr = "title4pic.jpg"

End Select

image1.Picture = LoadPicture(picadr)

End Sub

مهدی جان یه ارور میگیره
فرمت...dim picadr درست هست؟

[Di Di]

ببخشید من چند روزی نبودم

فرم شما دارای اشتباهات زیادی بود

* از مهمترین خصیصه های VB6 اینه که لازم نیست متغییر ها رو از ابتدا تعریف کنید اما اگر Option Exploit رو اول کدها قرار بدید خودتون رو  مجبور کردید تا قبل از استفاده از هر متغییری اول  اون رو به جناب کامپایلر معرفی کنید!! ( یه چیز تو مایه های توافق هسته ای !) اون خطایی که گفتید حاصل همین دو کلمه کد بی ارزش هست!!

* اون تیکه کدی که من فرستادم داره با نام آیتم ها کار می کنه و فرض کرده آیتم اول مقدارش "Titel1" هست خوب مصلما وقتی  آیتم های شما در کامبو باکس تغییر کرده این متن ها هم باید تغییر کنه دیگه!

* بعد از انتخاب آیتم مورد نظر برنامه می خواد بره عکس مربوطه رو لود کنه که در پوشه شما هیچ عکسی وجود نداشت

* عنصر Image رو به برنامه اضافه کردید ولی نامش در کد برنامه Image1 هست و خوب برنامه عنصری با این نام پیدا نمی کرد و خطا می داد

* زمانی که یک عنصر مثل Label یا هر عنصر دیگه ای رو کپی می کنید، اگر عنصری از اون جنس و با همون نام وجود داشته باشه ازتون در خصوص ایندکس کردنشون سوال می پرسه و در اینجا لازم نبود شما این دوتا لیبل رو ایندکس کنی

در ضمن برنامه ای که دارید می نویسید قطعا باید یک بانک اطلاعاتی داشته باشه وگرنه ممکنه بالاخره کار کنه اما اصول مهندسی رو رعایت نکردید و قطعا اگر بخواهید گسترشش بدید با شکست مواجه می شید

فایل اصلاح شده برنامه :

  form.rar (اندازه: 2.59 MB / تعداد دفعات دریافت: 57)

امیدوارم کمک کنه

[omid_phoenix]

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

[Di Di]

خواهش می کنم قابلی نداشت

نبینم دوستای خوبم تو فروم برای تکمیل کردن کارهاشون درخواست انجام پروژه دادن!   (;   :lool: