frmmyegg.frm

来自「简单的猜数字、二十四点游戏」· FRM 代码 · 共 73 行

VERSION 5.00
Begin VB.Form FrmMyEgg 
   BorderStyle     =   0  'None
   ClientHeight    =   90
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8940
   BeginProperty Font 
      Name            =   "方正舒体"
      Size            =   200.25
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   6
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   596
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   1800
      Top             =   1320
   End
End
Attribute VB_Name = "FrmMyEgg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Dim n As Integer

Private Sub Form_Click()
Unload Me

FrmMain.Show
FrmEgg.Show
End Sub

Private Sub Form_Load()
Me.BackColor = QBColor(6)
Dim hRgn As Long
BeginPath Me.hdc
TextOut Me.hdc, 0, 0, "孤雁", 6
EndPath (Me.hdc)
hRgn = PathToRegion(hdc)
SetWindowRgn Me.hWnd, hRgn, True
DeleteObject hRgn
n = 3
Me.FontSize = 50
BeginPath Me.hdc
TextOut Me.hdc, 0, 0, "铺天盖地一片雪" & ctrl & "神兵亿万下天阙" & ctrl & "任你险峰挡不住" & ctrl & "红尘黄土都掩绝", 6
EndPath (Me.hdc)
hRgn = PathToRegion(hdc)
SetWindowRgn Me.hWnd, hRgn, True
DeleteObject hRgn

End Sub
Private Sub Timer1_Timer()
Me.Height = Me.Height + 40
Me.Top = Me.Top - 20
If Me.Height > 6170 Then Timer1.Enabled = False
End Sub