home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / soft / java / axbridge.exe / _SETUP.1 / vb5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-09-18  |  6.5 KB  |  189 lines
  1. VERSION 5.00
  2. Object = "{23BE13F1-4B64-11CB-BB1D-00805F2ADE08}#1.0#0"; "beans.ocx"
  3. Object = "{B682F5E0-DAB4-11D0-8DBC-00805F499D93}#1.0#0"; "beans.ocx"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   5865
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   5685
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   9.75
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   5865
  21.    ScaleWidth      =   5685
  22.    StartUpPosition =   3  'Windows Default
  23.    Begin ExplicitButtonCtl.ExplicitButton ExplicitButton1 
  24.       Height          =   855
  25.       Left            =   720
  26.       Top             =   3240
  27.       Width           =   1935
  28.       Label           =   "Start"
  29.       ForeColor       =   0
  30.       BackColor       =   12632256
  31.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   8.25
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.    End
  41.    Begin JugglerCtl.Juggler Juggler1 
  42.       Height          =   1935
  43.       Left            =   1680
  44.       Top             =   1200
  45.       Width           =   2295
  46.       BeginProperty AppletContext 
  47.       EndProperty
  48.       BeginProperty MaximumSize 
  49.          PersistedArray  =   "VB5.frx":0000
  50.       EndProperty
  51.       Enabled         =   -1  'True
  52.       BeginProperty CodeBase 
  53.          PersistedArray  =   "VB5.frx":0060
  54.       EndProperty
  55.       Active          =   -1  'True
  56.       BeginProperty PreferredSize 
  57.          PersistedArray  =   "VB5.frx":0158
  58.       EndProperty
  59.       ForeColor       =   0
  60.       Object.Visible         =   -1  'True
  61.       BeginProperty DocumentBase 
  62.          PersistedArray  =   "VB5.frx":01B8
  63.       EndProperty
  64.       BeginProperty Locale 
  65.          PersistedArray  =   "VB5.frx":02B0
  66.       EndProperty
  67.       BackColor       =   12632256
  68.       BeginProperty Insets 
  69.          PersistedArray  =   "VB5.frx":036F
  70.       EndProperty
  71.       ComponentCount  =   0
  72.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  73.          Name            =   "MS Sans Serif"
  74.          Size            =   8.25
  75.          Charset         =   0
  76.          Weight          =   400
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       BeginProperty Layout 
  82.          PersistedArray  =   "VB5.frx":03E1
  83.       EndProperty
  84.       AnimationRate   =   125
  85.       Name            =   "panel0"
  86.       AlignmentY      =   0.5
  87.       AlignmentX      =   0.5
  88.       BeginProperty MinimumSize 
  89.          PersistedArray  =   "VB5.frx":044B
  90.       EndProperty
  91.       AppletInfo      =   " "
  92.    End
  93.    Begin ExplicitButtonCtl.ExplicitButton ExplicitButton2 
  94.       Height          =   855
  95.       Left            =   3000
  96.       Top             =   3240
  97.       Width           =   1935
  98.       Label           =   "Stop"
  99.       ForeColor       =   0
  100.       BackColor       =   12632256
  101.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.    End
  111.    Begin VB.TextBox Text2 
  112.       Height          =   615
  113.       Left            =   3960
  114.       TabIndex        =   3
  115.       Text            =   "Text2"
  116.       Top             =   5040
  117.       Width           =   1095
  118.    End
  119.    Begin VB.TextBox Text1 
  120.       Height          =   615
  121.       Left            =   2640
  122.       TabIndex        =   2
  123.       Text            =   "Text1"
  124.       Top             =   5040
  125.       Width           =   1095
  126.    End
  127.    Begin VB.HScrollBar HScroll1 
  128.       Height          =   495
  129.       Left            =   1080
  130.       Max             =   0
  131.       Min             =   200
  132.       TabIndex        =   1
  133.       Top             =   4320
  134.       Value           =   100
  135.       Width           =   3375
  136.    End
  137.    Begin VB.Label edf 
  138.       Caption         =   "Mouse Coord"
  139.       BeginProperty Font 
  140.          Name            =   "MS Sans Serif"
  141.          Size            =   12
  142.          Charset         =   0
  143.          Weight          =   400
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       Height          =   495
  149.       Left            =   720
  150.       TabIndex        =   4
  151.       Top             =   5040
  152.       Width           =   1815
  153.    End
  154.    Begin VB.Label Label1 
  155.       Caption         =   "Visual Basic For JavaBeans"
  156.       BeginProperty Font 
  157.          Name            =   "MS Sans Serif"
  158.          Size            =   13.5
  159.          Charset         =   0
  160.          Weight          =   400
  161.          Underline       =   0   'False
  162.          Italic          =   0   'False
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       Height          =   615
  166.       Left            =   960
  167.       TabIndex        =   0
  168.       Top             =   120
  169.       Width           =   3855
  170.    End
  171. Attribute VB_Name = "Form1"
  172. Attribute VB_GlobalNameSpace = False
  173. Attribute VB_Creatable = False
  174. Attribute VB_PredeclaredId = True
  175. Attribute VB_Exposed = False
  176. Private Sub ExplicitButton1_actionPerformed(ByVal modifiers As Long, ByVal actionCommand As String, ByVal ID As Long, ByVal source As Object)
  177.     Juggler1.start
  178. End Sub
  179. Private Sub ExplicitButton2_actionPerformed(ByVal modifiers As Long, ByVal actionCommand As String, ByVal ID As Long, ByVal source As Object)
  180.     Juggler1.stop
  181. End Sub
  182. Private Sub HScroll1_Change()
  183.     Juggler1.AnimationRate = HScroll1.Value
  184. End Sub
  185. Private Sub Juggler1_mouseMoved(ByVal y As Long, ByVal x As Long, ByVal clickCount As Long, ByVal point As Object, ByVal popupTrigger As Boolean, ByVal when As Long, ByVal modifiers As Long, ByVal altDown As Boolean, ByVal metaDown As Boolean, ByVal shiftDown As Boolean, ByVal controlDown As Boolean, ByVal consumed As Boolean, ByVal component As Object, ByVal ID As Long, ByVal source As Object)
  186.     Text1.Text = x
  187.     Text2.Text = y
  188. End Sub
  189.