frmsplash.frm

餐饮管理系统数据库设计文档 表名：bzqbj（保质期报警表） 字段名 字段类型 字段长度 （0表示不允许NULL

VERSION 5.00
Begin VB.Form frmSplash 
   Appearance      =   0  'Flat
   BackColor       =   &H00A56E3A&
   BorderStyle     =   0  'None
   ClientHeight    =   3510
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5280
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3510
   ScaleWidth      =   5280
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Visible         =   0   'False
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000001&
      Height          =   3615
      Left            =   -60
      Picture         =   "frmSplash.frx":0000
      ScaleHeight     =   3658.044
      ScaleMode       =   0  'User
      ScaleWidth      =   5279.176
      TabIndex        =   0
      Top             =   -60
      Visible         =   0   'False
      Width           =   5415
      Begin VB.Timer Timer1 
         Interval        =   150
         Left            =   240
         Top             =   1440
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

     Dim Proba, Proba2 As Integer
     Dim Boja2 As String

Private Function Zrak(slika As PictureBox, StartX As Integer, StartY As Integer, Levo As Integer, Desno As Integer, Boja As String)

     

Me.ScaleMode = vbPixels

With slika
     .ScaleMode = vbPixels
     .AutoRedraw = True
End With

For Proba2 = 0 To slika.ScaleWidth
    DoEvents

For Proba = 0 To slika.ScaleHeight
    Boja2 = slika.Point(Proba2, Proba)
   Line (StartX, StartY)-(Levo + Proba2, Desno + Proba), Boja2
Next
   Line (StartX, StartY)-(Levo + Proba2, Desno + slika.ScaleHeight), Boja
Next

For Proba2 = 0 To slika.ScaleHeight
   Line (StartX, StartY)-(Levo + slika.ScaleWidth, Desno + Proba2), Boja
Next

End Function




Private Sub Timer1_Timer()
Zrak Picture1, 565, 301, 0, 0, Me.BackColor    ' adjust the scale and position from where
                                                 ' laser will draw  your image
                                                ' best performance is if you place start position
                                                ' in down right corner of your picture
                                                'Also  adjust the size of the form , to be same
                                                ' to the size   of the picture , or perform some variation.
   If Timer1.Interval = 150 Then
'    frmAdministrator.Show    , if you are going further with your program
    Unload Me                  ' you can replace timer with command_click()
    frmMain.Show
End If
End Sub