home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / disk22 / vbasic / pasafoco.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-29  |  2.2 KB  |  85 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Ejemplo del m
  4. todo SetFocus"
  5.    ClientHeight    =   2430
  6.    ClientLeft      =   2610
  7.    ClientTop       =   2715
  8.    ClientWidth     =   3810
  9.    Height          =   2835
  10.    Left            =   2550
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2430
  13.    ScaleWidth      =   3810
  14.    Top             =   2370
  15.    Width           =   3930
  16.    Begin VB.CommandButton Command3 
  17.       Caption         =   "Command3"
  18.       Height          =   495
  19.       Left            =   480
  20.       TabIndex        =   2
  21.       Top             =   1680
  22.       Width           =   1215
  23.    End
  24.    Begin VB.CommandButton Command2 
  25.       Caption         =   "Command2"
  26.       Height          =   495
  27.       Left            =   480
  28.       TabIndex        =   1
  29.       Top             =   960
  30.       Width           =   1215
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Command1"
  34.       Height          =   495
  35.       Left            =   480
  36.       TabIndex        =   0
  37.       Top             =   240
  38.       Width           =   1215
  39.    End
  40.    Begin VB.TextBox Text3 
  41.       Height          =   495
  42.       Left            =   2160
  43.       TabIndex        =   5
  44.       Text            =   "Text3"
  45.       Top             =   1680
  46.       Width           =   1215
  47.    End
  48.    Begin VB.TextBox Text2 
  49.       Height          =   495
  50.       Left            =   2160
  51.       TabIndex        =   4
  52.       Text            =   "Text2"
  53.       Top             =   960
  54.       Width           =   1215
  55.    End
  56.    Begin VB.TextBox Text1 
  57.       Height          =   495
  58.       Left            =   2160
  59.       TabIndex        =   3
  60.       Text            =   "Text1"
  61.       Top             =   240
  62.       Width           =   1215
  63.    End
  64. Attribute VB_Name = "Form1"
  65. Attribute VB_Creatable = False
  66. Attribute VB_Exposed = False
  67. Private Sub Label1_Click()
  68.   Text1.SetFocus
  69. End Sub
  70. Private Sub Label2_Click()
  71.   Text2.SetFocus
  72. End Sub
  73. Private Sub Label3_Click()
  74.   Text3.SetFocus
  75. End Sub
  76. Private Sub Command1_Click()
  77.   Text1.SetFocus
  78. End Sub
  79. Private Sub Command2_Click()
  80.   Text2.SetFocus
  81. End Sub
  82. Private Sub Command3_Click()
  83.   Text3.SetFocus
  84. End Sub
  85.