Как сохранить значения при установке флажка?

-1

Когда я просматриваю все галочки общее по-прежнему заканчивается время 10. Я не знаю, что происходит здесь, пожалуйста, помогитеКак сохранить значения при установке флажка?

Dim top As Integer 
    Select Case top 
     Case CheckBox1.Checked 
      top = +10 
     Case CheckBox2.Checked 
      top = +10 
     Case CheckBox3.Checked 
      top = +10 
     Case CheckBox4.Checked 
      top = +10 
     Case CheckBox5.Checked 
      top = +10 
     Case CheckBox6.Checked 
      top = +10 
    End Select 
    TextBox2.Text = top

источник

2017-01-25 Stephen Odiver

https://msdn.microsoft.com/en-us/library/cy37t14y.aspx – Hackerman

Это, кажется, не быть разумным 'Select Case' заявление. Вы должны использовать несколько операторов 'If'. –

Вы тестируете переменную 'top', которая не имеет никакого значения .... btw, я не ответил на ваш вопрос :) – Hackerman

select case заявления как if...else if заявления. Это означает, что если один из случаев истинен, никакие другие случаи не будут выполнены, даже если они являются истинными.
Изменить код на что-то вроде этого, вместо:

If CheckBox1.Checked Then 
    top += 10 
End If 
If CheckBox2.Checked Then 
    top += 10 
End If 
If CheckBox3.Checked Then 
    top += 10 
End If 
....

источник

2017-01-25 15:32:22

Как сохранить значения при установке флажка?

ответ

Смежные вопросы