home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch13 / olertime / frmole.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  2.2 KB  |  73 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOLE 
  3.    Caption         =   "OLE Run-Time"
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5880
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4245
  10.    ScaleWidth      =   5880
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton cmdClose 
  13.       Cancel          =   -1  'True
  14.       Caption         =   "&Close"
  15.       Height          =   495
  16.       Left            =   0
  17.       TabIndex        =   2
  18.       Top             =   960
  19.       Width           =   1215
  20.    End
  21.    Begin VB.CommandButton cmdObjInfo 
  22.       Caption         =   "&Object Info..."
  23.       Enabled         =   0   'False
  24.       Height          =   495
  25.       Left            =   0
  26.       TabIndex        =   1
  27.       Top             =   480
  28.       Width           =   1215
  29.    End
  30.    Begin VB.CommandButton cmdInsObj 
  31.       Caption         =   "&Insert Object..."
  32.       Default         =   -1  'True
  33.       Height          =   495
  34.       Left            =   0
  35.       TabIndex        =   0
  36.       Top             =   0
  37.       Width           =   1215
  38.    End
  39.    Begin VB.OLE oleDisplay 
  40.       Height          =   4215
  41.       Left            =   1185
  42.       TabIndex        =   3
  43.       Top             =   -135
  44.       Width           =   4575
  45.    End
  46. Attribute VB_Name = "frmOLE"
  47. Attribute VB_GlobalNameSpace = False
  48. Attribute VB_Creatable = False
  49. Attribute VB_PredeclaredId = True
  50. Attribute VB_Exposed = False
  51. Option Explicit
  52. Private Sub cmdClose_Click()
  53.     Dim Quit As String
  54.     Quit = MsgBox("Are you sure you want to quit?", vbYesNo + vbQuestion)
  55.     If Quit = vbYes Then
  56.         End
  57.     End If
  58. End Sub
  59. Private Sub cmdInsObj_Click()
  60.     frmType.Show
  61. End Sub
  62. Private Sub cmdObjInfo_Click()
  63.     Dim SourceText As String
  64.     Dim TypeText As String
  65.     Dim ItemText As String
  66.     Dim MsgText As String
  67.     SourceText = "The object's source file is " & oleDisplay.SourceDoc
  68.     TypeText = "The type of object is " & oleDisplay.Class
  69.     ItemText = "The selected item is " & oleDisplay.SourceItem
  70.     MsgText = SourceText & vbCrLf & TypeText & vbCrLf & ItemText
  71.     MsgBox MsgText, vbInformation, "Object Information"
  72. End Sub
  73.