Visual Basic NET ( 3)


         

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
, , , , , , , , , ,