Реферат: Технология ActiveX

Dim objTS As Scripting.TextStream

' Создание текстового файла.

Set objFSO = New Scripting.FileSystemObject

Set objTS = objFSO.OpenTextFile(CurDir & "/Survey_Results.txt", _

ForAppending, True)

' Запись результатов в текстовый файл и затем

' его закрытие.

objTS.WriteLine "Yes = " & Me.OptionButton1.Value

objTS.WriteLine "No = " & Me.OptionButton2.Value

objTS.WriteLine "Comments = " & Me.TextBox1.Text

objTS.WriteBlankLines 1

objTS.Close

' Поблагодарим пользователя.

MsgBox "Большое спасибо за участие в опросе!"

' Очистка результатов для ответов следующего пользователя.

Me.OptionButton1.Value = False

Me.OptionButton2.Value = False

Me.TextBox1.Text = ""

4. После вставки этого кода закройте редактор Visual Basic и сохраните презентацию.

5. Для предварительного просмотра опроса нажмите кнопку Показ слайдов в нижнем левом углу окна PowerPoint.

Просмотр отзывов пользователей

Когда пользователи нажимают кнопку Отправить , создается текстовый файл, в котором сохраняются их ответы. Данный файл расположен в одном каталоге с презентацией. Чтобы просмотреть результаты опроса, откройте в этом каталоге файл Survey_Results.txt.

Если вы уже собрали достаточно мнений и хотите их удалить или создать новый файл для обратной связи, выполните одно из следующих действий:

Откройте текстовый файл и удалите все комментарии.

Удалите текстовый файл. Когда следующий пользователь введет свои ответы, будет создан новый текстовый файл с именем Survey_Results.txt.

Переименуйте текущий текстовый файл. Когда следующий пользователь введет свои ответы, будет создан новый текстовый файл с именем Survey_Results.txt.

Microsoft и другие разработчики

Особого упоминания, на наш взгляд, заслуживает деятельность компании "Анет". Прежде всего, потому, что она не только активно использует технологию ActiveX в своих разработках, но и пытается продавать компаниям-разработчикам ПО готовые компоненты ActiveX (правда, пока, в основном, зарубежного производства). Компания начала работать в этом направлении еще в 1993 году, занявшись разработкой компонентов для программирования на Visual Basic по заказу одной американской компании, и стала первой российской фирмой, работающей на этом рынке. "Рынок непростой и для российской фирмы малоперспективный, если она пытается продавать свои продукты самостоятельно, - говорит президент ТОО "Анет" Игорь Горюшин. - На Россию ориентироваться бесполезно, а за рубежом (в частности, в США) нормальные деньги за иностранные VBX/OCX не платят из опасения, что не получат адекватной технической поддержки". Тем не менее компании удалось найти за рубежом партнеров, занимающихся продажей и технической поддержкой ее продукции, и к настоящему времени "Анет" имеет, по утверждению ее президента, более тысячи клиентов по всему миру.

Несмотря на практически полное отсутствие рынка компонентов, "Анет", заручившись поддержкой Microsoft АО, все-таки начала заниматься их поставкой и продажей в Россию. "Абсолютное большинство фирм-производителей, к которым мы обращаемся с предложениями о сотрудничестве, с пониманием относятся к отсутствию спроса и низкой покупательной способности российских производителей ПО, - рассказывает Игорь Горюшин. - Это позволяет нам получать реселлерские скидки, даже несмотря на невыполнение нормативов продаж". Описание многих компонентов, поставляемых "Анет", оформлено в виде каталога в формате HTML и хранится на Web-сервере компании (http://www.anetusa.com), а также на российской части сервера Microsoft.