home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / scg_demo / simpmove.frm < prev    next >
Text File  |  1993-09-24  |  2KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form frmSimpMove 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Simple Move"
  5.    ClientHeight    =   5790
  6.    ClientLeft      =   2445
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    ControlBox      =   0   'False
  10.    FillColor       =   &H00C0C0C0&
  11.    Height          =   6195
  12.    Left            =   2385
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5790
  17.    ScaleWidth      =   7365
  18.    Top             =   1140
  19.    Width           =   7485
  20.    Begin Label Label1 
  21.       BackStyle       =   0  'Transparent
  22.       Caption         =   "This example is presented to show a one-line implementation of shape movement.  The movement is not as accurate as the Accurate Move example."
  23.       ForeColor       =   &H00FF0000&
  24.       Height          =   855
  25.       Left            =   3600
  26.       TabIndex        =   0
  27.       Top             =   4800
  28.       Width           =   3615
  29.       WordWrap        =   -1  'True
  30.    End
  31.    Begin SCGraphic NgonRectangle 
  32.       AngleEnd        =   45
  33.       AngleStart      =   -90
  34.       ArrowSize       =   2  'Small
  35.       ArrowType       =   0  'None
  36.       DragMode        =   1  'Automatic
  37.       DrawInside      =   0   'False
  38.       FillColor       =   &H00C0C0C0&
  39.       FillColor2      =   &H0000FFFF&
  40.       FillPattern     =   0  'Solid
  41.       Height          =   1695
  42.       InhibitEraseOnRedraw=   0   'False
  43.       Left            =   2520
  44.       LineColor       =   &H00FF0000&
  45.       LinePattern     =   0  'Solid
  46.       LineWidth       =   15
  47.       MouseEvents     =   -1  'True
  48.       NumPoints       =   4
  49.       PaletteSteps    =   20
  50.       RoundRadius     =   0
  51.       SelectByInk     =   -1  'True
  52.       ShadowColor     =   &H00000000&
  53.       ShadowDepthX    =   0
  54.       ShadowDepthY    =   0
  55.       Shape           =   6  'Ngon
  56.       ShowOutlineOnly =   0   'False
  57.       Top             =   2040
  58.       Use256Palette   =   -1  'True
  59.       Width           =   2295
  60.    End
  61. End
  62. ' This form shows how simple movement can be accomplished
  63. ' with a single line of code.  See the ACCMOVE form for
  64. ' a slightly more involved, but more accurate form of
  65. ' movement.
  66. Option Explicit
  67.  
  68. Sub Form_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
  69.     Source.Move X, Y
  70. End Sub
  71.  
  72.