VB中有一个TEXT的控件要求是text显示出当前的时间

就是做一个小时钟文字型的要例如 2013年1月2日 sun（这个是星期几吧） 15：23:22

举报该问题

其他回答

第1个回答 2017-08-19

Dim w(), ss As String

Private Sub Command1_Click()

Text1 = ""

Timer1.Interval = 1000

w = Array("", "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")

ss = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日 "

End Sub

Private Sub Timer1_Timer()

Text1 = ss & w(Weekday(Date)) & " " & Time

End Sub

第2个回答 2013-04-14

Private Sub Form_Load()
Text1.Text = Format(Now, "yyyy年m月d日 ddd hh:nn:ss")
End Sub

第3个回答 2013-04-14

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1_Timer
End Sub
Private Sub Timer1_Timer()
Text1.Text = Format(Now, "YYYY年MM月DD日 DDDD HH:MM:SS")
End Sub追问

写入之后提示 timer1.interval=1000 有问题

追答

你窗体上需要加一个Timer控件，左边的工具箱里有

追问

老师的要求是在text中显示出日期时间

追答

是啊，上面的Text1就是一个text

本回答被提问者采纳

相似回答

VB6.0中如何让TextBox控件显示为当前的信息,为多行信息的最底层的...答：Text1.Text = Text1.Text & vbCrLf & "当前时间： " & Now & vbCrLf SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0 End Sub

用VB怎么在text框中显示系统当前时间并运行时自动刷新时间答：用VB的Timer控件的Timer事件可随时更新TextBox文本框中显示的当前时间。Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。Timer 事件，在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval 属性中，它以千分之一秒为单位指定时间的长度。...

VB显示当前时间的程序答：如果你只想显示日期，则把Text1.Text = Now 改为：Text1.Text = date如果你只想显示时间，则把Text1.Text = Now 改为：Text1.Text = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)

VB设计中想要增加计时功能怎么让一个text控件中显示当前游戏所用时间...答：private a as long private sub form_load()timer1.interval=1000 end sub private sub timer1_timer()a=a+1 text1.text=a end sub

VB显示系统时间的代码是什么?答：VB显示系统时间的代码如下：text1.text="今天是" & Format$(Now,"Long Date")text2.text=Format$(Now,"dddd")text3.text=Format$(Now,"Long Time")Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

用VB编写一个显示当前日期和时间的程序答：Text = Now End Sub 2.Private Sub Timer1_Timer()Text1.Text = Hour(Time) & ":"Text2.Text = Minute(Time) & ":"Text3.Text = Second(Time)Text4.Text = Date End Sub === 给你参考:month(date)day(date)year(date)second(time)minute(time)hour(time)now ...

如何让vba用户窗体的文本框内自动显示出系统时间?答：VBA中的文本框是Textbox，而VB中的是text 日期都可以用Date函数来获得，默认是YYYY/M/D格式，如果一定要显示固定格式，可以format函数，例如Formt(Date,"yyyy-m-d")故下面代码可实现题目中的要求——（假设日期框是textbox1）Private Sub UserForm_Initialize()TextBox1.Text = Formt(Date,"yyyy-m...

VB中如何使一个文本框显示当前时间半个小时后的时间答：Private Sub Form_Load()Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()Text1.Text = Time Text2.Text = DateAdd("n", 30, Time)End Sub 加入一个计时器，代码如上，text1显示当前时间，text2显示30分钟后时间。

想做一个vb小程序,输出当前的日期和时间答：Private Sub Command1_Click()Text1.Text = "今天是:" & Format(Date, "dddddd")End Sub Private Sub Command2_Click()Text2.Text = "北京时间:" & Format(Time, "ttttt")End Sub

大家正在搜

VB常见的控件有哪些 vb中的控件是什么意思 vb框架控件是哪个 VB基本控件 VB表单控件 VB编程控件 VB电子表格控件什么是控件 web控件

VB中有一个TEXT的控件 要求是text显示出当前的 时间

VB中有一个TEXT的控件要求是text显示出当前的时间