如何让一个页面显示几秒种后就自动关闭? 1.用timer控件,在双击出现的过程里写 unload me,时间在属性里设置1.将窗口属性设为最小化,并将最大化按钮设为False 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 同意initdialog{settimershowwindow( SW_MINIMIZED )}ontimer(){} 使用定时时钟应该好一些,而且很简单,只要设值timmer的inteveral 属性就可以在程序中加以控制,但是它的最大时间约等于33秒钟,如果还不够的话,只能用循环来加以控制了! 对啊用timer控件,interval设置显示的时间 在该页面上放一个timer控件,代码如下:sub form_load()timer.inteval=10time.enable=true.........end subsub timer_time()unload meend sub time控件在那里啊?怎么加啊?我是菜鸟 是哪个TIMELINES这个控件吗?但是我双击他编不了程序啊 用定时器Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer() Unload MeEnd Sub Timer是哪个象表一样的控件,默认的是Timer1.One Example:On The Form,Insert a Timer: Private Sub Form_Load() Timer1.Interval = 1000 '设定触发的时间间隔 Form1.WindowState = 1 '设定最小化状态End Sub//Double TimerPrivate Sub Timer1_Timer() Unload Me End Sub 完了我这里没有TIMER控件 如果你找不到timer控件,建议你还是先找本VB的书看看,在写程序,否则,写出来的东东也是肢离破碎的。他们用的方法不错,这样做就能实现你的要求了。看看VB应用吧。兄弟。 呵呵,老大,你找不见timer控件 !!!那你是怎么添加进去命令按钮的呢??嘿嘿,楼主真幽默 !! sprite14:如果你将控件窗关了的话你当然就找不到timer控件了。这样,你点VB主菜单的“view”菜单,然后再点"Toolbox”菜单!就会在VB主窗口最左边(一般是)出现控件窗!里面有你要的timer那个东东。当然,你也可以点工具栏上的锤头加搬手图样的那个小图标,也会重新出来控件窗! 一个timer控件可以搞定了,源代码如下:dim i as integeri=0Private Sub Form_Load()timer1.enable=true 激活timer控件windowstate=1End SubPrivate Sub Timer1_Timer()i=i+1if i>n then exit subunload meend ifEnd Sub 绘制可以移动的带箭头的直线 如何快速删除文本文件包含指定关键字的行? 谁知道代理服务器怎么写? 谁有像QQ的局域网发送信息软件代码? 怎么打开加了密码的access2000数据库 listview与msflexgrid有何区别? VB中的结构体在哪里定义 请问大家谁有关于VB串口编程(MSCOMM)的源代码例子? ScriptControl的中文帮助和说明在哪里有? listbox控件没有ScaleMode属性 如何保持与form的相同 如何让小数点后第三位无论是何值都进到第二位,而不是四舍五入?给分50分!!! 安装程序打包向导Package & Deployment Wizard
{
settimer
showwindow( SW_MINIMIZED )
}ontimer()
{
}
sub form_load()
timer.inteval=10
time.enable=true
....
.....
end subsub timer_time()
unload me
end sub
怎么加啊?
我是菜鸟
但是我双击他编不了程序啊
Private Sub Form_Load()
Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()
Unload Me
End Sub
One Example:On The Form,Insert a Timer:
Private Sub Form_Load()
Timer1.Interval = 1000 '设定触发的时间间隔
Form1.WindowState = 1 '设定最小化状态End Sub
//Double Timer
Private Sub Timer1_Timer() Unload Me
End Sub
我这里没有TIMER控件
就会在VB主窗口最左边(一般是)出现控件窗!里面有你要的timer那个东东。当然,你也可以点工具栏上的锤头加搬手图样的那个小图标,也会重新出来控件窗!
dim i as integer
i=0
Private Sub Form_Load()
timer1.enable=true 激活timer控件
windowstate=1
End Sub
Private Sub Timer1_Timer()
i=i+1
if i>n then
exit sub
unload me
end if
End Sub