|
ngle, ByVal Y As Single)
Dim iLp As Integer
If Not (iObjectState = iDisabled) Then
If iObjectState = iPressed And iObjectType = Btn Then iObjectState = iEnabled
End If
For iLp = 1 To colChildren.Count
colChildren(iLp).MouseUp Button, Shift, X, Y
Next iLp
End Sub
and add the following to the frmMain form抯 code:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Window.MouseDown Button, Shift, X, Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Window.MouseUp Button, Shift, X, Y
End Sub
Notice that we only have to call the mouse events for the base window. The class handles calling the events for the controls it contains.
So what are we missing? Oh yes, we need to know how to draw the controls. Replace the DrawObject function with the following:
Public Function DrawObject(objSurface As DirectDrawSurface7)
Dim clsWindow As clsWindow
Dim iLp As Integer
Dim ddsd As DDSURFACEDESC2
Dim rectBitmap As RECT
Dim rectObject As RECT
On Error GoTo DrawObjectErr
rectBitmap.Left = iX
rectBitmap.Right = iX + iWidth
rectBitmap.Top = iY
rectBitmap.Bottom = iY + iHeight
Select Case iObjectType
Case Btn
rectObject.Left = 0
rectObject.Right = iWidth
rectObject.Top = 0
rectObject.Bottom = iHeight
Select Case iObjectState
Case iDisabled
rectObject.Top = iHeight * 2
rectObject.Bottom = iHeight * 3
Case iPressed
rectObject.Top = iHeight
rectObject.Bottom = iHeight * 2
End Select
Case ChkBox
rectObject.Left = 0
rectObject.Right = iWidth
rectObject.Top = 0
rectObject.Bottom = iHeight
Select Case iObjectState
Case iDisabled
rectObject.Top = iHeight * 2
rectObject.Bottom = iHeight * 3
Case iChecked
rectObject.Top = iHeight
rectObject.Bottom = iHeight * 2
Case iChecked_iDisabled
rectObject.Top = iHeight * 3
rectObject.Bottom = iHeight * 4
End Select
Case BaseWindow
''''Nothing needed here since we use the base rectangle
End Select
objSurface.Blt rectBitmap, objBitmap, rectObject, DDBLT_WAIT
For iLp = 1 To colChildren.Count
colChildren(iLp).DrawObject objSurface
Next iLp
Exit Function
DrawObjectErr:
Exit Function
End Function
What抯 Next?
The first part of this series is an intro into creating a relatively full-fledged GUI for your game. The next article will deal with some more advanced pieces ?more controls and adding additional properties for the controls, including text properties. If there is anything specific you would like to see, please e-mail me or post on the board for the site where you found this article (if applicable).
Feel free to modify this code as you see fit. Hopefully you抣l find a use for it, even though it抯 still in it抯 infant form.
See you next time!
上一页 [1] [2] [3]
[VB.NET程序]DX: Full Screen GUI Development 2 [Web开发]利用JavaScript创建功能强大的GUI
[JAVA开发]Java手机软件图形界面API之低级GUI组件 [SyBase]关于linux做nat出现“table full”的终极解决办法…
[MySql]Linux GUI编程笔记之GTK+篇（2） [MySql]Linux GUI编程笔记之GTK+篇(1)
[电脑技术]如何使用wxPython设计gui
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
