frmpro.frm

一款飞机射击游戏的源代码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPro 
   Caption         =   "属性"
   ClientHeight    =   3135
   ClientLeft      =   7020
   ClientTop       =   675
   ClientWidth     =   2535
   Icon            =   "frmPro.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   3135
   ScaleWidth      =   2535
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton CmdSave 
      Caption         =   "Save"
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   2520
      Width           =   1335
   End
   Begin MSComctlLib.ListView Pro 
      Height          =   2415
      Left            =   0
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   0
      Width           =   2655
      _ExtentX        =   4683
      _ExtentY        =   4260
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      _Version        =   393217
      ForeColor       =   12582912
      BackColor       =   16777215
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.CheckBox OnTop 
      Caption         =   "总是在前面"
      Height          =   375
      Left            =   0
      TabIndex        =   2
      Top             =   2760
      Width           =   1215
   End
End
Attribute VB_Name = "frmPro"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public Sub CmdSave_Click()      '设为public
    Call WriteProperty(CurrentEditType, CurImageIndex, Pro)
End Sub

Private Sub Form_Load()
    Me.Move frmMain.Left + frmMain.Width, frmMain.Top, Me.Width, frmMain.Height
    If Me.Left + Me.Width > Screen.Width Then Me.Move Screen.Width - Me.Width
    Call InitListPro
        AnimateWindow Me.hwnd, 200, AW_VER_POSITIVE
        Me.Refresh
    OnTop.Value = 0
End Sub
Private Sub InitListPro()
    Pro.View = lvwReport
    With Pro.ColumnHeaders
        .Add , , "值", 1000
        .Add , , "项目", 1500
    End With
    'Pro.ListItems.Clear
    Pro.GridLines = True
    Pro.HideSelection = False

End Sub
Private Sub Form_Resize()
On Error Resume Next
    With Pro
        .Top = 0
        .Left = 0
        .Width = Me.Width - 20
        .Height = Me.Height - 1050
    End With
    With CmdSave
        .Top = Pro.Height + 50
    End With
    With OnTop
        .Left = 20
        .Top = Pro.Height + CmdSave.Height
    End With
If Err.Number = 380 Then Me.Height = 1500
End Sub

Private Sub Form_Unload(Cancel As Integer)
        AnimateWindow Me.hwnd, 200, AW_VER_NEGATIVE Or AW_HIDE
End Sub

Private Sub OnTop_Click()
    If OnTop.Value = 1 Then
        SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    Else
        SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End If
End Sub

Private Sub Pro_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then CmdSave_Click
End Sub