что Блюдо имеет тип String,

        Next
        For Each Радиокнопка In GroupBox2.Controls
            If Радиокнопка.Checked Then Debug.WriteLine(Радиокнопка.Text) : Exit For
        Next
End Sub
128.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = HScrollBar1.Minimum
        Label2.Text = HScrollBar1.Maximum
End Sub
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object,  _
ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        Label3.Text = HScrollBar1.Value
End Sub
129.
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ComboBox1.SelectedIndexChanged
        ComboBox2.Text = ComboBox2.Items(ComboBox1.SelectedIndex)
End Sub
130.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Блюдо As Object
        For Each Блюдо In CheckedListBox1.CheckedItems
            Debug.WriteLine(Блюдо)
        Next
End Sub
Обратите внимание, что поскольку я «не очень уверен», что Блюдо имеет тип String, я для безопасности объявил его типом Object.
131.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Осталось ждать "  &    DateDiff("d", Today, DateTimePicker1.Value)    &   " дн.")
End Sub
132.
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles NumericUpDown1.ValueChanged
        Вычисляем_сколько_заплатили()
End Sub
Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles NumericUpDown2.ValueChanged
        Вычисляем_сколько_заплатили()
End Sub
Sub Вычисляем_сколько_заплатили()
        lbl_Сколько_заплатили.Text = NumericUpDown1.Value * NumericUpDown2.Value
End Sub
Здесь именем  lbl_Сколько_заплатили  я назвал метку.

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---