form16massagebar.frm

用户MODBUS规约通信编程,起参考作用.

VERSION 5.00
Object = "{C7AE747C-B9E4-11D7-B0E3-D8165009166E}#7.0#0"; "XPForm.ocx"
Object = "{D14FD2DC-9318-11D3-9CB7-000021ECAA5D}#5.0#0"; "MovingChar.ocx"
Begin VB.Form frmdelay 
   BackColor       =   &H00FF8080&
   BorderStyle     =   0  'None
   ClientHeight    =   1335
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8310
   ControlBox      =   0   'False
   Icon            =   "Form16massageBar.frx":0000
   LinkTopic       =   "Form16"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1335
   ScaleWidth      =   8310
   ShowInTaskbar   =   0   'False
   Begin XP窗体控件.XPForm XPForm1 
      Height          =   810
      Left            =   0
      Top             =   0
      Width           =   8175
      _ExtentX        =   14420
      _ExtentY        =   1429
      Caption         =   ""
      AlwaysOnTop     =   0   'False
      ShowFormSize    =   0   'False
   End
   Begin MovingChar.MovingText Label1 
      Height          =   855
      Left            =   0
      TabIndex        =   0
      Top             =   480
      Width           =   8175
      _ExtentX        =   14420
      _ExtentY        =   1508
      MsgChar         =   "MovingText1"
      BackColor       =   -2147483648
      MousePointer    =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Timer Timer1 
      Interval        =   6000
      Left            =   1560
      Top             =   120
   End
End
Attribute VB_Name = "frmdelay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Function getHellStr() As String
    Dim today As Date
    Dim nowTime As String
    today = Now
    nowTime = TimeValue(today)
    
    If CDate(nowTime) >= CDate("5:00:00") And CDate(nowTime) < CDate("8:00:00") Then
        getHellStr = "早上好"
    ElseIf CDate(nowTime) >= CDate("8:00:00") And CDate(nowTime) < CDate("12:00:00") Then
        getHellStr = "上午好"
    ElseIf CDate(nowTime) >= CDate("12:00:00") And CDate(nowTime) < CDate("14:00:00") Then
        getHellStr = "中午好"
    ElseIf CDate(nowTime) >= CDate("14:00:00") And CDate(nowTime) < CDate("19:00:00") Then
        getHellStr = "下午好"
    ElseIf CDate(nowTime) >= CDate("19:00:00") And CDate(nowTime) < CDate("23:59:00") Then
         getHellStr = "晚上好"
    Else
         getHellStr = "请注意休息"
    End If
End Function

Private Sub Label1_Click()
    Unload Form16
End Sub

Private Sub Label3_Click()
    Unload Form16
End Sub

Private Sub Form_Load()
XPForm1.Make

End Sub