resolutionselectionform.frm

超级C&C有没有搞错,VB还能编出这种即时策略游戏来!没错,这就是我们的超级C&C!虽然游戏经常无故退出,但是原码仍有很多可圈可点的地方.祝你早日编出中国的超级RA,超级KKND,超级星际,超级家园

VERSION 5.00
Begin VB.Form ResolutionSelectionForm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Graphics Mode"
   ClientHeight    =   2055
   ClientLeft      =   2745
   ClientTop       =   1605
   ClientWidth     =   2910
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2055
   ScaleWidth      =   2910
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton EnterProgramButton 
      Caption         =   "Enter Game"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   1680
      Width           =   1095
   End
   Begin VB.ListBox ResolutionSelectionList 
      Height          =   1425
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2655
   End
End
Attribute VB_Name = "ResolutionSelectionForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub EnterProgramButton_Click()
Call LaunchIt(ResolutionSelectionList.ListIndex)
End Sub
Private Sub Form_Load()
ResolutionSelectionList.AddItem "320x200"
ResolutionSelectionList.AddItem "640x400"
ResolutionSelectionList.AddItem "640x480"
ResolutionSelectionList.AddItem "800x600"
ResolutionSelectionList.ListIndex = 0
End Sub

Private Sub ResolutionSelectionList_DblClick()
Call LaunchIt(ResolutionSelectionList.ListIndex)
End Sub

Private Sub ResolutionSelectionList_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = KEY_ENTER Then
  Call LaunchIt(ResolutionSelectionList.ListIndex)
End If
End Sub
Private Sub LaunchIt(ResMode)
Select Case ResMode
Case 0
  Call GraphicsEngine.ChangeGraphicsMode(320, 200, 16)
  Unload Me
  Call Main
Case 1
  Call GraphicsEngine.ChangeGraphicsMode(640, 400, 16)
  Unload Me
  Call Main
Case 2
  Call GraphicsEngine.ChangeGraphicsMode(640, 480, 16)
  Unload Me
  Call Main
Case 3
  Call GraphicsEngine.ChangeGraphicsMode(800, 600, 16)
  Unload Me
  Call Main
End Select
End Sub