Skocz do zawartości

Visual Basic Pomoc z kodem


danio5774

Rekomendowane odpowiedzi

        If AscProgressBar1.Value = 1 Then
            Label1.Text = "."
        End If
        If AscProgressBar1.Value = 2 Then
            Label1.Text = ".."
        End If
        If AscProgressBar1.Value = 3 Then
            Label1.Text = "..."

Witam,pomoze mi ktos z kodem?Chodzi o to żeby byla taka ala animacja ladowania jak w skrypcie powyzej ale zeby bylo to zawarte w kilku linijkach.W tym skrypcie co dalem musialbym zrobic analogicznie do 100 ;/

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

Też proponowałbym zrobić podobnie jak napisał coffe. Incerment timera zmniejszyłbym i ustawiłbym co np. 5 punktów czyli

If AscProgressBar1.Value = 1 Then
            Label1.Text = "."
        End If
        If AscProgressBar1.Value = 5 Then
            Label1.Text = ".."
        End If
        If AscProgressBar1.Value = 10 Then
            Label1.Text = "..."

itd. 

Pewnie są inne sposoby, ale ten jest chyba najprostszy.

  • Super 1
Odnośnik do komentarza
1 minutę temu, Skipi napisał:

Po co piszesz takie bzdury ?

To powiedz mi w jaki sposób chcesz na przykład w pętli ustawić, żeby tam po każdym procencei był inny tekst. Oczywiście można to powyżej skrócić, no ale jednak będzie trochę tego. Zresztą po co na każdy pojedynczy procent ustawiać tekst? Ustaw sobie na przykład co 12-15% :) Ja tak ustawiałem, miałem może 8-10 takich wykonań.

  • Super 1
Odnośnik do komentarza

To może coś takiego? (Nie mam jak teraz sprawdzić czy działa to jak trzeba, ale powinno)

Jeśli ma chodzić w równym tempie (wrzucone w timera)

	If Label1.Text="." Then
		Label1.Text=".."
	Elseif Label1.Text=".." Then
		Label1.Text="..."
	Elseif Label1.Text="..." Then
		Label1.Text="."
	End if

Jeśli animacja ma być zależna od postępu to użyłbym timera który co określony czas sprawdza czy pasek ruszył się do przodu

	Dim WartoscStara As Integer=0
	Dim WartoscNowa As Integer=0
	
	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		WartoscNowa=AscProgressBar1.Value

		If WartoscNowa>WartoscStara Then
		
			WartoscStara=WarstoscNowa
			If Label1.Text="." Then
				Label1.Text=".."
			Elseif Label1.Text=".." Then
				Label1.Text="..."
			Elseif Label1.Text="..." Then
				Label1.Text="."
			End if
		
		End if
			

    End Sub
Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .