home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD139201192001.psc / Frm_Change_File.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-01-19  |  2.5 KB  |  92 lines
  1. VERSION 5.00
  2. Begin VB.Form Frm_Change_File 
  3.    BorderStyle     =   4  'Festes Werkzeugfenster
  4.    Caption         =   "Datei wechseln"
  5.    ClientHeight    =   3045
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   6435
  9.    BeginProperty Font 
  10.       Name            =   "Arial"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   3045
  22.    ScaleWidth      =   6435
  23.    ShowInTaskbar   =   0   'False
  24.    StartUpPosition =   1  'Fenstermitte
  25.    Begin VB.CommandButton Cmd_Cancel 
  26.       Caption         =   "Cancel"
  27.       Height          =   375
  28.       Left            =   4560
  29.       TabIndex        =   3
  30.       Top             =   720
  31.       Width           =   1815
  32.    End
  33.    Begin VB.CommandButton Cmd_Ok 
  34.       Caption         =   "OK"
  35.       Height          =   375
  36.       Left            =   4560
  37.       TabIndex        =   2
  38.       Top             =   240
  39.       Width           =   1815
  40.    End
  41.    Begin VB.Frame Frame_Main 
  42.       Caption         =   "Ge
  43. ffnete Fenster"
  44.       Height          =   2805
  45.       Left            =   120
  46.       TabIndex        =   1
  47.       Top             =   90
  48.       Width           =   4395
  49.       Begin VB.ListBox List_Opened_Windows 
  50.          Height          =   2370
  51.          Left            =   150
  52.          TabIndex        =   0
  53.          Top             =   300
  54.          Width           =   4125
  55.       End
  56.    End
  57. Attribute VB_Name = "Frm_Change_File"
  58. Attribute VB_GlobalNameSpace = False
  59. Attribute VB_Creatable = False
  60. Attribute VB_PredeclaredId = True
  61. Attribute VB_Exposed = False
  62. Private Sub Cmd_Cancel_Click()
  63. On Error GoTo Error
  64.     Unload Me
  65. Exit Sub
  66. Error:
  67. End Sub
  68. Private Sub Cmd_Ok_Click()
  69. On Error GoTo Error
  70.     m_Window_Index = List_Opened_Windows.ListIndex + 1
  71.     Call Change_Window
  72. Exit Sub
  73. Error:
  74.     MsgBox Err.Description, vbCritical
  75. End Sub
  76. Private Sub Form_Load()
  77. On Error GoTo Error
  78.     For i = 1 To Forms.Count - 3
  79.         List_Opened_Windows.AddItem i & ": " & Forms(i).Caption
  80.     Next
  81. Exit Sub
  82. Error:
  83.     MsgBox Err.Description, vbCritical
  84. End Sub
  85. Private Sub List_Opened_Windows_DblClick()
  86. On Error GoTo Error
  87.     Call Cmd_Ok_Click
  88. Exit Sub
  89. Error:
  90.     MsgBox Err.Description, vbCritical
  91. End Sub
  92.