Технология ActiveX
Категория реферата: Рефераты по информатике, программированию
Теги реферата: доклад по биологии, антикризисное управление предприятием
Добавил(а) на сайт: Остапчук.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
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 и другие разработчики
Рекомендуем скачать другие рефераты по теме: сочинения по литературе, контрольная работа 7.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата