VB
goushaoping04
交流中学习
展开
-
如何用VB编写类似WT的软件
1、先用数组建50个标签(名称一样,index不同);再用同样的方法建50文本框,与标签一一对应摆放。2、填加定时器用于用于计算时间。3、用open命令打开用于测试的文件。读出文件内容的前50个字符,分别放于50个标签中。编写改变文本框,文本框失去焦点后与相应的标签比较,对不变,错,则相应的文本框背景色变红色。4,难就难在换屏上,就要想方法把第50个控件内容和第50个标签内容放再原创 2006-09-14 16:46:00 · 868 阅读 · 0 评论 -
vb自动关机程序
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Const EWX_LOGOFF = 0Private Const EWX_SHUTDOWN = 1Private Const EWX_REBOOT = 2Privat原创 2010-05-26 14:08:00 · 447 阅读 · 0 评论 -
vb自动关机程序
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Const EWX_LOGOFF = 0Private Const EWX_SHUTDOWN = 1Private Const EWX_REBOOT = 2Privat原创 2010-05-26 14:08:00 · 664 阅读 · 0 评论 -
定时程序
<br />VERSION 5.00 Begin VB.Form frmTimer ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 6150 Icon = "frmTimer.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3090 ScaleWidth = 6150 StartUpPosition =原创 2010-10-29 13:27:00 · 365 阅读 · 0 评论 -
斐波那契数列数列的实现
VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 5385 ClientLeft = 60 ClientTop = 450 ClientWidth = 10755 LinkTopic原创 2014-03-13 18:13:02 · 489 阅读 · 0 评论 -
定时刷网络页面
VERSION 5.00Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"Begin VB.Form frmMain BorderStyle = 1 'Fixed Single Caption = "我的浏览器" ClientHeight原创 2014-03-13 18:14:04 · 468 阅读 · 0 评论 -
银行时间计算
VERSION 5.00Begin VB.Form main BackColor = &H00FFFFC0& BorderStyle = 1 'Fixed Single Caption = "天数计算" ClientHeight = 4155 ClientLeft = 45原创 2014-03-13 18:15:04 · 585 阅读 · 0 评论 -
时间戳和时间的转换
'参数:strTime:要转换的时间;intTimeZone:该时间对应的时区 '返回值:strTime相对于1970年1月1日午夜0点经过的秒数 '示例:ToUnixTime("2008-5-23 10:51:0", +8),返回值为1211511060 Function ToUnixTime(strTime, intTimeZone)原创 2014-03-13 18:19:09 · 599 阅读 · 0 评论