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!
Polska społeczność o zarabianiu przez internet, pracy w domu i dodatkowej pracy online Zobacz dzisiejsze dyskusje →
Praca w domu - Dodatkowa Praca - Zarabianie przez Internet / Off-Topic / Programowanie v / Problem z Visual Basic
Odpowiedz 
Problem z Visual Basic » Problem z Visual Basic

Autor Wiadomość
Matty094 Offline
Aktywny
*
Liczba postów: 223
Dołączył: Mar 2013
Reputacja: 64 +
Galeria Wygranych: Tutaj
Odznaczenia:

(Zobacz Odznaczenia)
Poziom:
Forum Gold: 0.00
Post: #1
Problem z Visual Basic
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 .
(Ten post był ostatnio modyfikowany: 23-09-2013 08:26 przez Matty094.)
23-09-2013 08:24
Odpowiedz cytując ten post
comanche Offline
Stały Bywalec
*
Liczba postów: 729
Dołączył: Jun 2012
Reputacja: 89 +
Galeria Wygranych: Tutaj
Forum Gold: 1.00
Post: #2
RE: Problem z Visual Basic
Problem rozwiazanySmile
Glosy: Matty094 (+1)
23-09-2013 10:12
Odpowiedz cytując ten post
Matty094 Offline
Aktywny
*
Liczba postów: 223
Dołączył: Mar 2013
Reputacja: 64 +
Galeria Wygranych: Tutaj
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ć Smile
23-09-2013 10:53
Odpowiedz cytując ten post
v3XeR Offline
Uzależniony
*
Liczba postów: 1,449
Dołączył: Aug 2012
Reputacja: 198 +
Galeria Wygranych: Tutaj
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 ?
23-09-2013 13:47
Odpowiedz cytując ten post
Masterjam Offline
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 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
23-09-2013 13:54
Odpowiedz cytując ten post
Matty094 Offline
Aktywny
*
Liczba postów: 223
Dołączył: Mar 2013
Reputacja: 64 +
Galeria Wygranych: Tutaj
Odznaczenia:

(Zobacz Odznaczenia)
Poziom:
Forum Gold: 0.00
Post: #6
RE: Problem z Visual Basic
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
(Ten post był ostatnio modyfikowany: 23-09-2013 14:26 przez Matty094.)
Glosy: Masterjam (+1)
23-09-2013 14:25
Odpowiedz cytując ten post
Odpowiedz 


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

Skocz do:


Użytkownicy przeglądający ten wątek: