Member 12809194 Ответов: 2

Как сделать мой таймер в формате hh:mm:ss?


мой таймер выглядит нормально, но я хочу сделать его в формате hh:mm:ss

мой нынешний выход:

1:1:1

я хочу, чтобы это было похоже
01:01:01

Что я уже пробовал:

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    Label17.Text = "" & Label14.Text & ":" & Label16.Text & ":" & Label15.Text
    Label15.Text = Val(Label15.Text) + Val(1)
    If Label15.Text = 60 Then
        Label16.Text = Val(Label16.Text) + Val(1)
        Label15.Text = 0
    ElseIf Label16.Text = 60 Then
        Label14.Text = Val(Label14.Text) + Val(1)
        Label16.Text = 0
    End If

End Sub

2 Ответов

Рейтинг:
16

Wendelius

Таймер не имеет формата, это просто таймер, который вызывает тиковое событие на нужных интервалах. Вы, кажется, форматируете значения из других меток, и, по-видимому, они содержат числа. Если это так, то вы можете отформатировать число в тексте, преобразовав его в число, а затем отформатировать. Например

Label17.Text = "" & CInt(Label14.Text).ToString("00") & ":" & CInt(Label16.Text).ToString("00") & ":" & CInt(Label15.Text).ToString("00")


Однако имейте в виду, что приведенный выше код потерпит неудачу, если метка содержит что-либо другое, кроме целого числа.

В качестве примечания вы должны использовать значимые имена для объектов. Это помогает понять и поддерживать код.


Рейтинг:
0

Member 12809194

да я уже исправил формат



часов = Label14.Текст
минут = Label16.Текст
секунд = Label15.Текст

Label17.Текст = часы.ToString("00") + ":" + минуты.ToString("00") + ":" + секунды.ToString ("00")

Label15.Text = Val(Label15. Text) + Val(1)
Если Label15.Текст = 60 Тогда
Label16.Text = Val(Label16. Text) + Val(1)
Label15.Текст = 0
ElseIf Label16.Текст = 60 Тогда
Label14.Text = Val(Label14. Text) + Val(1)
Label16.Текст = 0
Конец, Если



но в любом случае, спасибо за заботу, Мика :)