home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / SLY_EDIT / SLIDE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-30  |  4.3 KB  |  148 lines
  1. VERSION 2.00
  2. Begin Form Slide 
  3.    ClientHeight    =   2850
  4.    ClientLeft      =   1755
  5.    ClientTop       =   2100
  6.    ClientWidth     =   6165
  7.    ControlBox      =   0   'False
  8.    Height          =   3510
  9.    Left            =   1710
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   2850
  13.    ScaleWidth      =   6165
  14.    Top             =   1485
  15.    Width           =   6255
  16.    WindowState     =   2  'Maximized
  17.    Begin GRAPH Graph1 
  18.       DragMode        =   1  'Automatic
  19.       GraphType       =   6  'Line
  20.       Height          =   2085
  21.       Left            =   3090
  22.       TabIndex        =   3
  23.       Top             =   330
  24.       Visible         =   0   'False
  25.       Width           =   2055
  26.    End
  27.    Begin TextBox Text3 
  28.       Height          =   645
  29.       Left            =   240
  30.       TabIndex        =   2
  31.       Text            =   "Bullets"
  32.       Top             =   1980
  33.       Visible         =   0   'False
  34.       Width           =   1185
  35.    End
  36.    Begin TextBox Text2 
  37.       Height          =   645
  38.       Left            =   240
  39.       TabIndex        =   1
  40.       Text            =   "Text"
  41.       Top             =   1200
  42.       Visible         =   0   'False
  43.       Width           =   1185
  44.    End
  45.    Begin TextBox Text1 
  46.       Height          =   675
  47.       Left            =   300
  48.       MultiLine       =   -1  'True
  49.       TabIndex        =   0
  50.       Text            =   "Title"
  51.       Top             =   240
  52.       Visible         =   0   'False
  53.       Width           =   1125
  54.    End
  55.    Begin Menu File 
  56.       Caption         =   "&File"
  57.       Begin Menu Save 
  58.          Caption         =   "&Save and Exit"
  59.       End
  60.       Begin Menu Cancel 
  61.          Caption         =   "&Cancel and Exit"
  62.       End
  63.    End
  64.    Begin Menu Help 
  65.       Caption         =   "&Help"
  66.       Begin Menu HelpIndex 
  67.          Caption         =   "Help &Index"
  68.       End
  69.       Begin Menu About 
  70.          Caption         =   "&About"
  71.       End
  72.    End
  73. Dim DragX As Single, DragY As Single, SizeMode As Variant
  74. Dim Want2Size As Variant
  75. Sub Close_Click ()
  76.     Unload Slide
  77. End Sub
  78. Sub Close1_Click ()
  79.    Unload Slide
  80. End Sub
  81. Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
  82.     Source.Move (X - DragX), (Y - DragY)
  83. End Sub
  84. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  85.     SizeMode = False
  86.     Want2Size = False
  87.     'Label7.Caption = "SizeMode = " & SizeMode
  88. End Sub
  89. Sub Text1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  90.     If (Button = 1) And (Not SizeMode) Then
  91.      Text1.MousePointer = 1
  92.      Text1.Drag 1
  93.      DragX = X
  94.      DragY = Y
  95.     End If
  96.     If (Button = 1) And (SizeMode) Then
  97.      Want2Size = True
  98.      'Label8.Caption = "Want2Size = " & Want2Size
  99.     End If
  100. End Sub
  101. Sub Text1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  102.   SizeMode = True
  103.   If ((X >= 0) And (X <= 100)) Then
  104.    If (Y >= 0) And (Y <= 100) Then
  105.     Text1.MousePointer = 8
  106.    ElseIf ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height)) Then
  107.     Text1.MousePointer = 6
  108.    Else
  109.     Text1.MousePointer = 9
  110.    End If
  111.   ElseIf ((X >= (Text1.Width - 200)) And (X <= Text1.Width + 400)) Then
  112.    If (Y >= 0) And (Y <= 100) Then
  113.     Text1.MousePointer = 6
  114.    ElseIf ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height + 400)) Then
  115.     Text1.MousePointer = 8
  116.     If Want2Size Then
  117.      Text1.Width = X
  118.      Text1.Height = Y
  119.     End If
  120.    Else
  121.     Text1.MousePointer = 9
  122.     If Want2Size Then
  123.      Text1.Width = X
  124.     End If
  125.    End If
  126.   ElseIf ((Y >= 0) And (Y <= 100)) Or ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height)) Then
  127.    Text1.MousePointer = 7
  128.   Else
  129.    If Not Want2Size Then
  130.     Text1.MousePointer = 1
  131.     SizeMode = False
  132.     Want2Size = False
  133.    End If
  134.   End If
  135. 'Label1.Caption = "X = " & X
  136. 'Label2.Caption = "Y = " & Y
  137. 'Label3.Caption = "Top = " & Text1.Top
  138. 'Label4.Caption = "Left = " & Text1.Left
  139. 'Label5.Caption = "Height = " & Text1.Height
  140. 'Label6.Caption = "Width = " & Text1.Width
  141. 'Label7.Caption = "SizeMode = " & SizeMode
  142. 'Label8.Caption = "Want2Size = " & Want2Size
  143. End Sub
  144. Sub Text1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  145.     Text1.Drag 2
  146.     Want2Size = False
  147. End Sub
  148.