Предыдущая страница реферата | 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 | Следующая страница реферата