|
|
|
|
|
|
Теги |
| |
codeserfercom, Linux, nbspnbsp, Private, Visual, Возможность, Пример, Рассмотрим, Сегодня, Теперь, будет, данных, значение, который, может, можно, написать, например, очень, переменной, переменных, пользователя, помощью, программа, программирования, программы, просто, работы, разработки, решил, сделать, скрипт, строки, строку, также, только, функции, число, этого, языка
Показать все теги
|
|
|
| |
|
|
|
|
|
|
|
|
| |
У вас никогда не было желания создать свой собственный хранитель экрана в VB? Если да, то сейчас мы приведем элементарный пример, как это можно сделать. Идея очень проста — в качестве заставки будет выдаваться форма размером с весь экран, на которую вы можете по собственному желанию нанести любые изображения. Для начала создайте новый проект Standard EXE. Поместите на форму элемент управления Label, содержащий какой-либо текст. Затем добавьте туда элемент управления Timer, для которого установите свойство Interval как 1000 (то есть 1 с). Теперь введите следующий код для вашей формы: Private Sub Form_Click()
Unload Me
End Sub
Private Sub Form_Load()
If App.PrevInstance Then Unload Me
End Sub
Private Sub Timer1_Timer()
Label1.Visible = Not (Label1.Visible)
End Sub После этого установите свойство WindowState для формы как Maximized, а свойство Border Style как None. Большинство хранителей экрана занимают полный размер экрана и не имеют строки заголовка. Выберите команду File|Make EXE File и в появившемся диалоговом окне Make Project щелкните кнопку Options. В диалоговом окне Project Properties в текстовом поле Application Title введите прописными буквами строку SCRNSAVE:. (Например, мы можем назвать наше приложение SCRNSAVEaestAppl.) При задании имени исполняемого файла не забудьте поменять расширение: оно должно быть .SCR вместо .ЕХЕ. (Для нашего примера назовите исполняемый файл как TestAppl.scr.) Щелкните ОК. Вот и все. Теперь не забудьте поместить SCR-файл в каталог \Windows\System и поменяйте хранитель экрана, как обычно, с помощью Control Panel. |
|
| |
Что-то не получается? Не понятна какая-то часть кода? Напишите комментарий об этом и мы обязательно Вам все объясним!
Обязательно напишите отзыв о программе / учебнике. Для выражения благодарностей есть кнопка:
Своё Спасибо, еще не выражали.
|
| |
| |
Просьбы перезалить в комментариях принимаются |
| |
|
|
| |
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем. |
|
| |
Другие коды по теме: |
|
| |
Реализация функции «ожидания» в VBтекущие дата / времяОпределяем расширение экрана с помощью WinAPIколичество вхождений подстроки в строкуЗащита от изменения формы |
|
|
|
Написал: Ant0ha1 |
|
13 августа 2008 06:42 | ICQ: --
|
|
| |
Группа: Гости
Регистрация: -- |
мощно! автору респект . |
|
|
|
| Публикаций: 0 | Комментариев: 0 |
|
|
© 2008 - 2010. Копирование материалов запрещено! |
|
|
