Microsoft Word-ты автоматизацияламай тұрып, оның типтер кітапханасына сілтемтеме құру керек. Visual Basic-те Project=>References командасын орында.
References сұқбат терезесінде Microsoft Word 8.0 Object Library жолының тұсында жалауша орнат және ОК батырмасын бас.
CmdCreate батымасында екі рет шертіңіз-программа терзесі ашылады.
CmdCreate батырмасының Click оқиғасының процедурасына келесі фрагментті қос:
Private Sub cmd_Create_Click()
Dim x As Word.Document
Dim I As Integer
‘Выполнить 10 раз
For I=1 To 10
‘Создать новый документWord
Set x=NewWord.Document
‘Ввести некоторый текст
With x.ActiveWindow.Selection
.TypeText “Этот документ был создан”:_
“с помощью Visual Basic 6.0 ”
.TypeText”и средство автимизации Office”
.TypeParagraph
.TypeParagraph
.TypeText “Документ”&Trim$(Str$(i))&_”из 10.”
.TypeParagraph
.TypeParagraph
.TypeText”Счастливо остоваться!”
End With
‘Сохранить и закрыть документ
With x
.Save As”c:\Visual Basic создал меня”&_Trim$(Str$(i))&_”раз!”
.Close
.End With
‘Уничтожить объект, чтобы освободить память
Set x=Nothing
Next
End Sub
Жобаны сақтап қосыңыз.
Create батырмасын басып тұрып, Microsoft Word қосылғанын тексеріңіз. Барлық құжаттарыд жауып және Word терезесін кішірейтіңіз. Екі қосымшаны қатар қойып, не болатынын қарап көріңіз.
Егер барлығы дұрыс істелсе, С дискісінің каталогыінде 10 құжат пайда болады.
Бұл қосымшаның кілті-Х объектісі. Word Document объектісі анықталып Click оқиғасының процедурасының бірінші жолына назар аударыңыз. Бұл объект Word құжаттары OLE автомазациялық әрекеті арқылы құжаттарды құруға, толтыруға және сақтауға қолданыады.
Мәтінді құжатты енгізу үшін, құралған Word.Document экземпляры .TypeText әрекетін қолданады. Барлық мәтін енгізіліп болған соң, құжат .Save As әрекетімен сақталып және .Close әрекетімен жабылады. Осыдан соң ағымдағы Word.Document жойылады, біз келесі объект құра алу үшін. Бұл барлық әрекеттер For…Next циклінде орындалады, ол 10 рет орындалады, сондықтан циклде 10 жаңа құжат пайда болады.
ActiveX технологиясының көмегімен сіз интернеттің көптеген мүмкіндіктерін қолдана аласыз, сонымен қатар Visual Basic-ты мықты клиент жазуға-серверлік қосымшалар және программалар, Web-те жұмыс істейтін ActiveX стандартты емес элемент құруға мүмкіндік береді, оны Visual Basic-тің элменттер тақтасына орнатып немесе HTML-құжатына енгізуге болады.
Visual Basic-те Интернет үшін программалау
Visual Basic –те Интернет қосымшасының жұмысын жеңілдететін әртүрлә әрекеттер бар. Сіз Интернетке бағдарланған мықты қосымшаны HTML-код (статистикалық және динамикалық) қоса отырыпб ActiveX элементтері және ActiveX құжаттары арқылы құра аласыз.
2.1 WebBrowser элементтерін қолдану
Web-бетті экранға броузерді қоспай-ақ шығаруға бола ма? Бұған жақсы мысал ретінде HTML базасындағы Microsoft жаңа анықтамалық жүйесін қарастыруға болады. Microsoft Internet Explorer 4.01 компьютерде орналасқанымен, анықтамалық жүйе оны қоспайды. Оның орнына интерфейске WebBrowser элементі бар қосымша қосылады.
Бұл бөлімдегі мысал, WebBrowser элементі броузер функциясымен стандартты емес қосымшалар қалай құрылатынын көрсетеді.
Ctrl+N пернелерімен жаңа жоба құрыңыз. New Project сұқбат терзесінде Standard EXE жобасының типін таңдап және ОК батырмасын басыңыз.
Жобаның Name қасиетіне WebIndex мәнін беріңіз.
Достарыңызбен бөлісу: |