ScreenSaver

[Alex[fj]]

Всем привет!
Сечас, наверно обругают с ног до головы...
Хочется очень узнать, как делать ScreenSaver... Нефига не разобрался. Помогите, пожалуйста. Может, где есть статейки, там, какие...

[tyomitch]

Это обычный ехе-файл, переименованный.
Иди в поиск.

[Alex[fj]]

В поиске был... Находит всякую всячину, но не то. Щас еще капаться буду.

Это обычный ехе-файл, переименованный.

А какая тогда разница, создаешь ты обычный проект или ScreenSaver?

[GSerg]

Никакой разницы.
Иди в поиск.

[Alex[fj]]

Тоесть, создаешь обычную форму, растягиваешь на весь экран, делаешь поверх всех окон, и все - скрин сервер?

в поиске я

[lord0n]

Тоесть, создаешь обычную форму, растягиваешь на весь экран, делаешь поверх всех окон, и все - скрин сервер?

в поиске я

ага, только не забудь заголовок окна убрать и экзешник переименовать

[Alex[fj]]

Не бейте!
Искал... Находил интересное, но не по теме...
Уткните, так сказать, носом!

[lord0n]

Не бейте!
Искал... Находил интересное, но не по теме...
Уткните, так сказать, носом!

создаешь проект, притягиваешь форму на экран, помпилишь, вместо ехе пишешь scr и копируешь в папку винды

[Alex[fj]]

lord0n, не догнал... У скринсервера есть еще и настройки. Ну, выбираешь его и "настройки". А это не то, по-моему...

[Nord777]

не знаю как в 2003, а в 2005 есть Screen Saver Starter Kits....

[lord0n]

lord0n, не догнал... У скринсервера есть еще и настройки. Ну, выбираешь его и "настройки". А это не то, по-моему...

по моему это делается через командную строку:
кусок из шаблона к 200-й студии

Код: Выделить всё


Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As ApplicationServices.StartupEventArgs) Handles Me.Startup
            If e.CommandLine.Count > 0 Then
                ' Get the 2 character command line argument
                Dim arg As String = e.CommandLine(0).ToLower(System.Globalization.CultureInfo.InvariantCulture).Trim().Substring(0, 2)
                Select Case arg
                    Case "/c"
                        ' Show the options dialog
                        Me.MainForm = My.Forms.OptionsForm
                    Case "/p"
                        ' Don't do anything for preview
                    Case "/s"
                        Me.MainForm = My.Forms.ScreenSaverForm
                    Case Else
                        MessageBox.Show("Invalid command line argument :" + arg, "Invalid Command Line Argument", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Select
            Else
                ' If no arguments were passed in, show the screensaver
                Me.MainForm = My.Forms.ScreenSaverForm
            End If

        End Sub