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时转换为秒数,再加到另一个时间上.