ntjm.net
当前位置:首页 >> vB文本框显示当前时间相加 >>

vB文本框显示当前时间相加

你添加一个timer控件 Interval属性=100添加事件Private Sub Timer1_Timer()Text1.Text = Format(Now, "HH:MM:SS")End Sub

我不会VB但是你可以用一个变量获取你输入的一个数,然后用另一变量伙的时间,直接输出在文本框内就行了.

在窗体上加一个 计时器 一个文本框 复制下面代码进去 运行就OK Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TRUE End Sub Private Sub Timer1_Timer() TEXT.TEXT=Format$(Time, "hh:mm:ss") END SUB

Private Sub Command1_Click()Dim s As DateDim bs As Strings = NowSelect Case Hour(s)Case Is 评论0 0 0

程序在设计时将textbox控件的text属性设置为 请输入账号 再在text_click事件中 输入text1.text=""即可 示例代码如下: private sub text1_click() text1.text = "" end sub

在窗体上添加一个文本框、一个时钟空间,代码如下:Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 Text1.Text = ""End SubPrivate Sub Text1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Static N As Integer N = N + 1 If N Mod 2 = 1 Then Text1.Text = Date Else Text1.Text = TimeEnd Sub

Private Sub Form_click()Print DateAdd("d", Val(Text2.Text), Now)End SubPrivate Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Text1.Text = NowEnd Sub

添加一个text、一个timerPrivate Sub Form_Load() Timer1.Interval = 10End SubPrivate Sub Timer1_Timer() Text1.Text = NowEnd Sub

添加一个定时器timer1 把属性Interval的值设置为1000 添加以下代码 Private Sub Timer1_Timer() Text1.Text = Now End Sub

format( dateadd("s",DateDiff("s",#00:00:00#,"00:12:30"),"01:00:20"),"hh:mm:ss")一个时间减去午夜0时转换为秒数,再加到另一个时间上.

tfsf.net | wwfl.net | tbyh.net | hyqd.net | gyzld.cn | 网站首页 | 网站地图
All rights reserved Powered by www.ntjm.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com