home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pagede1a / options.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-31  |  3.6 KB  |  121 lines
  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Options"
  5.    ClientHeight    =   2055
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   5295
  9.    LinkTopic       =   "Form5"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2055
  13.    ScaleWidth      =   5295
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command3 
  17.       Cancel          =   -1  'True
  18.       Caption         =   "Cancel"
  19.       Height          =   255
  20.       Left            =   4200
  21.       TabIndex        =   5
  22.       Top             =   480
  23.       Width           =   975
  24.    End
  25.    Begin VB.CommandButton Command2 
  26.       Caption         =   "Ok"
  27.       Default         =   -1  'True
  28.       Height          =   255
  29.       Left            =   4200
  30.       TabIndex        =   4
  31.       Top             =   120
  32.       Width           =   975
  33.    End
  34.    Begin VB.Frame Frame2 
  35.       Caption         =   "Link"
  36.       Height          =   735
  37.       Left            =   120
  38.       TabIndex        =   6
  39.       Top             =   1200
  40.       Width           =   5055
  41.       Begin VB.TextBox Text2 
  42.          Height          =   285
  43.          Left            =   120
  44.          TabIndex        =   3
  45.          Top             =   240
  46.          Width           =   4815
  47.       End
  48.    End
  49.    Begin VB.Frame Frame1 
  50.       Caption         =   "Image options"
  51.       Height          =   975
  52.       Left            =   120
  53.       TabIndex        =   0
  54.       Top             =   120
  55.       Width           =   3495
  56.       Begin VB.CommandButton Command1 
  57.          Caption         =   "Browse"
  58.          Height          =   255
  59.          Left            =   2640
  60.          TabIndex        =   2
  61.          Top             =   480
  62.          Width           =   735
  63.       End
  64.       Begin VB.TextBox Text1 
  65.          Height          =   285
  66.          Left            =   120
  67.          TabIndex        =   1
  68.          Top             =   480
  69.          Width           =   2535
  70.       End
  71.       Begin VB.Label Label2 
  72.          AutoSize        =   -1  'True
  73.          BackStyle       =   0  'Transparent
  74.          Caption         =   "filename:"
  75.          Height          =   195
  76.          Left            =   120
  77.          TabIndex        =   7
  78.          Top             =   240
  79.          Width           =   630
  80.       End
  81.    End
  82. Attribute VB_Name = "Form5"
  83. Attribute VB_GlobalNameSpace = False
  84. Attribute VB_Creatable = False
  85. Attribute VB_PredeclaredId = True
  86. Attribute VB_Exposed = False
  87. Private Sub Command1_Click()
  88. On Error GoTo er
  89. MDI.CommonDialog1.Filter = "Gif images(*.gif)|*.gif|Jpeg inmages(*.jpg)|*.jpg|Windows bitmap(*.bmp)|*.bmp|Windows Metafile(*.wmf)|*.wmf|Icons(*.ico)|*.ico|Cursers(*.cur)|*.cur|"
  90. MDI.CommonDialog1.ShowOpen
  91. Form1.Image1(ccindexx).Stretch = False
  92. Form1.Image1(ccindexx).Picture = LoadPicture(MDI.CommonDialog1.filename)
  93. Form1.Image1(ccindexx).Stretch = True
  94. Form1.Image1(ccindexx).ToolTipText = MDI.CommonDialog1.filename
  95. Text1.Text = MDI.CommonDialog1.filename
  96. Exit Sub
  97. If Err.Number <> 32755 Then
  98. MsgBox Err.Description
  99. End If
  100. End Sub
  101. Private Sub Command2_Click()
  102. On Error Resume Next
  103. If Me.Tag = "image" Then
  104. Form1.Image1(indexctrl).ToolTipText = Text1.Text
  105. Form1.Image1(indexctrl).Tag = Text2.Text
  106. Unload Me
  107. Form1.Label1(indexctrl).Tag = Text2.Text
  108. Unload Me
  109. End If
  110. End Sub
  111. Private Sub Command3_Click()
  112. Unload Me
  113. End Sub
  114. Private Sub Form_Activate()
  115. On Error Resume Next
  116. If Me.Tag = "image" Then
  117. Frame1.Enabled = True
  118. Frame1.Enabled = False
  119. End If
  120. End Sub
  121.