Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Podmínka v VB 2010

Zdravím všechny,

chtěl jsem se zeptat, jak mám sestavit kod pro VB 2010... Mám progressbar a z něho bych potřeboval vytahovat budu vytahovat informace a já bych potřeboval pomoct s podmínkou, aby když progressbar bude mít hodnotu od 100 do 80, tak aby vypsal něco, od 79 do 60 něco jiného atd...

Za jakoukoliv radu budu rád...

Předmět Autor Datum
Např. první odkaz z Google: watch nový
host 07.12.2014 17:00
host
tohle by se dalo použít když by mi progressbar "šel" od nuly, ale já to potřebuju od 100 dolů... nový
tomas.s 07.12.2014 17:02
tomas.s
Ved je uplne tvojou vecou, co mu das zobrazit. Ak bude maximalnou hodnotou progress baru napr 100 a… nový
robert13 07.12.2014 17:14
robert13
momentálně mám něco takového: Private Sub battery_Tick(ByVal sender As System.Object, ByVal e As Sy… nový
tomas.s 07.12.2014 17:20
tomas.s
Private Sub battery_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles battery… nový
Wikan 07.12.2014 17:27
Wikan
Super, díky moc - tohle jsem potřeboval... :-) nový
tomas.s 07.12.2014 17:42
tomas.s
Tak tohle by snad měl i začínající programátor umět, i když dneska "programuje" kde kdo... :-/ Je p… poslední
host 07.12.2014 17:43
host

momentálně mám něco takového:

Private Sub battery_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles battery.Tick
        Dim power As PowerStatus = SystemInformation.PowerStatus
        Dim percent As Single = power.BatteryLifePercent
        ProgressBar3.Value = percent * 100
        If ProgressBar3.Value = 100 - 80 Then
            ToolStripButton29.Image = OS_1_beta_development_mode.My.Resources.Resources.battery_6
        ElseIf ProgressBar3.Value = 79 - 60 Then
            ToolStripButton29.Image = OS_1_beta_development_mode.My.Resources.Resources.battery_5
        End If
    End Sub
Private Sub battery_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles battery.Tick
        Dim power As PowerStatus = SystemInformation.PowerStatus
        Dim percent As Single = power.BatteryLifePercent
        ProgressBar3.Value = percent * 100
        If ProgressBar3.Value >= 80 Then
            ToolStripButton29.Image = OS_1_beta_development_mode.My.Resources.Resources.battery_6
        ElseIf ProgressBar3.Value >= 60 Then
            ToolStripButton29.Image = OS_1_beta_development_mode.My.Resources.Resources.battery_5
        End If
    End Sub

Zpět do poradny Odpovědět na původní otázku Nahoru