vb做一个游戏怎样做一个应用程序

[怎样做一个成熟的男人]怎样做一个成熟的男人 1、重视诺言。成熟男人绝对不会出尔反尔，他对自己的每个承诺都相当重视，在许愿之前周密考虑，自己的话是否真能兑现，如能兑现的话他决不说，言出必践。他的每...+阅读

vb做一个游戏怎样做一个应用程序

标准的答案！比喻的软件，玩游戏，但他们的编程，但在游戏中参与更多：首先必须熟悉的3DMAS，图片或动画更逼真的3D效果，而不是图片或动画，但一组或几组，甚至几十个团体，有些游戏可能达到几百，足够一个大的漫画。第二场比赛分为模块，这样就不会详细。第三是组织规划，大型游戏编程人员提供了详细的分工，是不是能完成12个人员。当然，说的是一般游戏的开发人员或公司可以逃避这些步骤的小游戏，编程的基本运作模式，但是，程序员可能12个人可以完成。建议你看一看这本书，您有帮助的VB游戏设计与实践“。想法：1，发展的主题游戏；需要完成的任务；图片或动画；4编程接口设计；5，程序编辑；6，调试的；....../>7，发布。

编写一个用鼠标操作的vb小游戏

'=========窗体代码======== Private Sub Form_Load() Dim ret As Long Me.Move 0, 0 preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC) ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc) idHotKey = 1 Modifiers = MOD_CONTROL uVirtKey = vbKeyQ '热键Ctrl+Q ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey) End Sub Private Sub Command1_Click() MsgBox ＂热键触发！＂ End Sub '=======模块代码=========== Option Explicit Declare Function SetWindowLong Lib ＂user32＂ Alias ＂SetWindowLongA＂ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declare Function GetWindowLong Lib ＂user32＂ Alias ＂GetWindowLongA＂ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function CallWindowProc Lib ＂user32＂ Alias ＂CallWindowProcA＂ (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Declare Function RegisterHotKey Lib ＂user32＂ (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Declare Function UnregisterHotKey Lib ＂user32＂ (ByVal hwnd As Long, ByVal id As Long) As Long Private Declare Function SetCursorPos Lib ＂user32＂ (ByVal x As Long, ByVal y As Long) As Long Private Declare Sub mouse_event Lib ＂user32＂ (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up Private Const MOUSEEVENTF_RIGHTDOWN = &H8 'right button down Private Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up Public Const WM_HOTKEY = &H312 Public Const MOD_ALT = &H1 Public Const MOD_CONTROL = &H2 Public Const MOD_SHIFT = &H4 Public Const GWL_WNDPROC = (-4) Public preWinProc As Long

vb入门游戏实例

'添加一个名为label1的标签控件，并将其index设为0；再添加一个名为command1的按钮控件 Dim a(1 To 9) As Boolean Dim win As Boolean, begin As Boolean, haveload As Boolean, start As Boolean Private Sub Command1_Click() start = True: begin = False For i = 1 To 9 a(i) = False Next i Form_Load End Sub Private Sub Form_Load() a(9) = True Label1(0).Visible = False Me.Height = 4400 Me.Width = 4000 Scale (0, 0)-(3, 3.3) If haveload = False Then haveload = True: start = True Command1.Top = 3: Command1.Left = 2 Command1.Width = 1: Command1.Height = 0.3 Command1.Caption = ＂开始＂ For i = 1 To 9 Load Label1(i) Next i End If For i = 1 To 9 Label1(i).Height = 1 Label1(i).Width = 1 Label1(i).Visible = True Label1(i).Top = (i - 1) \ 3 Label1(i).Left = (i - 1) Mod 3 Label1(i).Caption = Str(i) Label1(i).BackColor = QBColor(i) Label1(i).FontBold = True Label1(i).FontSize = 40 Next i Label1(9).Caption = ＂＂: Label1(9).BackColor = vbWhite Randomize For i = 1 To 500 r% = Int(9 * Rnd) + 1 Call Label1_Click(r) Next i begin = True End Sub Private Sub Label1_Click(index As Integer) Dim x1 As Integer, y1 As Integer If start = True Then If a(index) = False Then x1 = (index - 1) Mod 3: y1 = (index - 1) \ 3 If x1 - 1 >-0.2 Then If a(x1 + y1 * 3) = True Then Call yidong(x1 + y1 * 3, index) End If If x1 + 1-0.2 Then If a(x1 + 1 + (y1 - 1) * 3) = True Then Call yidong(x1 + (y1 - 1) * 3 + 1, index) End If If y1 + 1