home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / ct_ocx / ct_move.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-28  |  11.4 KB  |  348 lines
  1. VERSION 4.00
  2. Begin VB.Form w_move_demo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "ctMOVE (Animated Push Buttons) Demo"
  6.    ClientHeight    =   4455
  7.    ClientLeft      =   1740
  8.    ClientTop       =   2085
  9.    ClientWidth     =   7485
  10.    Height          =   4860
  11.    Icon            =   "ct_move.frx":0000
  12.    Left            =   1680
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MDIChild        =   -1  'True
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4455
  18.    ScaleWidth      =   7485
  19.    Top             =   1740
  20.    Width           =   7605
  21.    Begin VB.Frame Frame3 
  22.       Caption         =   "User Defined"
  23.       BeginProperty Font 
  24.          name            =   "MS Sans Serif"
  25.          charset         =   0
  26.          weight          =   700
  27.          size            =   8.25
  28.          underline       =   0   'False
  29.          italic          =   0   'False
  30.          strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   2895
  33.       Left            =   5100
  34.       TabIndex        =   8
  35.       Top             =   1080
  36.       Width           =   2235
  37.       Begin VB.CommandButton Command4 
  38.          Caption         =   "C"
  39.          Height          =   375
  40.          Left            =   1620
  41.          TabIndex        =   13
  42.          Top             =   2340
  43.          Width           =   435
  44.       End
  45.       Begin VB.CommandButton Command3 
  46.          Caption         =   "B"
  47.          Height          =   375
  48.          Left            =   900
  49.          TabIndex        =   12
  50.          Top             =   2340
  51.          Width           =   435
  52.       End
  53.       Begin VB.CommandButton Command2 
  54.          Caption         =   "A"
  55.          Height          =   375
  56.          Left            =   180
  57.          TabIndex        =   10
  58.          Top             =   2340
  59.          Width           =   435
  60.       End
  61.       Begin ClipLibCtl.ctClip ctClip3 
  62.          DragIcon        =   "ct_move.frx":030A
  63.          DragMode        =   1  'Automatic
  64.          Height          =   390
  65.          Left            =   1620
  66.          TabIndex        =   16
  67.          Top             =   360
  68.          Width           =   360
  69.          _version        =   65536
  70.          _extentx        =   635
  71.          _extenty        =   687
  72.          _stockprops     =   65
  73.          piccols         =   2
  74.          picture         =   "ct_move.frx":0614
  75.       End
  76.       Begin ClipLibCtl.ctClip ctClip2 
  77.          DragIcon        =   "ct_move.frx":1506
  78.          DragMode        =   1  'Automatic
  79.          Height          =   390
  80.          Left            =   960
  81.          TabIndex        =   15
  82.          Top             =   360
  83.          Width           =   360
  84.          _version        =   65536
  85.          _extentx        =   635
  86.          _extenty        =   687
  87.          _stockprops     =   65
  88.          piccols         =   2
  89.          picture         =   "ct_move.frx":1810
  90.       End
  91.       Begin ClipLibCtl.ctClip ctClip1 
  92.          DragIcon        =   "ct_move.frx":2702
  93.          DragMode        =   1  'Automatic
  94.          Height          =   390
  95.          Left            =   300
  96.          TabIndex        =   14
  97.          Top             =   360
  98.          Width           =   360
  99.          _version        =   65536
  100.          _extentx        =   635
  101.          _extenty        =   687
  102.          _stockprops     =   65
  103.          piccols         =   2
  104.          picture         =   "ct_move.frx":2A0C
  105.       End
  106.       Begin VB.Label Label3 
  107.          Alignment       =   2  'Center
  108.          Caption         =   "Send To"
  109.          Height          =   195
  110.          Left            =   600
  111.          TabIndex        =   11
  112.          Top             =   2070
  113.          Width           =   1095
  114.       End
  115.       Begin MoveLib.ctMove ctmove_mail 
  116.          Height          =   1005
  117.          Left            =   240
  118.          TabIndex        =   9
  119.          Top             =   900
  120.          Width           =   1755
  121.          _version        =   65536
  122.          _extentx        =   3096
  123.          _extenty        =   1773
  124.          _stockprops     =   70
  125.          caption         =   "Send Mail"
  126.          picture         =   "ct_move.frx":38FE
  127.          backcolor       =   12632256
  128.          shadowcolor     =   0
  129.          sequencetype    =   2
  130.          piccols         =   3
  131.          picrows         =   5
  132.          textyoffset     =   -2
  133.          picyoffset      =   8
  134.          repeatrate      =   8
  135.       End
  136.    End
  137.    Begin VB.CommandButton Command1 
  138.       Caption         =   "E&xit"
  139.       BeginProperty Font 
  140.          name            =   "MS Sans Serif"
  141.          charset         =   0
  142.          weight          =   700
  143.          size            =   8.25
  144.          underline       =   0   'False
  145.          italic          =   0   'False
  146.          strikethrough   =   0   'False
  147.       EndProperty
  148.       Height          =   375
  149.       Left            =   3120
  150.       TabIndex        =   7
  151.       Top             =   3870
  152.       Width           =   1275
  153.    End
  154.    Begin VB.Frame Frame2 
  155.       Caption         =   "Back and Forth"
  156.       BeginProperty Font 
  157.          name            =   "MS Sans Serif"
  158.          charset         =   0
  159.          weight          =   700
  160.          size            =   8.25
  161.          underline       =   0   'False
  162.          italic          =   0   'False
  163.          strikethrough   =   0   'False
  164.       EndProperty
  165.       Height          =   1635
  166.       Left            =   2640
  167.       TabIndex        =   4
  168.       Top             =   1080
  169.       Width           =   2235
  170.       Begin MoveLib.ctMove ctMove3 
  171.          Height          =   1095
  172.          Left            =   180
  173.          TabIndex        =   6
  174.          Top             =   360
  175.          Width           =   1875
  176.          _version        =   65536
  177.          _extentx        =   3307
  178.          _extenty        =   1931
  179.          _stockprops     =   70
  180.          caption         =   "Thumb Screw"
  181.          BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  182.             name            =   "Times New Roman"
  183.             charset         =   0
  184.             weight          =   700
  185.             size            =   12
  186.             underline       =   0   'False
  187.             italic          =   0   'False
  188.             strikethrough   =   0   'False
  189.          EndProperty
  190.          picture         =   "ct_move.frx":60F0
  191.          backcolor       =   14745599
  192.          forecolor       =   8388608
  193.          shadowcolor     =   0
  194.          bordertype      =   2
  195.          sequencetype    =   1
  196.          piccols         =   4
  197.          picrows         =   4
  198.          repeatrate      =   20
  199.       End
  200.    End
  201.    Begin VB.Frame Frame1 
  202.       Caption         =   "Rotation Sequence"
  203.       BeginProperty Font 
  204.          name            =   "MS Sans Serif"
  205.          charset         =   0
  206.          weight          =   700
  207.          size            =   8.25
  208.          underline       =   0   'False
  209.          italic          =   0   'False
  210.          strikethrough   =   0   'False
  211.       EndProperty
  212.       Height          =   2895
  213.       Left            =   180
  214.       TabIndex        =   1
  215.       Top             =   1080
  216.       Width           =   2235
  217.       Begin MoveLib.ctMove ctMove2 
  218.          Height          =   1005
  219.          Left            =   240
  220.          TabIndex        =   3
  221.          Top             =   1710
  222.          Width           =   1755
  223.          _version        =   65536
  224.          _extentx        =   3096
  225.          _extenty        =   1773
  226.          _stockprops     =   70
  227.          caption         =   "Trash"
  228.          BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  229.             name            =   "MS Sans Serif"
  230.             charset         =   0
  231.             weight          =   400
  232.             size            =   9.75
  233.             underline       =   0   'False
  234.             italic          =   0   'False
  235.             strikethrough   =   0   'False
  236.          EndProperty
  237.          picture         =   "ct_move.frx":8582
  238.          forecolor       =   8388608
  239.          shadowcolor     =   0
  240.          textposition    =   3
  241.          piccols         =   6
  242.          textxoffset     =   -12
  243.          picxoffset      =   12
  244.          repeatrate      =   12
  245.          showfocus       =   0   'False
  246.       End
  247.       Begin MoveLib.ctMove ctMove1 
  248.          Height          =   1095
  249.          Left            =   240
  250.          TabIndex        =   2
  251.          Top             =   450
  252.          Width           =   1755
  253.          _version        =   65536
  254.          _extentx        =   3096
  255.          _extenty        =   1931
  256.          _stockprops     =   70
  257.          caption         =   "Turn the Page"
  258.          BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  259.             name            =   "MS Sans Serif"
  260.             charset         =   0
  261.             weight          =   700
  262.             size            =   8.25
  263.             underline       =   0   'False
  264.             italic          =   0   'False
  265.             strikethrough   =   0   'False
  266.          EndProperty
  267.          picture         =   "ct_move.frx":9430
  268.          shadowcolor     =   0
  269.          piccols         =   3
  270.          picrows         =   2
  271.          textyoffset     =   -4
  272.          picyoffset      =   5
  273.          repeatrate      =   10
  274.       End
  275.    End
  276.    Begin VB.Label Label2 
  277.       Alignment       =   2  'Center
  278.       Caption         =   "Click on Any Image or Click and Drag A Mail Box into the Garbage Can"
  279.       ForeColor       =   &H00800000&
  280.       Height          =   645
  281.       Left            =   2640
  282.       TabIndex        =   5
  283.       Top             =   2880
  284.       Width           =   2235
  285.    End
  286.    Begin VB.Label Label1 
  287.       Alignment       =   2  'Center
  288.       BackColor       =   &H00C0C0C0&
  289.       Caption         =   $"ct_move.frx":9DC2
  290.       BeginProperty Font 
  291.          name            =   "MS Sans Serif"
  292.          charset         =   0
  293.          weight          =   700
  294.          size            =   8.25
  295.          underline       =   0   'False
  296.          italic          =   0   'False
  297.          strikethrough   =   0   'False
  298.       EndProperty
  299.       ForeColor       =   &H00800000&
  300.       Height          =   645
  301.       Left            =   180
  302.       TabIndex        =   0
  303.       Top             =   180
  304.       Width           =   7095
  305.    End
  306. Attribute VB_Name = "w_move_demo"
  307. Attribute VB_Creatable = False
  308. Attribute VB_Exposed = False
  309. Dim nCrntMail As Integer
  310. Private Sub Command1_Click()
  311.    Unload w_move_demo
  312. End Sub
  313. Private Sub Command2_Click()
  314.    nCrntMail = 1
  315.    ctmove_mail.Sequence = "1,4,3,6,9,12,1"
  316. End Sub
  317. Private Sub Command3_Click()
  318.    nCrntMail = 2
  319.    ctmove_mail.Sequence = "1,4,7,10,1"
  320. End Sub
  321. Private Sub Command4_Click()
  322.    nCrntMail = 3
  323.    ctmove_mail.Sequence = "1,4,2,5,8,11,1"
  324. End Sub
  325. Private Sub ctmove_mail_EndSequence()
  326.    If (nCrntMail = 1) Then
  327.       ctClip1.ActivePicture = 2
  328.    ElseIf (nCrntMail = 2) Then
  329.       ctClip2.ActivePicture = 2
  330.    ElseIf (nCrntMail = 3) Then
  331.       ctClip3.ActivePicture = 2
  332.    End If
  333. End Sub
  334. Private Sub ctMove2_DragDrop(Source As Control, X As Single, Y As Single)
  335.    ctMove2.StartMove
  336.    If Source = ctClip1 Then
  337.       ctClip1.ActivePicture = 1
  338.    ElseIf Source = ctClip2 Then
  339.       ctClip2.ActivePicture = 1
  340.    ElseIf Source = ctClip3 Then
  341.       ctClip3.ActivePicture = 1
  342.    End If
  343. End Sub
  344. Private Sub Form_Load()
  345.    ' Center the window on the screen
  346.    Move (Screen.Width - Width) / 2, (Screen.Height - Height) * 0.25
  347. End Sub
  348.