home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch15code / test.frm < prev    next >
Text File  |  1995-08-12  |  2KB  |  80 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Test WordArt Automation"
  4.    ClientHeight    =   2556
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1548
  7.    ClientWidth     =   4428
  8.    Height          =   2880
  9.    Left            =   1092
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2556
  12.    ScaleWidth      =   4428
  13.    Top             =   1272
  14.    Width           =   4524
  15.    Begin VB.CommandButton cmdRotate 
  16.       Caption         =   "Rotate"
  17.       Height          =   375
  18.       Left            =   2520
  19.       TabIndex        =   2
  20.       Top             =   2040
  21.       Width           =   1455
  22.    End
  23.    Begin VB.CommandButton cmdInsertText 
  24.       Caption         =   "Insert Text"
  25.       Height          =   375
  26.       Left            =   2520
  27.       TabIndex        =   1
  28.       Top             =   1560
  29.       Width           =   1455
  30.    End
  31.    Begin VB.OLE OLE1 
  32.       Class           =   "MSWordArt.2"
  33.       Height          =   1095
  34.       Left            =   720
  35.       OleObjectBlob   =   "TEST.frx":0000
  36.       TabIndex        =   0
  37.       Top             =   360
  38.       Width           =   3255
  39.    End
  40. End
  41. Attribute VB_Name = "Form1"
  42. Attribute VB_Creatable = False
  43. Attribute VB_Exposed = False
  44. Option Explicit
  45.  
  46. Private Sub cmdRotate_Click()
  47.     ' Create a new object variable.
  48.     Dim oleWordArt As Object
  49.     ' Set the object variable to the VB
  50.     ' WordArt.Application class created to
  51.     ' make WordArt programmable.
  52.     Set oleWordArt = GetObject("", "wordart.application")
  53.     ' Rotate the object
  54.     oleWordArt.Rotate OLE1, 45
  55.     ' Insert the WordArt object into an OLE
  56.     ' control on the current form.
  57.     'Set OLE1 = oleWordArt.Object
  58. End Sub
  59.  
  60. Private Sub cmdInsertText_Click()
  61.     ' Create a new object variable.
  62.     Dim oleWordArt As Object
  63.     ' Set the object variable to the VB
  64.     ' WordArt.Application class created to
  65.     ' make WordArt programmable.
  66.     Dim strText As String
  67.     strText = InputBox("Text to insert:")
  68.     ' You must compile and register WORDART.VBP
  69.     ' before the following line will work.
  70.     Set oleWordArt = GetObject("", "wordart.application")
  71.     ' Use the InsertText method from WordArt.Application.
  72.     oleWordArt.InsertText strText
  73.     ' Insert the WordArt object into an OLE
  74.     ' control on the current form.
  75.     oleWordArt.CopyObject
  76.     OLE1.Paste
  77. End Sub
  78.  
  79.  
  80.