Question

Public Class Form1
    Private Sub Timer1_Tick() Handles Timer1.Tick
        Label1.Text = TimeOfDay
        Label2.Text = System.DateTime.Now.ToString("MM/d/yyy")
        Dim remove = Label1.Text.Replace(":", "")
        Me.BackColor = ColorTranslator.FromHtml("#" & remove)
    End Sub
End Class

我想出一个错误，“12708PM”不是有效的十六进制代码。如何才能使标签上的“PM”或“AM”不进入十六进制代码？另外，有什么方法可以使“1”或“2”成为“01”或“02”吗？我是初学者，所以我很感激任何帮助！

Answer 1

不要试图从标签中获取值，您已经以日期格式获取了该值。只需将日期转换为首选字符串格式即可。

ColorTranslator.FromHtml("#" & DateTime.Now.ToString("HHmmss"))

如何使我的十六进制颜色代码最后没有“PM”或“AM”？

1 个答案: