Witaj gościu! Zaloguj się lub Zarejestruj aby móc korzystać ze wszystkich funkcjonalności jakie oferuje to forum! Rozpocznij zarabianie przez internet, poznaj korzysci pracy w domu! Rejestracja i korzystanie z forum jest całkowicie darmowe!
Praca w domu - Dodatkowa Praca - Zarabianie przez Internet
Problem z Visual Basic - Wersja do druku

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

Problem z Visual Basic - Matty094 - 23-09-2013 08:24

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 10:12

Problem rozwiazanySmile

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

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

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

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

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

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

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

RE: Problem z Visual Basic - Matty094 - 23-09-2013 14: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ę Jerk2