Искате ли да ... ?
1 отговора
0 прегледа
Искате ли да ... ?
Srceen Saver-ите и нашите машинки върху които те тръгват
Искате ли да да дадем всичко от нас което знаем за създаването на Screen Saver-ите за да помогнем на не до толкова развитите се до тази степен програмисти в тази част на Visual Basic.
Нека им помогнем като им покажем:
- графични техники за раздвижване на анимирана или нормална картинка по целия екран
- начини за изобразяване на тект и всякакви ефекти които знаете за текст
- основни познания които всеки искащ (или начинаещ) да започне да прави Screen Saver-и трябва да знае
- и всякакви други интересни неща около Screen Saver-ите
Ако Ви харесва моето предложение (идея) на тази тема поствайте...
Предварително Ви благодаря...

™
Искате ли да да дадем всичко от нас което знаем за създаването на Screen Saver-ите за да помогнем на не до толкова развитите се до тази степен програмисти в тази част на Visual Basic.
Нека им помогнем като им покажем:
- графични техники за раздвижване на анимирана или нормална картинка по целия екран
- начини за изобразяване на тект и всякакви ефекти които знаете за текст
- основни познания които всеки искащ (или начинаещ) да започне да прави Screen Saver-и трябва да знае
- и всякакви други интересни неща около Screen Saver-ите
Ако Ви харесва моето предложение (идея) на тази тема поствайте...
Предварително Ви благодаря...
Re: Искате ли да ... ?
Основни познания за създаване на Screen Saver
Всичкия този код се поставя в модул независимо как се казва и се наглася програмата да се стартира от Sub Main за да може да се приложат тези неща.
Всичкия този код се поставя в модул независимо как се казва и се наглася програмата да се стартира от Sub Main за да може да се приложат тези неща.
Option Explicit
Public Sub Main()
Dim strOne As String
Dim strTwo As String
strOne = UCase(Trim(Command))
strTwo = Left(strOne, 2)
Select Case strTwo
Case "/S"
MsgBox "Preview button is pressed", 64
Case "/C"
MsgBox "Settings button is pressed", 64
Case "/A"
MsgBox "Change Password button is pressed", 64
Case Else
Exit Sub
End Select
End Sub