Mirage Source

Free ORPG making software.
It is currently Thu Mar 28, 2024 6:56 pm

All times are UTC


Forum rules


Make sure your tutorials are kept up to date with the latest MS4 releases.



Post new topic Reply to topic  [ 924 posts ]  Go to page 1, 2, 3, 4, 5 ... 37  Next
Author Message
PostPosted: Wed Jul 01, 2009 9:44 pm 
Offline
Knowledgeable
User avatar

Joined: Sun Dec 14, 2008 4:28 am
Posts: 106
Location: Roanoke, VA, US
Difficulty: 1/5
Sides: Client Only
Tested on: MS4
Works for: MS4
Credits: Me :D
Tutorial Type: Copy and Paste with a Teeny bit of Modification

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 Object 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
' CPic is the Current PictureBox that the player is trying to Move
' CImg is the Current Image that the player is trying to Move
' DX/DY are the variables that define the Destination X/Y



Put the following in modDatabase under Option Explicit:
Code:
Public DX, DY as Long
Public OHOX, OHOY As Long
Public MouseDown As Boolean


Put The Following Code In the Form's Code Editor (Whichever form contains the picture you want to move) And Replace the <PicName>'s with the name of the Picture you want to move:
Code:
Private Sub <PicName>_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    OHOX = X
    OHOY = Y
    MouseDown = True
End Sub

Private Sub <PicName>_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If MouseDown = True Then Call PicMove(Me, Me.<PicName>, Button, Shift, CLng(X), CLng(Y))
End Sub

Private Sub <PicName>_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MouseDown = False
End Sub


Put The Following Code In the Form's Code Editor (Whichever form contains the image you want to move) And Replace the <ImgName>'s with the name of the Img you want to move:
Code:
Private Sub <ImgName>_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    OHOX = X
    OHOY = Y
    MouseDown = True
End Sub

Private Sub <ImgName>_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If MouseDown = True Then Call ImgMove(Me, Me.<ImgName>, Button, Shift, CLng(X), CLng(Y))
End Sub

Private Sub <ImgName>_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MouseDown = False
End Sub


And Put this in modDatabase at the bottom:
Code:
Public Sub PicMove(CFrm As Form, CPic As PictureBox, Button As Integer, Shift As Integer, X As Long, Y As Long)
   
    If Button = 1 Then
        DX = CPic.Left + X - OHOX
        DY = CPic.Top + Y - OHOY
        If DX < 0 Then DX = 0
        If DY < 0 Then DY = 0
        If DX + CPic.Width > CFrm.ScaleWidth Then DX = CFrm.ScaleWidth - CPic.Width
        If DY + CPic.Height > CFrm.ScaleHeight Then DY = CFrm.ScaleHeight - CPic.Height
        CPic.Left = DX
        CPic.Top = DY
    End If
End Sub

Public Sub ImgMove(CFrm As Form, CImg As Image, Button As Integer, Shift As Integer, X As Long, Y As Long)
   
    If Button = 1 Then
        DX = CImg.Left + X - OHOX
        DY = CImg.Top + Y - OHOY
        If DX < 0 Then DX = 0
        If DY < 0 Then DY = 0
        If DX + CImg.Width > CFrm.ScaleWidth Then DX = CFrm.ScaleWidth - CImg.Width
        If DY + CImg.Height > CFrm.ScaleHeight Then DY = CFrm.ScaleHeight - CImg.Height
        CFrm.ScaleMode = 1
        CImg.Left = DX
        CImg.Top = DY
    End If
End Sub

_________________
:d


Top
 Profile  
 
PostPosted: Wed Dec 01, 2021 9:10 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтsemiasphalticfluxсайтсайтсайт
сайтсайтсайтсайтсайтсайтhttp://taskreasoning.ruсайтсайтсайтинфосайтсайтtuchkasсайтсайт


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:15 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Econ


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:16 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
107.1


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:17 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Bett


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:18 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Bett


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:20 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Stan


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:21 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Henr


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:22 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Piet


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:23 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Fred


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:24 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Defo


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:25 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Pari


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:26 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Guit


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:27 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Dorm


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:28 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
John


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:30 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Orie


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:31 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Edwa


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:32 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Shin


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:33 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Dead


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:34 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Pale


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:35 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Jewe


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:36 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Ston


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:37 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Frit


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:39 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
NULL


Top
 Profile  
 
PostPosted: Thu Jan 06, 2022 9:40 am 
Offline
Mirage Source Lover

Joined: Sun Jul 04, 2021 4:04 am
Posts: 456192
Craz


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 924 posts ]  Go to page 1, 2, 3, 4, 5 ... 37  Next

All times are UTC


Who is online

Users browsing this forum: No registered users and 7 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group