怎样用VB做个编写程序,在文本框中显示当前系统时间,并随时间进行变化

2021-07-09 16:25:41 字数 3473 阅读 5752

1楼:匿名用户

你添加一个timer控件

interval属性=100

添加事件

private sub timer1_timer()text1.text = format(now, "hh:mm:ss")

end sub

2楼:匿名用户

private sub form_load()timer1.enabled = trueend sub

private sub timer1_timer()text1.text = now

end sub

建立两个控件timer1和text1。

我也初学。

vb程序单击日期,可使文本框中显示当前日期,单击时间,可显示当前时间,并使前面的标签做相应修改,写出操作

3楼:杜哥是个小天才

具体**:

private sub command1_click()text1.text = date

label1.caption = "当前日期为:"

end sub

private sub command2_click()text1.text = time

label1.caption = "当前时间为:"

end sub

拓展资料visual basic是一种由 microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

从任何标准来说,vb都是世界上使用人数最多的语言——不管是盛赞vb的开发者还是抱怨vb的开发者的数量。它源自于basic编程语言。

vb拥有图形用户界面(gui)和快速应用程序开发(rad)系统,可以轻易的使用dao、rdo、ado连接数据库,或者轻松的创建activex控件。程序员可以轻松的使用vb提供的组件快速建立一个应用程序。

主要优点:

1,简单易学。

2,开发速度快。

3,可读性很好。

4楼:蝴蝶飛飛

private sub command1_click()text1.text = date

label1.caption = "当前日期为:"

end sub

private sub command2_click()text1.text = time

label1.caption = "当前时间为:"

end sub

如何用vb**在文本框中显示当前时间是上午或下午

5楼:匿名用户

private sub command1_click()dim s as date

dim bs as string

s = now

select case hour(s)

case is < 8

bs = "凌晨"

case is < 12

bs = "上午"

case is < 14

bs = "中午"

case is < 17

bs = "下午"

case else

bs = "晚上"

end select

label1.caption = format(s, "yyyy年mm月dd日 hh:mm:

ss " & bs & " 星期" & choose(weekday(s), "日", "一", "二", "三", "四", "五", "六"))

end sub

6楼:宁秀梅寸巳

举个例子:按下数字1将文本框内容变为“你按下了1”:

private

subtextbox1_keypress(keyasciiasinteger)

ifkeyascii

=asc("1")

textbox1.text="你按下了1"

else

textbox1.text="你按下的不是1"

endif

endsub

7楼:木头

format(time, "ampm")

现在想用vb,当前时间变化在文本框会显示后台设定的数字。

8楼:匿名用户

privatesubform_load()timer1.interval=1000timer1.enabled=trueendsub

privatesubtimer1_timer()iftime=#10:24:00am#thenme.caption="1"

elseiftime=#10:25:00am#thenme.caption="2"

endif

endsub

工具是用来方便自己的,好用就行,没必要追求新旧。剪刀有几千年历史,比剪刀厉害的切割机很多。为什么我们还用剪刀呢。因为适合自己

9楼:华山_掌门人

vb过时了,不要用了

vb编程题1.在窗体上创建一个文本框,当单击文本框时,文本框中轮流显示当前日期及当前时间。用vb怎么编程?

10楼:匿名用户

在窗体上添加一个文本框、一个时钟空间,**如下:

private sub form_load()timer1.enabled = falsetimer1.interval = 1000text1.text = ""

end sub

private sub text1_click()timer1.enabled = trueend sub

private sub timer1_timer()static n as integer

n = n + 1

if n mod 2 = 1 then text1.text = date else text1.text = time

end sub

怎样用vb获取本机时间并且与一个文本框里的时间进行比较。(24小时格式的)

11楼:网海1书生

if now > cdate(text1.text) thenmsgbox "文本框里的时间比当前时间早!"

else

msgbox "文本框里的时间比当前时间晚!"

end if

要注意,文本框里的时间必须是标准格式的,比如: 2014-12-18 16:09:23

如果文本框里只有时间没有日期,比如 17:23:45,则**修改为:

if time > cdate(text1.text) thenmsgbox "文本框里的时间比当前时间早!"

else

msgbox "文本框里的时间比当前时间晚!"

end if