Программирование
Веб программирование

Заставка на vb

 
 

В 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. Все.
Исходник


Есть вопросы? Спроси на нашем форуме!!
MadGuy [03.06.2011 00:21]

==============================
=вот так можно тоже изменить прогу и мне кажется так даже правильней будет!!?
==============================


Dim EX As Long
Dim с As Long

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

Private Sub Form
Load()
Randomize
' Делаем размеры формы на весь экран
Form1.WindowState = 2
Form1.BorderStyle = 0
Form1.DrawWidth = 2 ' Задаем толщину рисуемых на форме объектов(в нашем случае круги, а так, вместо кругов может быть и линия, и точка)
EX = 0
End Sub

' При передвижении мыши выходим из программы
Private Sub FormMouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
EX = EX + 1
If EX >= 9 Then End
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 * Form1.Width), Fix(Rnd * Form1.Height)), Rnd * 1000, c ' Рисуем круги(бублики:-))
Loop ' и если убрать цикл и поставть таймер на 1 то тоже нормально получается
End Sub


антон [30.06.2011 16:59]

вообще можно вместо
Form1.Height = Screen.Height
Form1.Width = Screen.Width
вставить form1.windowsstate = 2
эффект тот же

Джигура [30.11.2011 23:42]

А как убрать курсор, ибо не гуд?

Юра [01.12.2011 09:01]

Код МОДУЛЯ:

Private Declare Function ShowCursor Lib "user32"
(ByVal bShow As Long) As Long

Const HIDE
CURSOR = (0)
Const SHOWCURSOR = (1)

Public Function ShowCur()
Call ShowCursor(SHOW
CURSOR) 'Показать курсор
End Function

Public Function HideCur()
Call ShowCursor(HIDECURSOR) 'Скрыть курсор
End Function

код ФОРМЫ:

Private Sub Command1
Click()
ShowCur
End Sub

Private Sub Command2Click()
HideCur
End Sub

Можно и проще.

Private Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long

Private Sub Command1
Click()
Call ShowCursor(0) 'Скрывать курсор
End Sub

Private Sub Command2_Click()
Call ShowCursor(1) 'Показывать курсор курсор
End Sub

террорист с прищепкой [29.03.2012 14:15]

А мне кажется можно вообще так:
Private Sub Form_Load()
HideCur
End Sub
ну а модуль естесвено тот же

Samou4120 [24.03.2013 10:59]

Мои Глаза!



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.