+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+------ Forum: Tutorials (https://mirage-engine.uk/forums/forumdisplay.php?fid=13)
+------ Thread: [Feature] Moveable Forms (/showthread.php?tid=2927)
[Feature] Moveable Forms - ExoShox - 09-07-2009
Difficulty: 1/5
Sides: Client Only
Tested on: MS4
Works for: MS4
Credits: Me
Tutorial Type: Copy and Paste
Description of Variables (You can copy these comments into your program for other programmers to read):
Code:
' OHOX/OHOY are the variables that define the Picture Hold Offset X/Y
' MouseDown is the boolean that determines whether the Mouse is still pressed or not
' CFrm is the Current Form that the player is viewing
' DX/DY are the variables that define the Destination X/Y
' SPIGSS is the System Paramaters Info Action Variables used to get the Screen Size excluding the taskbarPut the following in modDatabase under Option Explicit:
Code:
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPIGSS = 48
Private Type CScreenRec
Top As Long
Left As Long
Right As Long
Bottom As Long
End Type
Public CScreen As CScreenRec
Public DX, DY As Long
Public OHOX, OHOY As Long
Public MouseDown As BooleanPut the following at the very bottom of modDatabase:
Code:
Public Sub FormMove(CFrm As Form, Button As Integer, Shift As Integer, X As Long, Y As Long)
If Button = 1 And MouseDown = True Then
GetScreenSize
DX = CFrm.Left + X - OHOX
DY = CFrm.Top + Y - OHOY
If DX < CScreen.Left Then DX = CScreen.Left
If DY < CScreen.Top Then DY = CScreen.Top
If DX + CFrm.Width > CScreen.Right Then DX = CScreen.Right - CFrm.Width
If DY + CFrm.Height > CScreen.Bottom Then DY = CScreen.Bottom - CFrm.Height
CFrm.Left = DX
CFrm.Top = DY
End If
End Sub
Public Sub GetScreenSize()
Dim ScreenRect As RECT
SystemParametersInfo SPIGSS, 0, ScreenRect, 0
CScreen.Bottom = 15 * ScreenRect.Bottom
CScreen.Right = 15 * ScreenRect.Right
CScreen.Top = 15 * ScreenRect.Top
CScreen.Left = 15 * ScreenRect.Left
End SubPut The Following Code In the Form's Code Editor That you want to be able to move
Code:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MouseDown = True
OHOX = CLng(X)
OHOY = CLng(Y)
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MouseDown = True Then Call FormMove(Me, Button, Shift, CLng(X), CLng(Y))
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown = False
End SubRe: [Feature] Moveable Forms - ExoShox - 05-09-2009
Just wondering, but why on my Transparent and Moveable Forms, and on my Moveable Image/Pic Boxes, do I have a very poor rating. I made these copy and paste, only because I don't think many people understand all the code, and I have everything explicitly stated, and I see no fault with the tutorial. So, if you are reading this, and you gave one of them a poor rating, could you please give me insight on why you did that please, so I can improve the tutorial if it needs it?