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每秒获取一个系统当前时间等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)