Çözüldü Şarta Bağlı olarak UserForm Üzerine Resim Ekleme Hakkında..

[yesimgurol]

Merhabalar,

1- Userform1 'e veri girişi yaptığımda ,

2- Userform1 açıkken userform3'ü açıyorum ve form güncelle dediğimde ilgili değerler textboxlara alınmakta,

3 - Userform3 üzerinde bulunan labeller ise bu textboxların dolu olup olmamasına göre renklendirilmekte,

- Textbox 1 dolu ise Label69

- Textbox 2 dolu ise Label67

- Textbox 3 dolu ise Label65

- Textbox 4 dolu ise Label60

- Textbox 5 dolu ise Label62 labelleri yeşil renkte olmakta.

Bu durum için kullanmış olduğum kod aşağıdaki şekildedir.

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then

Label69.BackColor = &HE0E0E0
Exit Sub
End If
If TextBox1.Value <> "" Then

Label69.BackColor = &H80FF80
End If
End Sub

4- Bunlara ek olarak userform3 üzerinde bulunan ımage1 ve ımage2'nin şarta bağlı olarak gelmesini istemekteyim, yani hali hazırdaki kodları da aşağıdaki şekliyle revize etme arzusundayım.

- Textbox 1 dolu ise Label69 yeşil + ımage1

- Textbox 2 dolu ise Label67 yeşil + ımage1

- Textbox 3 dolu ise Label65 yeşil + ımage1

- Textbox 4 dolu ise Label60 yeşil + ımage1

- Textbox 5 dolu ise Label62 yeşil + ımage1

-Textbox 1 boş ise Label69 gri + ımage2

-Textbox 2 boş ise Label67 gri + ımage2

-Textbox 3 boş ise Label65 gri + ımage2

-Textbox 4 boş ise Label60 gri + ımage2

-Textbox 5 boş ise Label62 gri + ımage2

 

[yesimgurol]

Merhaba sayın "pitchoute"
Öncelikle ilginiz için teşekkür ederim. Emeğinize sağlık. Denedim şimdi yalnız şöyle ki;

Burada evet istediğim gibi Textbox1 dolu label yeşil ve image1 geldi, fakat textbox2 boş evet label (ödeme yazan) gri ama burada image2 olması lazım.



Burada da texbox1-2 dolu labeller yeşil oldu evet, fakat diğer label (ödeme) üzerinde image1 gelmedi:-(



Burada da textbox2 dolu image1 gelmesi lazımken image2 geldi ve textbox1 boş olduğundan ilk label üzerine de image2 gelmesi gerekiyordu:-(

Bu çalışmada aslında yapmak istediğim hani kargo takip ekranı gibi olmasını istiyordum.

 

[yesimgurol]

Aşağıdaki şekilde uyarı aldım:-(

 

[yesimgurol]

Ben örnek olması için ImgOK1/ImgErr1, ImgOK2/ImgErr2… diye beşer çift Image koymanızı önerdim; ama siz formunuza koyduğunuz Image’ların isimleri farklıysa, kodu ona göre değiştirmeniz gerekmekte.

Sayın "pitchoute", emeklerinize sağlık şimdi oldu ve harika oldu hem de sayenizde
Saygılarımı sunuyorum. Çok teşekkür ederim.