Problem z Visual Basic

Matty094 · 23-09-2013, 09:24

Sprawdź:

Cześć mam taki kod od rockndrug'a :

Kod:
Public Class Form1


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            Dim key As Integer
            key = (Rnd() * 1)
            Select Case key
                Case 1
            End Select
            MessageBox.Show("Please check your gold in-game", "Success")
        Else
            If ProgressBar1.Value = 1 Then
                Label7.Text = "Loading.."
            End If
            If ProgressBar1.Value = 15 Then
                Label7.Text = "Detect Device"
            End If
            If ProgressBar1.Value = 25 Then
                Label2.Text = "Android 4.0.1"
            End If
            If ProgressBar1.Value = 45 Then
                Label7.Text = "Connected!"
            End If
            If ProgressBar1.Value = 55 Then
                Label7.Text = "Searching character on selected server.."
            End If
            If ProgressBar1.Value = 80 Then
                Label7.Text = "Characted found!"
            End If
            If ProgressBar1.Value = 86 Then
                Label7.Text = "Transfer ALZ to character.."
            End If
            If ProgressBar1.Value = 95 Then
                Label7.Text = "Success!"
            End If
        End If
    End Sub

I właśnie chodzi o to jak zrobić takie coś ,żeby podczas Android 4.0.1 z czerwonego koloru tekstu zmieniło się na zielony .

comanche · 23-09-2013, 11:12

Problem rozwiazany Smile

Matty094 · 23-09-2013, 11:53

Potwierdzam Comanche mi pomógł ,jak ktoś chce rozwiązanie to mogę podać Smile

v3XeR · 23-09-2013, 14:47

Taki mały offtop - czy da się robić apki do androida w Visual Basic ?

Masterjam · 23-09-2013, 14:54

(23-09-2013, 11:53)Matty094 napisał(a): Potwierdzam Comanche mi pomógł ,jak ktoś chce rozwiązanie to mogę podać

Jeśli nikt nie zastrzegł prawami autorskimi , to chętnie , przyda się Smile

Matty094 · 23-09-2013, 15:25

To podaję rozwiązanie Smile

Otóż jeżeli mamy w kodzie :

Kod:
If ProgressBar1.Value = 1 Then
                Label7.Text = "Loading.."
            End If

To jeszcze musimy dołożyć :

Label2.ForeColor = Color.Red

Powinno być tak :

Kod:
If ProgressBar1.Value = 1 Then
                Label7.Text = "Loading.."
                Label7.ForeColor = Color.Red

            End If

W miejsce color wstawiamy nazwę koloru po angielsku np. green , Yellow .
I Program sam zmieni nam kolor z czerwonego na zielony Big Grin

Może trochę byle jak tłumaczę ,ale jak ktoś czegoś nie rozumie to zapraszam na PW chętnie pomogę

comanche Stały Bywalec Liczba postów: 729 Dołączył: Jun 2012 Reputacja: 89 Forum Gold: 1.00	Post: #2 RE: Problem z Visual Basic Problem rozwiazany
Glosy:	Matty094 (+1)
23-09-2013, 11:12

Matty094 Aktywny Liczba postów: 223 Dołączył: Mar 2013 Reputacja: 64 Odznaczenia: (Zobacz Odznaczenia) Poziom: Forum Gold: 0.00	Post: #3 RE: Problem z Visual Basic Potwierdzam Comanche mi pomógł ,jak ktoś chce rozwiązanie to mogę podać
Glosy:
23-09-2013, 11:53

v3XeR Uzależniony Liczba postów: 1,449 Dołączył: Aug 2012 Reputacja: 198 Forum Gold: 126.00	Post: #4 RE: Problem z Visual Basic Taki mały offtop - czy da się robić apki do androida w Visual Basic ?
Glosy:
23-09-2013, 14:47

Masterjam Bywalec Liczba postów: 294 Dołączył: Nov 2012 Reputacja: 41 Forum Gold: 0.00	Post: #5 RE: Problem z Visual Basic (23-09-2013, 11:53)Matty094 napisał(a): Potwierdzam Comanche mi pomógł ,jak ktoś chce rozwiązanie to mogę podać Jeśli nikt nie zastrzegł prawami autorskimi , to chętnie , przyda się
Glosy:
23-09-2013, 14:54

Matty094 Aktywny Liczba postów: 223 Dołączył: Mar 2013 Reputacja: 64 Odznaczenia: (Zobacz Odznaczenia) Poziom: Forum Gold: 0.00	Post: #6 RE: Problem z Visual Basic To podaję rozwiązanie Otóż jeżeli mamy w kodzie : Kod: `If ProgressBar1.Value = 1 Then Label7.Text = "Loading.." End If` To jeszcze musimy dołożyć : Label2.ForeColor = Color.Red Powinno być tak : Kod: `If ProgressBar1.Value = 1 Then Label7.Text = "Loading.." Label7.ForeColor = Color.Red End If` W miejsce color wstawiamy nazwę koloru po angielsku np. green , Yellow . I Program sam zmieni nam kolor z czerwonego na zielony Może trochę byle jak tłumaczę ,ale jak ktoś czegoś nie rozumie to zapraszam na PW chętnie pomogę (Ten post był ostatnio modyfikowany: 23-09-2013, 15:26 przez Matty094.)
Glosy:	Masterjam (+1)
23-09-2013, 15:25

Tryb drzewa \| Tryb normalny Problem z Visual Basic Problem z Visual Basic
Autor	Wiadomość

Podobne wątki…
Wątek:		Autor	Odpowiedzi:	Wyświetleń:	Ostatni post
	Błąd przy wczytywaniu projektu Visual Studio C#	czesiuleczek	3	7,487	31-01-2018, 21:03 Ostatni post: unluckyunit
	Error Box po upływie czasu w Visual Basic	sh4kr	2	5,994	05-12-2016, 16:27 Ostatni post: shf
	Visual Basic	Wiktor220	0	5,100	12-06-2016, 13:51 Ostatni post: Wiktor220
	Wersja Visual Basic	Ravtis	0	5,235	13-02-2016, 12:34 Ostatni post: Ravtis
	visual basic c#	jacektw	1	4,112	04-12-2015, 20:40 Ostatni post: bedi25