Linki Redakcja Kontakt Współpraca Prezent

  Jest to raczej krótki, lecz opisujący wszystko przykład.

Jeśli chcemy, aby nasz program mógł sprawdzać pisownię, ale nie chce nam się pisać specjalnych funkcji i słowników(jest to trudne i pracochłonne) wystarczy użyć już gotowego słownika, który prawie każdy użytkownik Windows posiada. Chodzi mi o słownik MS Office.

Ten artykuł powie jak zaprząc do pracy ten właśnie słownik we własnej aplikacji.

Wystarczy do pustego projektu wstawić przycisk. Command Button, a następnie dodać kontrolkę TextBox jej właściwość Multiline ustawić na True, a do zdarzenia onClick Command Button wstawić poniższy kod:

Dim X As Object 'create Word object
Set X = CreateObject("Word.Application")

X.Visible = False 'ukrywa Worda
X.Documents.Add 'otwiera nowy dokument
X.Selection.Text = Text5.Text 'kopiuje tekst z programu do dokumentu Worda
X.ActiveDocument.CheckGrammar 'startuje sprawdzanie pisowni w Wordzie
Text5.Text = X.Selection.Text 'kopiuje poprawiony tekst do VB
X.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
X.Application.Quit 'zamyka Worda

Set X = Nothing 'kasuje zmienna X(tak jakby)


Przykład

I to już wszystko!  











Nasz Sponsor Medialny

VBGo.prv.pl

VBGoplus magazyn

Filip Cynarski FCComputers & VBGo©Service 2002 All Rights Reserved