1.) K tomu zisteniu execka:
Kód:
Dim cesta As String
cesta = IO.Path.GetFileName(Application.ExecutablePath)
MsgBox(cesta)
2.) Visible = false pri starte programu
Kód:
Private Sub Form1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
Me.Hide()
End Sub
3.) K tomu cyklu ...
za prve: vytvoris si globalnu premennu, v ktorej budes ukladat "PictureBoxy"
Kód:
Dim pBox As PictureBox()
potom vyuzijes nasledujuci kusok kodu, ktory podla mna vysvetlenie nepotebuje, ale ak by si potreboval aj tak, kludne napis.
Kód:
pBox = New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4, PictureBox5}
For i = 0 To 4 Step 1
pBox(i).BackColor = Color.Blue
Next
