form2.frm

猜数字

VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H8000000B&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于"
   ClientHeight    =   930
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2925
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MousePointer    =   4  'Icon
   ScaleHeight     =   930
   ScaleWidth      =   2925
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   300
      Left            =   1800
      TabIndex        =   2
      Top             =   600
      Width           =   855
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   180
      Left            =   240
      MousePointer    =   99  'Custom
      TabIndex        =   3
      Top             =   645
      Width           =   1350
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有(C)2001   李自强"
      ForeColor       =   &H0000FFFF&
      Height          =   180
      Left            =   670
      TabIndex        =   1
      Top             =   360
      Width           =   2160
   End
   Begin VB.Image Image1 
      Height          =   600
      Left            =   0
      Picture         =   "Form2.frx":0000
      Top             =   0
      Width           =   600
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "猜数字  版本：1.0"
      ForeColor       =   &H0000FFFF&
      Height          =   180
      Left            =   670
      TabIndex        =   0
      Top             =   120
      Width           =   1530
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim i As Long
Dim clr As Long
With Form1
  ScaleMode = 3
  DrawStyle = 6
  DrawWidth = 2
  AutoRedraw = True
For i = 1 To 255
clr = RGB(255 - i, 0, 255 - i Mod 3)
Line (0, ScaleHeight * (i - 1) / 255)-(ScaleWidth, ScaleHeight * i / 255), clr, BF
Next i
End With
End Sub


Private Sub Label3_Click()
Dim WEB As String
WEB = "mailto:[e-mail]"
ShellExecute 0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus
End Sub