home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fastview / frmimght.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-01-13  |  1.9 KB  |  60 lines
  1. VERSION 5.00
  2. Begin VB.Form frmImgHTML 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Image Tag HTML "
  5.    ClientHeight    =   720
  6.    ClientLeft      =   1110
  7.    ClientTop       =   1590
  8.    ClientWidth     =   5595
  9.    Icon            =   "frmImgHTML.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   720
  13.    ScaleWidth      =   5595
  14.    StartUpPosition =   1  'CenterOwner
  15.    Begin VB.CommandButton cmdClipboard 
  16.       Caption         =   "Copy to Clipboard"
  17.       Height          =   345
  18.       Left            =   15
  19.       TabIndex        =   2
  20.       Top             =   360
  21.       Width           =   1455
  22.    End
  23.    Begin VB.CommandButton cmdClose 
  24.       Caption         =   "&Close"
  25.       Height          =   345
  26.       Left            =   4635
  27.       TabIndex        =   1
  28.       Top             =   360
  29.       Width           =   930
  30.    End
  31.    Begin VB.TextBox txtImgCode 
  32.       Height          =   300
  33.       Left            =   15
  34.       TabIndex        =   0
  35.       Top             =   30
  36.       Width           =   5565
  37.    End
  38. Attribute VB_Name = "frmImgHTML"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. '*******************************************************
  44. ' FastView32 was written mostly by Ryan Martinsen
  45. ' Image Map Maker - written by Theo Kandiliotis - ionikh@hol.gr
  46. ' I don't know who wrote the code for Inverting Colors
  47. ' If you use any of this code I would appreciate it if
  48. ' you would send me any improvements made to the code or
  49. ' interface design.
  50. ' E-mail: ryan@homeonthewww.com
  51. ' Web:    http://www.homeonthewww.com/ryan/
  52. '*******************************************************
  53. Private Sub cmdClipboard_Click()
  54. Clipboard.Clear
  55. Clipboard.SetText txtImgCode.Text
  56. End Sub
  57. Private Sub cmdClose_Click()
  58. Unload Me
  59. End Sub
  60.