home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / DISPATCH / FORM2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-09-01  |  3.7 KB  |  129 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00FFFF80&
  4.    Caption         =   "Form2"
  5.    ClientHeight    =   3915
  6.    ClientLeft      =   6735
  7.    ClientTop       =   2700
  8.    ClientWidth     =   3885
  9.    Height          =   4320
  10.    Left            =   6675
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3915
  13.    ScaleWidth      =   3885
  14.    Top             =   2355
  15.    Width           =   4005
  16.    Begin TextBox dispatcher 
  17.       Height          =   285
  18.       Index           =   0
  19.       Left            =   360
  20.       TabIndex        =   5
  21.       Text            =   "dispatcher"
  22.       Top             =   2400
  23.       Visible         =   0   'False
  24.       Width           =   1395
  25.    End
  26.    Begin TextBox ret 
  27.       BackColor       =   &H00FFFFFF&
  28.       Height          =   285
  29.       Left            =   2040
  30.       TabIndex        =   0
  31.       Text            =   "Text1"
  32.       Top             =   1380
  33.       Width           =   1155
  34.    End
  35.    Begin CommandButton Command1 
  36.       Caption         =   "Exit"
  37.       Height          =   495
  38.       Left            =   2520
  39.       TabIndex        =   1
  40.       Top             =   3240
  41.       Width           =   1155
  42.    End
  43.    Begin Label arg 
  44.       BackStyle       =   0  'Transparent
  45.       BorderStyle     =   1  'Fixed Single
  46.       Caption         =   "Label3"
  47.       DataField       =   "Name"
  48.       DataSource      =   "BankCtrl"
  49.       Height          =   240
  50.       Left            =   2040
  51.       TabIndex        =   4
  52.       Top             =   780
  53.       Width           =   1155
  54.    End
  55.    Begin Label Label2 
  56.       Alignment       =   1  'Right Justify
  57.       BackStyle       =   0  'Transparent
  58.       Caption         =   "Argument:"
  59.       Height          =   240
  60.       Left            =   960
  61.       TabIndex        =   6
  62.       Top             =   780
  63.       Width           =   945
  64.    End
  65.    Begin Label Label1 
  66.       Alignment       =   1  'Right Justify
  67.       BackStyle       =   0  'Transparent
  68.       Caption         =   "Enter return value:"
  69.       Height          =   240
  70.       Left            =   240
  71.       TabIndex        =   3
  72.       Top             =   1440
  73.       Width           =   1695
  74.    End
  75.    Begin Label subname 
  76.       AutoSize        =   -1  'True
  77.       BackColor       =   &H00FFFF80&
  78.       Caption         =   "Label1"
  79.       FontBold        =   -1  'True
  80.       FontItalic      =   0   'False
  81.       FontName        =   "MS Sans Serif"
  82.       FontSize        =   12
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       Height          =   300
  86.       Left            =   480
  87.       TabIndex        =   2
  88.       Top             =   300
  89.       Width           =   825
  90.    End
  91. Option Explicit
  92. Sub Command1_Click ()
  93.     Dim retval
  94.     retval = ret        ' get the return value
  95.     Unload form2
  96.     Call dispatchReturn(retval)
  97. End Sub
  98. Sub dispatcher_Change (index As Integer)
  99.     ' dispatcher(0) = name of the sub
  100.     ' dispatcher(1) = first argument
  101.     ' dispatcher(2) = second arguent
  102.     ' ...
  103.     ' dispatcher(n) = n-th  argument
  104.     If index <> 0 Then  ' do nothing until we have the the name of the sub
  105.         Exit Sub
  106.     End If
  107.     Select Case dispatcher(0)
  108.         Case "Sub1"
  109.             Call sub1(dispatcher(1))
  110.         Case "Sub2"
  111.             Call sub2(dispatcher(1))
  112.     End Select
  113. End Sub
  114. Sub Form_Load ()
  115.     ' init the dispatcher to handle one argument
  116.     Load dispatcher(1)
  117.     ret = 0
  118. End Sub
  119. Sub sub1 (sarg)
  120.     subname = "sub1 called"
  121.     arg = sarg
  122.     Show
  123. End Sub
  124. Sub sub2 (sarg)
  125.     subname = "sub2 called"
  126.     arg = sarg
  127.     Show
  128. End Sub
  129.