Элемент управления ImageList мы назвали

        PictureBox1.BackColor = Color.Transparent
        Кадры.TransparentColor = Color.White
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static N As Integer
        Select Case N
            Case 0 : PictureBox1.Image = Кадры.Images(1)
            Case 1 : PictureBox1.Image = Кадры.Images(2)
            Case 2 : PictureBox1.Image = Кадры.Images(3)
            Case 3 : PictureBox1.Image = Кадры.Images(2)
        End Select
        N = (N + 1) Mod 4
        PictureBox1.Left = PictureBox1.Left - 10
End Sub
Пояснения: Элемент управления ImageList мы назвали Кадры.
140.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Реши_задачу(TreeView1)
End Sub
Sub Реши_задачу(ByVal Вершина As Object)
        If Вершина.GetNodeCount(False) = 2 Then Вершина.BackColor = Color.Yellow
        Dim Дочь As TreeNode
        For Each Дочь In Вершина.Nodes
            Реши_задачу(Дочь)
        Next
End Sub
141.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Реши_задачу(TreeView1)
End Sub
Sub Реши_задачу(ByVal Вершина As Object)
        Dim K As Integer = 0                                             'Счетчик детей, имя которых начинается на Л
        Dim Дочь As TreeNode
        For Each Дочь In Вершина.Nodes
            If Дочь.Text.StartsWith("Л") Then K = K + 1
            Реши_задачу(Дочь)
        Next
        If K = 2 Then Вершина.ForeColor = Color.Blue
End Sub
142.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Реши_задачу(TreeView1)
End Sub
Sub Реши_задачу(ByVal Вершина As Object)
        Dim Дочь As TreeNode
        For Each Дочь In Вершина.Nodes
            Реши_задачу(Дочь)

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

---

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

---

---

---