home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / desaware / apitools / apicvtr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-17  |  1.7 KB  |  58 lines
  1. VERSION 5.00
  2. Begin VB.Form frmResults 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "Conversion Results"
  6.    ClientHeight    =   3990
  7.    ClientLeft      =   2970
  8.    ClientTop       =   2400
  9.    ClientWidth     =   6030
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    LinkTopic       =   "Form2"
  21.    PaletteMode     =   1  'UseZOrder
  22.    ScaleHeight     =   3990
  23.    ScaleWidth      =   6030
  24.    Visible         =   0   'False
  25.    Begin VB.TextBox edtResults 
  26.       Appearance      =   0  'Flat
  27.       Height          =   3855
  28.       Left            =   60
  29.       MultiLine       =   -1  'True
  30.       ScrollBars      =   2  'Vertical
  31.       TabIndex        =   0
  32.       Top             =   60
  33.       Width           =   5895
  34.    End
  35.    Begin VB.Menu mnuCopy 
  36.       Caption         =   "Copy"
  37.    End
  38. Attribute VB_Name = "frmResults"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. ' Copyright (c) 1996 by Desaware
  44. ' Part of the Desaware API Toolkit
  45. ' All Rights Reserved
  46. Option Explicit
  47. Dim CRLF
  48. Private Sub Form_Load()
  49.     edtResults.Text = CvtResult$
  50. End Sub
  51. Private Sub Form_Resize()
  52.     ' Position text box to fill the form.
  53.     edtResults.Move 0, 0, ScaleWidth, ScaleHeight
  54. End Sub
  55. Private Sub mnuCopy_Click()
  56.     Clipboard.SetText edtResults.Text
  57. End Sub
  58.