viewform.frm

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

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form ViewForm 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Game View"
   ClientHeight    =   3735
   ClientLeft      =   4650
   ClientTop       =   2445
   ClientWidth     =   4575
   LinkTopic       =   "Form1"
   ScaleHeight     =   249
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   305
   WindowState     =   2  'Maximized
   Begin VB.TextBox KeyboardInputBox 
      Height          =   285
      Left            =   960
      TabIndex        =   0
      Top             =   -1200
      Width           =   1575
   End
   Begin MSWinsockLib.Winsock ClientSock 
      Left            =   1920
      Top             =   1560
      _ExtentX        =   741
      _ExtentY        =   741
   End
End
Attribute VB_Name = "ViewForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub ClientSock_Close()
Internet.ServerData.ConnectedToServer = False
End Sub
Private Sub ClientSock_Connect()
Internet.ServerData.ConnectedToServer = True
End Sub
Private Sub ClientSock_DataArrival(ByVal bytesTotal As Long)
Dim SData As String
On Error Resume Next
ClientSock.GetData SData, vbString
Call Internet.BreakDownMessage(SData)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Mouse.ButtonStates(Button) = True
Mouse.DragStartPosition.x = x
Mouse.DragStartPosition.y = y
ViewForm.KeyboardInputBox.SetFocus
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Mouse.Position.x = x
Mouse.Position.y = y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Mouse.ButtonStates(Button) = False
ViewForm.KeyboardInputBox.SetFocus
End Sub
Public Sub DestroyGameView()
ViewForm.Hide
Unload ViewForm
End Sub
Public Sub OpenGameView()
Load ViewForm
ViewForm.Show
ViewForm.KeyboardInputBox.SetFocus
End Sub

Private Sub KeyboardInputBox_KeyDown(KeyCode As Integer, Shift As Integer)
KeyStates(KeyCode) = True
Call MiscKeyboardProcessing
End Sub
Private Sub KeyboardInputBox_KeyUp(KeyCode As Integer, Shift As Integer)
KeyStates(KeyCode) = False
End Sub