frmwelcome.frm

驾驶员考试系统界面不错在98下运行C/S模式

VERSION 5.00
Begin VB.Form frmWelcome 
   BackColor       =   &H00FBDBC4&
   Caption         =   "欢迎使用本系统"
   ClientHeight    =   6615
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10260
   Icon            =   "frmWelcome.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6615
   ScaleWidth      =   10260
   WindowState     =   1  'Minimized
   Begin VB.PictureBox picBack 
      BackColor       =   &H00FFC0C0&
      BorderStyle     =   0  'None
      Height          =   480
      Left            =   0
      Picture         =   "frmWelcome.frx":000C
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   0
      Top             =   0
      Width           =   480
   End
   Begin VB.Image imgDefault 
      Height          =   10665
      Left            =   0
      Picture         =   "frmWelcome.frx":0316
      Top             =   0
      Width           =   15360
   End
End
Attribute VB_Name = "frmWelcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'设置背景函数
Public Sub SetBack()
On Error Resume Next
    Dim i As Long, j As Long, ls_Path As String
    Dim ls_tmp As String
    '读取注册的设置,是拉伸还是平铺,然后设置菜单项
    ls_tmp = GetSetting("OrientZiXun", "BackGround", "LaShen")
    '从注册表中读取背景图片路径
    ls_Path = GetSetting("OrientZiXun", "BackGround", "PathValue")
    If Trim(ls_Path) <> "" Then
        If Dir(ls_Path) <> "" Then
            picBack.Picture = LoadPicture(ls_Path) '图片存在,将图片显示在缓冲区中
        Else
            picBack.Picture = imgDefault.Picture '图片不存在,用默认的图片
        End If
    Else
        picBack.Picture = imgDefault.Picture '路径为空,用默认的图片
    End If

    If ls_tmp Then  '如果为拉伸
        Me.PaintPicture picBack.Picture, 0, 0, frmMain.Width, frmMain.Height
    Else '如果为平铺
        For j = 0 To frmMain.ScaleHeight Step picBack.ScaleHeight
            For i = 0 To frmMain.ScaleWidth Step picBack.ScaleWidth
                Me.PaintPicture picBack.Picture, i, j
            Next
        Next
    End If
    Me.Font.Name = "楷体_GB2312"
    Me.ForeColor = vbBlue
    Me.Font.Size = 48
    Me.FontBold = True
    Me.CurrentX = frmMain.ScaleWidth - 10200
    Me.CurrentY = frmMain.ScaleHeight - 8000
    Me.Print "LQ-6机动车场地驾驶员"
    Me.Font.Size = 36
    Me.CurrentX = frmMain.ScaleWidth - 8000
    Me.CurrentY = frmMain.ScaleHeight - 6700
    Me.Print "全自动红外桩考仪"
    Me.Font.Size = 36
    Me.ForeColor = vbRed
    Me.CurrentX = frmMain.ScaleWidth - 9750
    Me.CurrentY = frmMain.ScaleHeight - 1800
    Me.Print "太原凌启电子科技有限公司"
    Me.Font.Size = 20
    Me.CurrentX = frmMain.ScaleWidth - 9500
    Me.CurrentY = frmMain.ScaleHeight - 800
    Me.Print "联系电话：[phone]    13835159438"
    frmMain.Picture = Me.Image
    frmMain.BackColor = frmMain.BackColor - 1 '为了刷MDI窗口,否则背景不会改变
End Sub

Private Sub Form_Load()
On Error Resume Next
    Me.AutoRedraw = True
    picBack.AutoSize = True
End Sub