[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Заставка на vb (Заставка на vb)
Заставка на vb
ilimДата: Пятница, 04.02.2011, 05:30 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
В VB очень просто делать заставки, вот сейчас мы сделаем простую заставку, которая будет рисовать на форме круги. ОК? На форму кинь текстовое поле(Visible = False, Text = 0), Timer(Interval = 1), у формы свойство BorderStyle = 0. Код:

' Объявляем переменные
Dim EX As Long
Dim d As Long

Private Sub Form_KeyPress(KeyAscii As Integer) ' При нажатии на клавишу выходим из программы
Unload Me
End Sub

Private Sub Form_Load()
Randomize ' Генерируем всегда разные числа
' Форму ставим в левый верхний угол экрана
Form1.Left = 0
Form1.Top = 0
' Делаем размеры формы на весь экран
Form1.Height = Screen.Height
Form1.Width = Screen.Width
Form1.DrawWidth = 40 ' Задаем толщину рисуемых на форме объектов(в нашем случае круги, а так, вместо кругов может быть и линия, и точка)
EX = 0
End Sub

' При передвижении мыши выходим из программы
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
EX = EX + 1
If EX >= 9 Then Unload Me
End Sub

Private Sub Timer1_Timer()
Do ' Цикл
DoEvents ' Это чтоб комп не завис
c = RGB(Rnd * 255, Rnd * 255, Rnd * 255) ' RGB - это кодировка цвета, она означает Red Green Blue, это 3 цвета, и при их смешивании получаются разные цвета. Максимальное значение каждого цвета 255(R<=255, G<=255, B<=255). Короче смысл этой стоки это присвоить переменной "c" случайный цвет
Form1.Circle (Fix(Rnd * 19255), Fix(Rnd * 14255)), Rnd * 1000, c ' Рисуем круги(бублики:-))
Text1.Text = Val(Text1.Text) + 1 ' Это не много за тормозит цикл
Loop
End Sub

Ну усе, заставка готова, теперь нажми на File>>Make Project1.exe(Компилировать Project1.exe), и в поле имя файла впиши ScreenSaver.scr, нажимай на OK. Все, теперь файл откомпилировался не как EXEшник, а как SCR. Теперь по откомпилированному файлу кликни правой кнопой мыши, и в меню нажми на Тест. Работает??? Отлично!!! Теперь помести этот файл в папку Windows, войди в свойства: Экран(Панель управления>>Экран), выбери вкладку Заставка, и поменяй заставку на ScreenSaver. Все.


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Заставка на vb (Заставка на vb)
Страница 1 из 11
Поиск: