www.pudn.com > DataCollectionSystem.rar > frmAbout.frm, change:2004-05-09,size:12826b


VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx" 
Begin VB.Form frmAbout  
   Appearance      =   0  'Flat 
   BackColor       =   &H8000000A& 
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "关于系统" 
   ClientHeight    =   3960 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   5790 
   BeginProperty Font  
      Name            =   "宋体" 
      Size            =   9.75 
      Charset         =   0 
      Weight          =   400 
      Underline       =   0   'False 
      Italic          =   0   'False 
      Strikethrough   =   0   'False 
   EndProperty 
   Icon            =   "frmAbout.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Picture         =   "frmAbout.frx":08CA 
   ScaleHeight     =   3960 
   ScaleWidth      =   5790 
   StartUpPosition =   1  'CenterOwner 
   Begin MSComctlLib.ImageList ImageList1  
      Left            =   0 
      Top             =   0 
      _ExtentX        =   1005 
      _ExtentY        =   1005 
      BackColor       =   -2147483643 
      ImageWidth      =   32 
      ImageHeight     =   32 
      MaskColor       =   12632256 
      _Version        =   393216 
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}  
         NumListImages   =   26 
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5C16C 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5C488 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5C7A2 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5D07E 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5D95A 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5E236 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5EB12 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5F3EE 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":5FCCA 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":605A6 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":609FA 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":612D6 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":61BB2 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":61ECE 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":62BAA 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":63486 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":63D62 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":6463E 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":6531A 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":65636 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":65F12 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":667EE 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":670CA 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":67DA6 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":68682 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "frmAbout.frx":68F5E 
            Key             =   "" 
         EndProperty 
      EndProperty 
   End 
   Begin 数据采集子系统.LaVolpeButton LaVolpeButton1  
      Height          =   435 
      Left            =   4440 
      TabIndex        =   2 
      Top             =   3480 
      Width           =   1215 
      _ExtentX        =   2143 
      _ExtentY        =   767 
      BTYPE           =   3 
      TX              =   "关闭" 
      ENAB            =   -1  'True 
      BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "宋体" 
         Size            =   9.75 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      COLTYPE         =   2 
      BCOL            =   16761024 
      FCOL            =   0 
      FCOLO           =   0 
      EMBOSSM         =   12632256 
      EMBOSSS         =   16777215 
      MPTR            =   99 
      MICON           =   "frmAbout.frx":6983A 
      ALIGN           =   1 
      IMGLST          =   "ImageList1" 
      IMGICON         =   "2" 
      ICONAlign       =   0 
      ORIENT          =   0 
      STYLE           =   1 
      IconSize        =   4 
      SHOWF           =   0   'False 
      BSTYLE          =   0 
   End 
   Begin VB.PictureBox picScroll  
      AutoRedraw      =   -1  'True 
      BackColor       =   &H00000000& 
      BeginProperty Font  
         Name            =   "MS Sans Serif" 
         Size            =   8.25 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   2775 
      Left            =   120 
      ScaleHeight     =   181 
      ScaleMode       =   3  'Pixel 
      ScaleWidth      =   365 
      TabIndex        =   0 
      Top             =   600 
      Width           =   5535 
   End 
   Begin VB.Label labTopic  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "数据采集信息子系统" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   20.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000FF& 
      Height          =   405 
      Left            =   720 
      TabIndex        =   1 
      Top             =   120 
      Width           =   3915 
   End 
End 
Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long 
Private Declare Function GetTickCount Lib "kernel32" () As Long 
 
Const DT_BOTTOM As Long = &H8 
Const DT_CALCRECT As Long = &H400 
Const DT_CENTER As Long = &H1 
Const DT_EXPANDTABS As Long = &H40 
Const DT_EXTERNALLEADING As Long = &H200 
Const DT_LEFT As Long = &H0 
Const DT_NOCLIP As Long = &H100 
Const DT_NOPREFIX As Long = &H800 
Const DT_RIGHT As Long = &H2 
Const DT_SINGLELINE As Long = &H20 
Const DT_TABSTOP As Long = &H80 
Const DT_TOP As Long = &H0 
Const DT_VCENTER As Long = &H4 
Const DT_WORDBREAK As Long = &H10 
 
Private Type RECT 
        Left As Long 
        Top As Long 
        Right As Long 
        Bottom As Long 
End Type 
 
'the actual text to scroll. This could also be loaded in from a text file 
Const ScrollText As String = "数据采集信息子系统" & vbCrLf & _ 
                             vbCrLf & _ 
                             "版本: 1.00 Beta" & vbCrLf & vbCrLf & _ 
                             "--------------------------" & vbCrLf & vbCrLf & _ 
                             "作者: 许准" & vbCrLf & _ 
                             vbCrLf & "E-mail:zhunxu@sgwin.com" & vbCrLf & _ 
                             vbCrLf & "上海市地质调查研究院" & _ 
                             vbCrLf & vbCrLf & _ 
                             "版权所有,2003年4月" & _ 
                              vbCrLf & vbCrLf & "★★★★★★★★★★★★" & vbCrLf & vbCrLf & _ 
                             "感谢您的使用!" 
                              
Dim EndingFlag As Boolean 
 
Private Sub Form_Activate() 
RunMain 
DoEvents 
End Sub 
 
Private Sub Form_Load() 
Me.KeyPreview = False 
 
picScroll.ForeColor = vbBlue 
picScroll.FontSize = 18 
picScroll.FontBold = True 
picScroll.FontName = "楷体_GB2312" 
End Sub 
 
Private Sub RunMain() 
Dim LastFrameTime As Long 
Const IntervalTime As Long = 40 
Dim rt As Long 
Dim DrawingRect As RECT 
'Dim UpperX As Long, UpperY As Long 'Upper left point of drawing rect 
Dim RectHeight As Long 
 
'show the form 
frmAbout.Refresh 
 
'Get the size of the drawing rectangle by suppying the DT_CALCRECT constant 
rt = DrawText(picScroll.hdc, ScrollText, -1, DrawingRect, DT_CALCRECT) 
 
If rt = 0 Then 'err 
    MsgBox "Error scrolling text", vbExclamation 
    EndingFlag = True 
Else 
    DrawingRect.Top = picScroll.ScaleHeight 
    DrawingRect.Left = 0 
    DrawingRect.Right = picScroll.ScaleWidth 
    'Store the height of The rect 
    RectHeight = DrawingRect.Bottom 
    DrawingRect.Bottom = DrawingRect.Bottom + picScroll.ScaleHeight 
End If 
 
 
Do While Not EndingFlag 
     
    If GetTickCount() - LastFrameTime > IntervalTime Then 
                     
        picScroll.Cls 
         
        DrawText picScroll.hdc, ScrollText, -1, DrawingRect, DT_CENTER Or DT_WORDBREAK 
         
        'update the coordinates of the rectangle 
        DrawingRect.Top = DrawingRect.Top - 1 
        DrawingRect.Bottom = DrawingRect.Bottom - 1 
         
        'control the scolling and reset if it goes out of bounds 
        If DrawingRect.Top < -(RectHeight) Then 'time to reset 
            DrawingRect.Top = picScroll.ScaleHeight 
            DrawingRect.Bottom = RectHeight + picScroll.ScaleHeight 
        End If 
         
        picScroll.Refresh 
         
        LastFrameTime = GetTickCount() 
         
    End If 
     
    DoEvents 
Loop 
 
Unload Me 
Set frmAbout = Nothing 
 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
 
    EndingFlag = True 
    
End Sub 
 
Private Sub LaVolpeButton1_Click() 
    Beep 
    EndingFlag = True 
End Sub