[Problem] VB progress bar + przwijający tekst

[XmaximusX]

Witam, chodzi mi o to jak ładuje się progress bar to chciał bym jeszcze żeby przewijał się tekst.. Tak ja przy instalacji np; jakiegoś programu.

 

 

[Gość]

Nie ma to jak brak pytania, w pytaniu.

[XmaximusX]

Jak zrobić gdy ładuje sie progress bar, żeby jeszcze do niego dadać text który sie zmienia np: jak przy instalcji ?

chodzi mi o kod na to..

 

Teraz rozumiesz ?

[Gość]

No to zrób drugi wątek, w którym będziesz zmniejszał pozycję Y tego tekstu.

[Maciek2699]

Text ma sie zmieniac w sensie tekstu, czy localizacji ? Tekst to bedzie label1.text ="co tam chcesz", a lokalizacji to Label1.Location = New Point(5, Label1.Location.Y + 1) 5 to wartosc X, a to drugie to Y, 1 oznacza o ile pikseli ma sie przemieszczać obiekt. Bedzie szlo z gory do dolu tu masz z lewej do prawej Label1.Location = New Point(Label1.Location.X + 1, 100)

a tu z prawej do lewej mozna zrobic krócej label1.left -= 1 <- o ile pikseli.

 

Aha jeszcze co do textu jako tekstu w progresbarze mozesz zrobic

if progresbar1.value = 30 <- np, moze byc 50, 100 itp then

label1.text ="cos tam"

end if

 

Mam nadzieje ze nic nie pomieszalem

[shniper]

Potrabne do najprostrzego

Button Timer Progressbar i Label

Kody

Kod do buttona:
Button1.Enabled = False
Timer1.Interval = "2000"
Timer1.Start()
ProgressBar1.Value = "0"

Kod do Timera:
ProgressBar1.Value = ProgressBar1.Value + "20"
        If ProgressBar1.Value = "20" Then
            Label1.Text = "Trolololooo"
        End If
        If ProgressBar1.Value = "40" Then
            Label1.Text = "Trolololo xD"
        End If
        If ProgressBar1.Value = "60" Then
            Label1.Text = "Trolololo Koniec"
            Timer1.Stop()
            Button1.Enabled = True
        End If

masz tu małego gotowca

Link:http://pl.rghost.net/43827105

Skan:http://virusscan.jotti.org//en/scanresult/c9043530fee957e7131a72147887886add581245 0/0

 

Mam nadzieję że pomogłem dla mnie to 3 min pisania 15 uploadu ;d

[Maciek2699]

@Up to bardzo wolno piszesz, własciwie to po co tu to wstawiles ?

[Gość]

Potrabne do najprostrzego

Button Timer Progressbar i Label

Kody

Kod do buttona:
Button1.Enabled = False
Timer1.Interval = "2000"
Timer1.Start()
ProgressBar1.Value = "0"

Kod do Timera:
ProgressBar1.Value = ProgressBar1.Value + "20"
        If ProgressBar1.Value = "20" Then
            Label1.Text = "Trolololooo"
        End If
        If ProgressBar1.Value = "40" Then
            Label1.Text = "Trolololo xD"
        End If
        If ProgressBar1.Value = "60" Then
            Label1.Text = "Trolololo Koniec"
            Timer1.Stop()
            Button1.Enabled = True
        End If

masz tu małego gotowca

Link:http://pl.rghost.net/43827105

Skan:http://virusscan.jotti.org//en/scanresult/c9043530fee957e7131a72147887886add581245 0/0

 

Mam nadzieję że pomogłem dla mnie to 3 min pisania 15 uploadu ;d

Nie ucz innych zanim sam się nie nauczysz, bo Twój kod do kosza się nadaje.

[edekelo]

Nie ucz innych zanim sam się nie nauczysz, bo Twój kod do kosza się nadaje.

 

może i nie profesjonalny, ale mi sie przydał, szukałem kodu jak zrobić aby progressbar dłużej się ładował. na innych stronach podają kilka linijek kodu z której nic nie da sie zrozumieć, a tu wystarczyło do timera dodać

 

Timer1.Interval = "2000"
 

 

a jak taki mądry to mogłeś podać lepszy kod.

sory za odkop ;D

[Gość]

a jak taki mądry to mogłeś podać lepszy kod.

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TryCast(sender, Control).Enabled = False
        ProgressBar1.Value = ProgressBar1.Minimum
        Timer1.Interval = 2000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If ProgressBar1.Value + 20 <= ProgressBar1.Maximum Then
            ProgressBar1.Value += 20
        Else
            ProgressBar1.Value += ProgressBar1.Maximum - ProgressBar1.Value
        End If
        Select Case ProgressBar1.Value
            Case 20
                Label1.Text = "abc"
            Case 40
                Label1.Text = "def"
            Case 60
                Label1.Text = "koniec"
                Button1.Enabled = True
                TryCast(sender, Timer).Stop()
        End Select
    End Sub
End Class