vba高考倒计时.doc

vba高考倒计时 篇一：高考倒计时VB “高考倒计时”程序设计文档 一、 程序名称：高考倒计时 二、 程序功能 1：显示当前时间、高考时间、剩余时间 三、 程序设计 1：标签控件：Label1 2：文本控件：Text1 3：定时器控件：Timer1 四、 程序实现 1：窗体加载：Sub Form_Load( ) 2：最大化：Me.WindowState = vbMaximized 3：根据窗口宽度、高度设置字体大小：F = Me.ScaleX(Me.ScaleWidth, Me.ScaleMode, 3) / (S0 * 2 + S1 + S2) H = Me.ScaleY(Me.ScaleHeight, Me.ScaleMode, 3) / 12 4: 默认时间为计算机当前年份的6月7日：If nStr = ThenY = Format(Date, yyyy) I = DateDiff(s, Now, Y amp; -6-7 9:00:00)If I lt; 0 Then Y = Y + 1 nStr = Y amp; -6-7 9:00:00 5：计时器： Timer1_Timer() 五、 程序运行 六、 程序代码 Dim ctStr As String Private Sub Form_Load() Dim I As Long, Y As Long, nStr As String ctStr = Trim(GetSetting(xUnTime, xOpt, xCap, )) If ctStr = Then ctStr = 高考 #39;默认标题 Text1.Font.Bold = True Label1(0).AutoSize = True: Label1(0).Font.Bold = True Label1(0).BackStyle = 0 For I = 1 To 5 Load Label1(I): Label1(I).Visible = True Next Me.BackColor = amp;HFF8888 Label1(0).ForeColor = amp;HFF0000 Label1(0).ToolTipText = 单击可修改标题 nStr = Trim(GetSetting(xUnTime, xOpt, xTime, )) If nStr = Then #39;默认时间：为计算机当前年份的6月7日 Y = Format(Date, yyyy) I = DateDiff(s, N(来自:WwW.xltkwJ.cOm 小龙 文档 网:vba高考倒计时)ow, Y amp; -6-7 9:00:00) If I lt; 0 Then Y = Y + 1 nStr = Y amp; -6-7 9:00:00 End If Text1.MaxLength = 20: Text1.Text = nStr Timer1.Enabled = True: Timer1.Interval = 1000 Me.WindowState = vbMaximized #39;最大化 End Sub Private Sub Form_Unload(Cancel As Integer) SaveSetting xUnTime, xOpt, xCap, ctStr SaveSetting xUnTime, xOpt, xTime, Text1.Text End Sub Private Sub Label1_Click(Index As Integer) #39;用户修改标题 If Index lt; 0 Then Exit Sub Dim nStr As String nStr = Trim(InputBox(请输入倒计时事件的标题：, 倒计时 - 设置标题, ctStr)) If Right(nStr, 3) = 倒计时 Then nStr = Trim(Left(nStr, Len(nStr) - 3)) If nStr = Then Exit Sub ctStr = nStr Call Form_Resize End Sub Private Sub Text1_Change() Call Timer1_Timer Call Form_Resize End Sub Private Sub Form_Resize() Dim I As Long, H As Single, F As Single, W1 As Single Dim S0 As Single, S1 As Single, S