home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
- Begin VB.Form Form1
- Caption = "Prova di automazione OLE"
- ClientHeight = 3525
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 3900
- LinkTopic = "Form1"
- ScaleHeight = 3525
- ScaleWidth = 3900
- StartUpPosition = 3 'Windows Default
- Begin VB.CommandButton Command1
- Caption = "&Avvia"
- Height = 285
- Left = 1170
- TabIndex = 1
- Top = 3090
- Width = 1605
- End
- Begin RichTextLib.RichTextBox Testo
- Height = 1695
- Left = 210
- TabIndex = 0
- Top = 180
- Width = 3375
- _ExtentX = 5953
- _ExtentY = 2990
- _Version = 393217
- Enabled = -1 'True
- TextRTF = $"Form1.frx":0000
- End
- Begin VB.Label LabPar
- Caption = "0"
- ForeColor = &H000000C0&
- Height = 345
- Left = 2220
- TabIndex = 5
- Top = 2430
- Width = 1365
- End
- Begin VB.Label Label2
- Caption = "Parole presenti nel testo:"
- Height = 285
- Left = 240
- TabIndex = 4
- Top = 2460
- Width = 1875
- End
- Begin VB.Label LabCar
- Caption = "0"
- ForeColor = &H000000C0&
- Height = 345
- Left = 2220
- TabIndex = 3
- Top = 2040
- Width = 1365
- End
- Begin VB.Label Label1
- Caption = "Caratteri presenti nel testo:"
- Height = 285
- Left = 240
- TabIndex = 2
- Top = 2070
- Width = 1875
- End
- Attribute VB_Name = "Form1"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- Set doc = New Document
- doc.Content.Text = Testo.Text
- LabCar.Caption = Str(doc.Characters.Count - 1)
- LabPar.Caption = Str(doc.Words.Count - 1)
- doc.Close
- End Sub
-