intro.frm

这个是grs源程序,mo在图象显示上很好,所以大家一定要下载

VERSION 5.00
Begin VB.Form frmIntro 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   3120
   ClientLeft      =   4410
   ClientTop       =   4545
   ClientWidth     =   7230
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3120
   ScaleWidth      =   7230
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox picESRI 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1385
      Left            =   240
      ScaleHeight     =   1380
      ScaleWidth      =   1050
      TabIndex        =   5
      Top             =   990
      Width           =   1050
   End
   Begin VB.PictureBox picMO 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1305
      Left            =   5480
      ScaleHeight     =   1305
      ScaleWidth      =   1590
      TabIndex        =   3
      Top             =   960
      Width           =   1590
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "Start"
      Height          =   375
      Left            =   3000
      TabIndex        =   0
      Top             =   1920
      Width           =   975
   End
   Begin VB.Label lblExamine 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Examine the menu items available, as well as the tool tip text labels for each button on the ToolBar."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   750
      Left            =   1560
      TabIndex        =   2
      Top             =   960
      Width           =   3735
   End
   Begin VB.Label lblReadMe 
      BackColor       =   &H00C0C0C0&
      Caption         =   "For more information on moView2, refer to the file ""<MapObjects>\samples\vb\moView2\readme_first.txt"""
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   300
      TabIndex        =   4
      Top             =   2760
      Width           =   6855
   End
   Begin VB.Label lblWelcome 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Welcome to moView 2.0, a sample Visual Basic application which demonstrates much of the functionality of MapObjects version 2.0."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   510
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   6975
   End
   Begin VB.Shape shpShadow 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00808080&
      FillStyle       =   0  'Solid
      Height          =   375
      Index           =   0
      Left            =   4680
      Top             =   1920
      Width           =   375
   End
End
Attribute VB_Name = "frmIntro"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'Change these constants to control consistent shadow position
Private Const SHADOW_LEFT = 60
Private Const SHADOW_TOP = 80
'

Private Sub cmdOK_Click()
  Unload frmIntro
End Sub

Private Sub Form_Load()
  'Center the form
  Dim topCorner As Integer
  Dim leftCorner As Integer
  Dim i As Integer
  
  If frmIntro.WindowState <> 0 Then Exit Sub
  
  'Load splash logo pictures.
  picESRI.Picture = LoadPicture(App.path & "\bitmaps\prodc.bmp")
  picMO.Picture = LoadPicture(App.path & "\bitmaps\mapobj.bmp")
  
  'Position the intro form at the center of the user's
  'screen regardless of current display resolution.
  topCorner = (Screen.Height - frmIntro.Height) \ 2
  leftCorner = (Screen.Width - frmIntro.Width) \ 2
  frmIntro.Move leftCorner, topCorner
  
  'Position shadows
  For i = 1 To 3
    Load shpShadow(i)
    shpShadow(i).Visible = True
    shpShadow(i).ZOrder 1
  Next
  
  With shpShadow(0)
    .Left = lblWelcome.Left + SHADOW_LEFT
    .Top = lblWelcome.Top + SHADOW_TOP
    .Height = lblWelcome.Height
    .Width = lblWelcome.Width
  End With
  
  With shpShadow(1)
    .Left = lblExamine.Left + SHADOW_LEFT
    .Top = lblExamine.Top + SHADOW_TOP
    .Height = lblExamine.Height
    .Width = lblExamine.Width
  End With
  
  With shpShadow(2)
    .Left = picESRI.Left + SHADOW_LEFT
    .Top = picESRI.Top + SHADOW_TOP
    .Height = picESRI.Height
    .Width = picESRI.Width
  End With
  
  With shpShadow(3)
    .Left = picMO.Left + SHADOW_LEFT
    .Top = picMO.Top + SHADOW_TOP
    .Height = picMO.Height
    .Width = picMO.Width
  End With

End Sub