form2.frm

OpenPlayer代码

VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00EE9BBC&
   BorderStyle     =   0  'None
   Caption         =   "关于SuperScreenSaver1.0 "
   ClientHeight    =   3600
   ClientLeft      =   1935
   ClientTop       =   3045
   ClientWidth     =   7920
   FillColor       =   &H00FFFFFF&
   Icon            =   "Form2.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MousePointer    =   99  'Custom
   ScaleHeight     =   3600
   ScaleWidth      =   7920
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Http://SuperPlayer.51.net"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2520
      MouseIcon       =   "Form2.frx":030A
      MousePointer    =   99  'Custom
      TabIndex        =   1
      ToolTipText     =   "欢迎光临SuperPlayer主页，下载最新版的SuperPlayer或Flash动画"
      Top             =   2970
      Width           =   2655
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FFFFFF&
      BorderStyle     =   6  'Inside Solid
      Height          =   285
      Index           =   2
      Left            =   330
      Shape           =   3  'Circle
      Top             =   2760
      Width           =   285
   End
   Begin VB.Label Mail 
      BackColor       =   &H00EE9BBC&
      BackStyle       =   0  'Transparent
      Caption         =   "Email:[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   2820
      MouseIcon       =   "Form2.frx":0614
      MousePointer    =   99  'Custom
      TabIndex        =   0
      ToolTipText     =   "写信给我：[e-mail]"
      Top             =   3240
      Width           =   2175
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000080FF&
      BorderWidth     =   2
      X1              =   600
      X2              =   600
      Y1              =   1080
      Y2              =   3300
   End
   Begin VB.Line Line2 
      BorderColor     =   &H000080FF&
      X1              =   210
      X2              =   7620
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FFFFFF&
      BorderStyle     =   6  'Inside Solid
      Height          =   585
      Index           =   0
      Left            =   300
      Shape           =   3  'Circle
      Top             =   2610
      Width           =   585
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'关于窗口

Sub ShowChr()
'显示立体文字
On Error Resume Next
    Dim fExeFileName As String
    Dim i As Integer
    Dim oControl As Object
    Dim Lleft As Long
    Dim bVisibel As Boolean
        For i = 1 To 30 Step 2
            Set oControl = Controls.Add("VB.label", "LLL" & i)
            With oControl
                .AutoSize = True
                .BackStyle = 0
                .FontSize = "30"
                .FontBold = True
                .Left = 2000 + i * 7
                .Top = 50 + i * 7
                .ForeColor = RGB(255 - (8 * i / 2), 255 - (10 * i / 2) - 10, 255 + i - 10) '交换R、G、B各值位置会有不同效果
                .Caption = "ＳＵＰＥＲ"
                .Visible = True
                DoEvents
            End With
         Next
        
        For i = 1 To 30 Step 2
           Set oControl = Controls.Add("VB.label", "L" & i)
    
            With oControl
               
                .Left = 300 + i * 7
                .Top = 700 + i * 7
                .ForeColor = RGB(255 - (5 * i / 2) - 10, 255 - (5 * i / 2) - 10, 255 + i - 10)  '交换R、G、B各值位置会有不同效果
                .AutoSize = True
                .BackStyle = 0
                .FontSize = "33"
                .FontBold = True
                .Caption = "ＳcreenＳaver Ver 1.0"
                .Visible = True
                DoEvents
              End With
         Next
         For i = 1 To 30 Step 2
            Set oControl = Controls.Add("VB.label", "LL" & i)
             With oControl
                 .AutoSize = True
                 .BackStyle = 0
                 .FontSize = "12"
                 .FontBold = True
                 .Left = 900 + i * 7
                 .Top = 2300 + i * 7
                 .ForeColor = RGB(255 - i * 8, 255 - i * 8, 255 - i * 3) '交换R、G、B各值位置会有不同效果
                 .Caption = "程序制作　SuperPlayer 1.0 小鱼儿工作室  余泽涛 "
                 .Visible = True
                 DoEvents
             End With
             '取得作者名
             
             Lleft = 0
         Next
         
         Filename = exe2swf(App.Path & IIf(Len(App.Path) < 4, App.EXEName & ".scr", "\" & App.EXEName & ".scr"))
         Author = getNote(Filename).strAuthor
         For i = 1 To 30 Step 2
           Set oControl = Controls.Add("VB.label", "LLLL" & i)
            With oControl
                .AutoSize = True
                .BackStyle = 0
                .FontSize = "15"
                .FontBold = True
               ' .Left = Lleft + i * 7
                .Top = 1650 + i * 7
                .ForeColor = RGB(i * 4, 255 - i * 8, 255 - i * 6)   '交换R、G、B各值位置会有不同效果
                .Caption = "Flash 制作：" & Author
                .Visible = True
                DoEvents
                .Left = (Me.Width - .Width) / 2 + i * 7
            End With
         Next
End Sub

Private Sub Form_DblClick()
    Unload Me
End Sub

Private Sub Form_Load()
   ShowChr
   Me.Visible = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '移动窗口
    ReleaseCapture
    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub


Private Sub Label1_Click()
      ShellExecute 0, "open", "http://OpenPlayer.51.net", 0, 0, 1
End Sub
Private Sub Mail_Click()
     ShellExecute 0, "open", "mailto:[e-mail]?subject=余泽涛，你好--" & Date, 0, 0, 1
End Sub