Go to Post Test your code and your assumptions. - ShotgunNinja [more]
Home
Go Back   Chief Delphi > Technical > Programming
CD-Media   CD-Spy  
portal register members calendar search Today's Posts Mark Forums Read FAQ rules

 
 
 
Thread Tools Rate Thread Display Modes
Prev Previous Post   Next Post Next
  #4   Spotlight this post!  
Unread 06-01-2003, 00:18
Gope Gope is offline
Registered User
#0016 (Bomb Squad)
 
Join Date: Jul 2002
Location: Mountain Home, AR
Posts: 230
Gope is on a distinguished road
This is my program, except for the positioning junk, it dosent work in vbManual or vbAutomatic.




Private xoffset As Integer
Private yoffset As Integer
Option Explicit

Private Sub ba_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xoffset = X
yoffset = Y
ba.Drag vbBeginDrag

End Sub

Private Sub bb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xoffset = X
yoffset = Y
bb.Drag vbBeginDrag

End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
bb.Move (X - xoffset), (Y - yoffset)
ba.Move (X - xoffset), (Y - yoffset)

End Sub






ya, if i finish this, i'll pass it out to whoever wants it.
__________________
College and its wonders. First year and alot of other FIRSTs.
 


Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump


All times are GMT -5. The time now is 15:33.

The Chief Delphi Forums are sponsored by Innovation First International, Inc.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright © Chief Delphi