Къде греша (Visual Basic)

[ArminVanBuuren]

Здравейте!

Имам за задача да направя във Visual Basic форма, която при посочване на ден, месец, година да извежда зодията, хороскопа и зодията по китайския календар.В моя случай обаче след няколко въвеждания картинките за зодията не се сменят, но лейбъла, в който е зададено да се извеждат зодиите се изписват и сменят.

Качил съм проекта и моля някой да открие грешката:

 

http://tranz.it/load.php?id=BvxLhyLEJr8sKNI634935

[crio]

Ами може би, защото са една върху друга... преминах изцяло на линукс и малко трудно ще ми е да пробвам кода, но мисля, че там е грешката. Промени кода така, че при всяко избиране на зодия ZOrder атрибута на картинката да става на 0 (1 я праща най-отзад). Мисля, че ще проработи.

[ArminVanBuuren]

Как да го направя това?

Да, картинките са една в/у друга и на всеки image е дадено свойството Visible да е False, а Stretch да е True.Ето сега например за януари, съвсем кратък пример:

(lbl6 извежда хороскопа, а imgko си е image, който предварително е зареден чрез свойство Picture ... lbl2 извежда с думи зодията.И при lbl2 се сменя текста според зададения код, но картинката не се сменя.Същото се отнася з акомандата и с китайския хороскоп.

 

Private Sub ZodiqHoroscop_Click()
Dim d As Integer
Dim m As String
Dim y As Integer
dim s As String
d = cmb1.Text
m = cmb2.Text
y = cmb3.Text
Select Case m
Case "Януари"
If d < 21 Then
s = "Козирог"
imgko.Visible = True
lbl6.Caption = "Денят е благоприятен за обогатяване с нова информация. Възможни са сблъсъци с ръководството, но ако сте търпеливи и знаете какво искате, ще изясните проблемите без много усилия."
Else
s = "Водолей"
imgvo.Visible = True
lbl6.Caption = "Ще отхвърлите много работа, но резултатите няма да ви задоволят. Няма да сте доволни и от подписаните договори и споразумения, но те ще ви донесат добри приходи"
End If
End Select 
lbl2.caption=s
.....
.....
Private Sub Kitaiskikalendar_Click()
If cmb3.Text = "1973" Or cmb3.Text = "1985" Or cmb3.Text = "1997" Then
imgbik.Visible = True
lbl3.Caption = "Бик"
End If
........
........

[crio]

Ами всеки път когато трябва да се покаже снимката на зодията, трябва заедно с visible атрибута да промениш и zorder.

[ArminVanBuuren]

Точно така.

Благодаря ти за пореден път!

Весели празници!