VB中如何提取标准北京时间显示到label中

'使用本代码需要Ctrl+T里面勾选Microsoft Internet Control 60,并在窗体上画一个，默认名称是WebBrowser1
'然后添加一个文本框Label1和一个按钮Timer1
Private Sub Form_Load()
Label1Caption = ""
Label1AutoSize = True '自动调整大小
WebBrowser1Width = 0 '为了不让其显示出来，设置宽度为0
WebBrowser1Height = 0 ''为了不让其显示出来，设置高度为0
WebBrowser1Navigate "http://openbaiducom/static/time/beijingtimehtml"
End Sub
Private Sub Timer1_Timer()
ss = WebBrowser1DocumentbodyinnerText '得到所有文字
aa = "您的本地电脑时间" '找出要分离的文字前面有标志性的文字
bb = InStr(1, ss, aa) '确定位置
cc = Mid(ss, bb + Len(aa) + 1, 14) '取出要的东西
Label1Caption = "国家授时中心标准时间：" & Trim(cc) '显示出来
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Timer1Interval = 100 '每秒更新一次
Timer1Enabled = True '启动定时器
End Sub

以上就是关于VB中如何提取标准北京时间显示到label中全部的内容，包括:VB中如何提取标准北京时间显示到label中、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！