home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 21 / IOPROG_21.ISO / SOFT / CODICE / VBASIC.ZIP / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-11-30  |  2.4 KB  |  79 lines

  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Prova di automazione OLE"
  5.    ClientHeight    =   3525
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   3900
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3525
  11.    ScaleWidth      =   3900
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "&Avvia"
  15.       Height          =   285
  16.       Left            =   1170
  17.       TabIndex        =   1
  18.       Top             =   3090
  19.       Width           =   1605
  20.    End
  21.    Begin RichTextLib.RichTextBox Testo 
  22.       Height          =   1695
  23.       Left            =   210
  24.       TabIndex        =   0
  25.       Top             =   180
  26.       Width           =   3375
  27.       _ExtentX        =   5953
  28.       _ExtentY        =   2990
  29.       _Version        =   393217
  30.       Enabled         =   -1  'True
  31.       TextRTF         =   $"Form1.frx":0000
  32.    End
  33.    Begin VB.Label LabPar 
  34.       Caption         =   "0"
  35.       ForeColor       =   &H000000C0&
  36.       Height          =   345
  37.       Left            =   2220
  38.       TabIndex        =   5
  39.       Top             =   2430
  40.       Width           =   1365
  41.    End
  42.    Begin VB.Label Label2 
  43.       Caption         =   "Parole presenti nel testo:"
  44.       Height          =   285
  45.       Left            =   240
  46.       TabIndex        =   4
  47.       Top             =   2460
  48.       Width           =   1875
  49.    End
  50.    Begin VB.Label LabCar 
  51.       Caption         =   "0"
  52.       ForeColor       =   &H000000C0&
  53.       Height          =   345
  54.       Left            =   2220
  55.       TabIndex        =   3
  56.       Top             =   2040
  57.       Width           =   1365
  58.    End
  59.    Begin VB.Label Label1 
  60.       Caption         =   "Caratteri presenti nel testo:"
  61.       Height          =   285
  62.       Left            =   240
  63.       TabIndex        =   2
  64.       Top             =   2070
  65.       Width           =   1875
  66.    End
  67. Attribute VB_Name = "Form1"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Private Sub Command1_Click()
  73.     Set doc = New Document
  74.     doc.Content.Text = Testo.Text
  75.     LabCar.Caption = Str(doc.Characters.Count - 1)
  76.     LabPar.Caption = Str(doc.Words.Count - 1)
  77.     doc.Close
  78. End Sub
  79.