home *** CD-ROM | disk | FTP | other *** search
/ Learn Java Now / Learn_Java_Now_Microsoft_1996.iso / MsDev / Samples / Microsoft / COMCallingJava / VBDriver / VBDriver.Frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-27  |  4.8 KB  |  159 lines
  1. VERSION 4.00
  2. Begin VB.Form FrmMain 
  3.    Caption         =   "Java & COM"
  4.    ClientHeight    =   2925
  5.    ClientLeft      =   675
  6.    ClientTop       =   1680
  7.    ClientWidth     =   3915
  8.    Height          =   3315
  9.    Icon            =   "VBDriver.frx":0000
  10.    Left            =   615
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2925
  13.    ScaleWidth      =   3915
  14.    Top             =   1350
  15.    Width           =   4035
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Call Java!"
  18.       BeginProperty Font 
  19.          name            =   "MS Sans Serif"
  20.          charset         =   0
  21.          weight          =   700
  22.          size            =   9.75
  23.          underline       =   0   'False
  24.          italic          =   0   'False
  25.          strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   495
  28.       Left            =   2280
  29.       TabIndex        =   7
  30.       Top             =   1560
  31.       Width           =   1455
  32.    End
  33.    Begin VB.Label Label5 
  34.       Caption         =   $"VBDriver.frx":030A
  35.       BeginProperty Font 
  36.          name            =   "MS Sans Serif"
  37.          charset         =   0
  38.          weight          =   400
  39.          size            =   9.75
  40.          underline       =   0   'False
  41.          italic          =   0   'False
  42.          strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   975
  45.       Left            =   120
  46.       TabIndex        =   6
  47.       Top             =   240
  48.       Width           =   3615
  49.    End
  50.    Begin VB.Label Label4 
  51.       Caption         =   "Greatest Common Denominator according to our Java function"
  52.       Height          =   495
  53.       Left            =   120
  54.       TabIndex        =   5
  55.       Top             =   2400
  56.       Width           =   2655
  57.    End
  58.    Begin VB.Label Label3 
  59.       Caption         =   """V"" Value"
  60.       BeginProperty Font 
  61.          name            =   "MS Sans Serif"
  62.          charset         =   0
  63.          weight          =   400
  64.          size            =   9.75
  65.          underline       =   0   'False
  66.          italic          =   0   'False
  67.          strikethrough   =   0   'False
  68.       EndProperty
  69.       Height          =   255
  70.       Left            =   120
  71.       TabIndex        =   4
  72.       Top             =   1920
  73.       Width           =   975
  74.    End
  75.    Begin VB.Label Label2 
  76.       Caption         =   """U"" Value"
  77.       BeginProperty Font 
  78.          name            =   "MS Sans Serif"
  79.          charset         =   0
  80.          weight          =   400
  81.          size            =   9.75
  82.          underline       =   0   'False
  83.          italic          =   0   'False
  84.          strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   255
  87.       Left            =   120
  88.       TabIndex        =   3
  89.       Top             =   1440
  90.       Width           =   975
  91.    End
  92.    Begin VB.Label Final 
  93.       BackColor       =   &H00FFFFFF&
  94.       BorderStyle     =   1  'Fixed Single
  95.       Enabled         =   0   'False
  96.       BeginProperty Font 
  97.          name            =   "MS Sans Serif"
  98.          charset         =   0
  99.          weight          =   700
  100.          size            =   12
  101.          underline       =   0   'False
  102.          italic          =   0   'False
  103.          strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   375
  106.       Left            =   2880
  107.       TabIndex        =   2
  108.       Top             =   2400
  109.       Width           =   855
  110.    End
  111.    Begin MSMask.MaskEdBox V 
  112.       Height          =   255
  113.       Left            =   1200
  114.       TabIndex        =   1
  115.       Top             =   1920
  116.       Width           =   855
  117.       _Version        =   65536
  118.       _ExtentX        =   1508
  119.       _ExtentY        =   450
  120.       _StockProps     =   109
  121.       ForeColor       =   -2147483640
  122.       BackColor       =   -2147483643
  123.       BorderStyle     =   1
  124.    End
  125.    Begin MSMask.MaskEdBox U 
  126.       Height          =   255
  127.       Left            =   1200
  128.       TabIndex        =   0
  129.       Top             =   1440
  130.       Width           =   855
  131.       _Version        =   65536
  132.       _ExtentX        =   1508
  133.       _ExtentY        =   450
  134.       _StockProps     =   109
  135.       ForeColor       =   -2147483640
  136.       BackColor       =   -2147483643
  137.       BorderStyle     =   1
  138.    End
  139. Attribute VB_Name = "FrmMain"
  140. Attribute VB_Creatable = False
  141. Attribute VB_Exposed = False
  142. Dim MyEuclid As IGCD
  143. Private Sub Command1_Click()
  144.     If Not IsNumeric(U) Then
  145.         MsgBox "U must be numeric"
  146.         U.SetFocus
  147.         Exit Sub
  148.     End If
  149.     If Not IsNumeric(V) Then
  150.         MsgBox "V must be numeric"
  151.         V.SetFocus
  152.         Exit Sub
  153.     End If
  154.     Final = MyEuclid.GCD(U, V)
  155. End Sub
  156. Private Sub Form_Load()
  157.     Set MyEuclid = New CEuclid
  158. End Sub
  159.