如何让vba用户窗体的文本框内自动显示出系统时间

如何让vba用户窗体的文本框内自动显示出系统时间,第1张

VBA中窗体出现时触发事件,使用UserForm_Initialize(),类似VB中的Form_load()

VBA中的文本框是Textbox,而VB中的是text

日期都可以用Date函数来获得,默认是YYYY/M/D格式,如果一定要显示固定格式,可以format函数,例如Formt(Date,"yyyy-m-d")

故下面代码可实现题目中的要求——(假设日期框是textbox1)

Private Sub UserForm_Initialize()

TextBox1Text = Formt(Date,"yyyy-m-d")

End Sub

在窗体设计器里找到Timer控件拖拽到你的form中,然后将Interval 属性值改为1000

再timer控件的事件列表中订阅Tick 事件,这样一来,Timer控件就会每1000毫秒运行一次Tick事件的回调函数,如下:

private void timer1_Tick(object sender, EventArgs e)

{

thisLabel2Text = "当前时间:" + DateTimeNowToString();

//每次回调函数都会用DateTimeNowToString();获取现在时间,存到Label2中

}

package test1;

import javaawtFlowLayout;

import javaawteventActionEvent;

import javaawteventActionListener;

import javasqlTimestamp;

import javaxswingJButton;

import javaxswingJFrame;

import javaxswingJTextField;

public class test1_5 extends JFrame implements Runnable,ActionListener{

JTextField tf1=new JTextField(12);

JButton b1=new JButton("开始计时");

JButton b2=new JButton("暂停计时");

int a=0;

public test1_5(){

thissetTitle("计时器");

thissetSize(400, 100);

thissetLayout(new FlowLayout());

thissetResizable(false);

thisadd(tf1);

thisadd(b1);

thisadd(b2);

b1addActionListener(this);

b2addActionListener(this);

Thread th=new Thread(this);

thstart();

thissetVisible(true);

thissetDefaultCloseOperation(JFrameEXIT_ON_CLOSE);

}

public void run() {

// TODO Auto-generated method stub

while(true){

try {

Timestamp time = new javasqlTimestamp(new javautilDate()getTime());

Threadsleep(1000);

if(a==1){

tf1setText(StringvalueOf(timegetHours())+":"+StringvalueOf(timegetMinutes()+":"+StringvalueOf(timegetSeconds())));

}

else{

tf1setText("");

}

} catch (InterruptedException e) {

// TODO Auto-generated catch block

eprintStackTrace();

}

}

}

public static void main(String[] args){

test1_5 tx=new test1_5();

}

public void actionPerformed(ActionEvent arg0) {

// TODO Auto-generated method stub

JButton b=(JButton)arg0getSource();

if(bgetText()=="开始计时"){

a=1;

}

else if(bgetText()=="暂停计时"){

a=0;

}

}

}

你试试!

以上就是关于如何让vba用户窗体的文本框内自动显示出系统时间全部的内容,包括:如何让vba用户窗体的文本框内自动显示出系统时间、怎样在C#窗体中动态显示时间、java在窗体中,如何使用timer每秒获取一个系统当前时间等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9301066.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-26
下一篇 2023-04-26

发表评论

登录后才能评论

评论列表(0条)

保存