vb表盘时钟 用文本框任意修改时间

来源：百度知道 编辑：UC知道 时间：2024/05/28 23:58:01
修改初始时间 就像 电脑系统时间那样可以随便改

不会，

没问题，可以用文本框任意修改的，全部代码太长了，加上注释，这里根本贴不下，要的话hi我，无偿赠送，文本框部分的代码如下：

Private Sub Text1_Change(Index As Integer)
If IsDate(Format(Text1(0), "00") & ":" & Format(Text1(1), "00") & ":" & Format(Text1(2), "00")) = False Then
Text1(0) = t1: Text1(1) = t2: Text1(2) = t3
h = Val(Text1(0))
m = Val(Text1(1))
s = Val(Text1(2))
t = h * 3600& + m * 60& + s
Else
If TongBu = False Then
If XiuGai = True Then
XiuGai = False
h = Val(Text1(0))
m = Val(Text1(1))
s = Val(Text1(2))
t = h * 3600& + m * 60& + s
End If
End If
End If
End Sub

简单的
定义几个变量，然后通过变量画出表盘，在Text1_Change事件里改变变量即可。

表盘时钟???不会。

表盘时钟???修改时间是修改BISO的时间吗