VB - cyklus

BBUlet · Napísal **BBUlet**: 13.05.2009 16:35

Zdravím,
dajme tomu že mam 20 pictureboxov pomenované od pic1 až po pic20, ako nastavím cyklom pozadie na všetky napr na modré?...pozadie viem nastaviť ide mi hlavne o zápis
+
Ako zistím názov súboru ktorý užívateľ zapne... napr budem mat súbor "project.exe" (moja aplikácia) on si ho premenuje na "nazov.exe" a ako mam dostať ten názov cez ktorý užívateľ spustil program?

stopa27 · Napísal **stopa27**: 13.05.2009 23:25

1.: skus pocas behu vytvorit 20 prvkove pole pictureboxov, alebo urob 20 pictureboxov klasicky a adresu kazdeho z nich uloz do nejakeho pola, potom mozes pracovat normalne v cykle.
2.: funkcia GetCommandLineA vrati ukazovatel na retazec obsahujuci parametre programu, pricom hned na zaciatku je uplny nazov programu (aj s cestou)

BBUlet · Napísal autor témy **BBUlet**: 13.05.2009 23:35

dik vyskúšam
+
ešte by som chcel vedieť ako spravím aby po loadnutí formu sa nastavil visible na false
mam:

Kód:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
me.visible=false
end sub

ale nejde to

Patkoo · Napísal **Patkoo**: 21.05.2009 11:19

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

VB - cyklus

Podobné témy