Problem z Visual Basic - Wersja do druku

Problem z Visual Basic - Wersja do druku

+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: Off-Topic (https://zarabiam.com/Forum-Off-Topic-9)
+--- Dział: Programowanie (https://zarabiam.com/Forum-Programowanie-364)
+--- Wątek: Problem z Visual Basic (/Temat-Problem-z-Visual-Basic-76819)

Problem z Visual Basic - Matty094 - 23-09-2013

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 .

RE: Problem z Visual Basic - comanche - 23-09-2013

Problem rozwiazany Smile

Smile

RE: Problem z Visual Basic - Matty094 - 23-09-2013

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

Smile

RE: Problem z Visual Basic - v3XeR - 23-09-2013

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

RE: Problem z Visual Basic - Masterjam - 23-09-2013

(23-09-2013, 10: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

Smile

RE: Problem z Visual Basic - Matty094 - 23-09-2013

To podaję rozwiązanie Smile

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

Big Grin

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