заставка, простой программы более определённого времени ...

[НиколайП]

подскажите как сделать такую вещь :
если на форме более ,допустим, 10 мин не происходят какие-либо действия, тогда запускается другая форма (заставка).
Я пытался сделать так:
Form1 - рабочая форма
Form5 - заставка

если мышка без движения- таймер отсчитывает 10 мин, после этого запускает форму заставку, после каждого движения мыши таймер начинает отсчитывать каждый раз поновой. Из такой логики следует что заставка может запуститься при условии что мышь будет недвижима более 10 мин.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Timer1.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Form5.Show
Timer1.Enabled = False
Unload Me
End Sub

Вроде именно то что мне и необходимо, но на форме у меня более 10 фреймов и много других контролов, по моей схеме мне прийдётся прописывать MouseMove для каждого контрола, это не есть ГУД , подскажите как мне реализовать всё это более грамотно и профессионально.

[Шнурок]

Можно следить движется ли мышь вообще

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

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Dim recX As Long
Dim recY As Long
Dim pt As POINTAPI
Private Sub Timer1_Timer()
    GetCursorPos pt
    recX = pt.X
    recY = pt.Y
    Label1.Caption = recX
    Label2.Caption = recY
End Sub
Private Sub Label1_Change()
    ну дальше наверное понятно...
End Sub


[НиколайП]

спасибо !

[НиколайП]

, блин, что то не идёт ... лабелы даже не показывают значения координат мыши ...

[BV]

Timer1.Interval=1?

[НиколайП]

да,моя ошибка была в интервале таймера1.
Но всё равно что то не получается то что мне надо ...

Private Sub Label10_Change() 'лабел который следит за координатами 'мыши
Timer2.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Form5.Show 'форма заставка
Unload Form2 ' рабочая форма
Unload Form3 'рабочая форма
Unload Form4 'рабочая форма
Timer2.Enabled = False
Unload Me
End Sub

один раз срабатывает, появляется заставка, а следующие разы только форма мигает,когда срабатывает таймер2, а заставка так и не появляется ...

[BV]

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

Option Explicit

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32.dll" _
        (ByRef lpPoint As POINTAPI) As Long

Private Sub Form_Load()
    Dim CP As POINTAPI
    Dim X As Single, Y As Single
    Dim lTime As Long
    Call GetCursorPos(CP)
    X = CP.X: Y = CP.Y
    lTime = Minute(Time)
    Do Until X <> CP.X Or Y <> CP.Y
        Call GetCursorPos(CP)
        If lTime + 1 < Minute(Time) Then
            MsgBox "Код заставки..."
            GoTo ExitDo
        End If
    Loop
    MsgBox "Вот тут и сбилось..."
ExitDo:
    'End
End Sub

[НиколайП]

блин , вообще запутался ...
с таким кодом, в смысле последним.
Если мышкой не шевелю, заставка появляется нормально, при перемещении мыши заставка всё равно появляется но ещё и срабатывает MsgBox "Вот тут и сбилось..."
туплю по полной, нифига понять уже не могу ...

[BV]

Смотри выше.

[НиколайП]

замутил такую фишку :
в загрузке формы определяю координаты мыши и заношу в лабел, таймер срабатывает через 5 минут и сравнивает координаты из лабела и текущие, если координаты совпадают - тогда запускается заставка:

Private Sub Form_Load()
GetCursorPos pt
recX = pt.X
recY = pt.Y
Label10.Caption = recX
End Sub

Private Sub Timer1_Timer()
GetCursorPos pt
recX = pt.X
recY = pt.Y
If Label10.Caption = recX Then
'MsgBox ("заставка")
zastavka
Else
Label10.Caption = recX
End If
'Label11.Caption = recY
End Sub

Public Sub zastavka()
Unload Form2 'рабочая форма
Unload Form3 'рабочая форма
Unload Form4 'рабочая форма
Form5.Show ' заставка
Unload Me
End Sub

вроде всё нормально, НО если оставить рабочим msgbox,после нажатия ОК заставка появляется исправно, ЕСЛИ его закоментировать тогда форма просто мигает ...............

[BV]

Ты мой код видел? Почему не использовал? Не знаешь как?

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

Option Explicit

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32.dll" _
        (ByRef lpPoint As POINTAPI) As Long

Private Sub Form_Activate()
    Dim CP As POINTAPI
    Dim X As Single, Y As Single
    Dim lTime As Long
    Dim hForm As Form
    Call GetCursorPos(CP)
    X = CP.X: Y = CP.Y
    lTime = Minute(Time)
    Do Until X <> CP.X Or Y <> CP.Y
        DoEvents
        Call GetCursorPos(CP)
        If lTime + 1 < Minute(Time) Then
            'MsgBox "Код заставки..."
            For Each hForm In VB.Forms
                hForm.Hide
            Next hForm
            frmScreensaver.Show vbModal
            GoTo ExitDo
        End If
    Loop
    'MsgBox "Вот тут и сбилось..."
ExitDo:
    For Each hForm In VB.Forms
        Unload hForm
    Next hForm
End Sub

[НиколайП]

BV

Ты мой код видел? Почему не использовал? Не знаешь как?

я ответ писал по первому предложенному тобой коду:

Если мышкой не шевелю, заставка появляется нормально, при перемещении мыши заставка всё равно появляется но ещё и срабатывает MsgBox "Вот тут и сбилось..."

по последнему твоему коду:
заменил frmScreensaver.Show на Form5.Show( это форма моей заставки), результат такой:
при движении мыши вылетают все формы включая заставку ...
я только учусь работать на VB, поэтому может чего и не понимаю, но никак не могу подогнать предложенный тобой код под свои нужды , если можно, тогда желательно коментировать код ...

[BV]

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

MsgBox "Вот тут и сбилось...

Это и есть та часть, на которую переходит программа при движении мыши. А что нужно, если мышь задвигалась? Правильно, обнулить таймер и ждать по новой.

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

Private Sub Form_Activate()
    Dim CP As POINTAPI
    Dim X As Single, Y As Single
    Dim lTime As Long
    Dim hForm As Form
Begin:
    Call GetCursorPos(CP)
    X = CP.X: Y = CP.Y
    lTime = Minute(Time)
    Do Until X <> CP.X Or Y <> CP.Y
        DoEvents
        Call GetCursorPos(CP)
        If lTime + 1 < Minute(Time) Then
            'MsgBox "Код заставки..."
            For Each hForm In VB.Forms
                hForm.Hide
            Next hForm
            frmScreensaver.Show vbModal
            GoTo ExitDo
        End If
    Loop
    'MsgBox "Вот тут и сбилось..."
    GoTo Begin
ExitDo:
    For Each hForm In VB.Forms
        Unload hForm
    Next hForm
End Sub

[НиколайП]

Это и есть та часть, на которую переходит программа при движении мыши. А что нужно, если мышь задвигалась? Правильно, обнулить таймер и ждать по новой.

да, правильно.

на форме заставки (Form5) у меня такой код:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Show (главная рабочая форма)
Unload Me
End Sub

используя последний предложенный код, при появлении заставки вылетает ошибка:

Can't show non modal form when modal form is displayed

как избежать этой ошибки ?

[Matew]

Или вызывай форму модально или сначала выгружай а потом показывай.

[Andrey Fedorov]

подскажите как сделать такую вещь :
если на форме более ,допустим, 10 мин не происходят какие-либо действия, тогда запускается другая форма (заставка).

И чем это лучше обычной заставки Windows?
IMHO: Опять лисапед изобретается...

[HotKitten]

а если кино смотреть?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!
мышку двигать всё время?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!

я такую прогу делал через загрузку проца т.е
если в течении времени Х загрузка проца >5 (допустим) то..... действие
а если мышкой подрыгать то загрузка проца подскакивает немного!!!!!!!

[Andrey Fedorov]

а если кино смотреть?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!
мышку двигать всё время?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!

Вообще-то проигрыватель во время проигрывания отключает заставку и прочие зелености - т.е нет необходимости дергать ни мышкой ни ножкой. По крайней мере у меня так. Проигрыватель - обычный WMP 10.

[НиколайП]

подскажите как сделать такую вещь :
если на форме более ,допустим, 10 мин не происходят какие-либо действия, тогда запускается другая форма (заставка).

И чем это лучше обычной заставки Windows?
IMHO: Опять лисапед изобретается...

не совсем понял, по твоему легче написать скринсейвер и инсталировать его вместе с программой ??? или устанавливать необходимую заставку в ОС каждому пользователю программы ???

[Vladimir!]

Код BV + коммент. Matew

[alibek]

не совсем понял, по твоему легче написать скринсейвер и инсталировать его вместе с программой ??? или устанавливать необходимую заставку в ОС каждому пользователю программы ???

Необходимая заставка -- это как?

[НиколайП]

Или вызывай форму модально или сначала выгружай а потом показывай.

если не очень сложно, тогда пожалуйсто приведи пример кода.
Form1 - рабочая форма
Form2 - рабочая форма
Form3 - рабочая форма
Form4 - рабочая форма

Form5 - форма заставка

я так понял: код предложенный BV необходимо разместить на всех рабочих формах, а что дальше ?, форма заставка должна убираться при движении ,на ней, мышки, какой необходимо код разместить на заставке ?
извините за надоедливость, но что-то никак не могу справиться с заставкой ...

[НиколайП]

не совсем понял, по твоему легче написать скринсейвер и инсталировать его вместе с программой ??? или устанавливать необходимую заставку в ОС каждому пользователю программы ???

Необходимая заставка -- это как?

на заставке имеется информация о самой программе, бегущая строка с текущей информацией и на заставку будет , возможно, возлагаться определённая задача, см. тему "VB + Web камера USB", если конечно получиться реализовать ...
Ну короче, заставка должна быть не просто заставкой, а частью программы.

[НиколайП]

не совсем понял, по твоему легче написать скринсейвер и инсталировать его вместе с программой ??? или устанавливать необходимую заставку в ОС каждому пользователю программы ???

Необходимая заставка -- это как?

на заставке имеется информация о самой программе, бегущая строка с текущей информацией и на заставку будет , возможно, возлагаться определённая задача, см. тему "VB + Web камера USB", если конечно получиться реализовать ...
Ну короче, заставка должна быть не просто заставкой, а частью программы.

[alibek]

И в чем заключается сложность написания скринсейвера?
Если ты не знаешь, это обычный EXE с расширением SCR, который должен обрабатывать некоторые аргументы, передаваемые в командной строке.

[Matew]

Ну например так:
(В форме 5)

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Show  [b]vbModal, me[/b](главная рабочая форма)
Unload Me
End Sub


А лучше так:

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Unload Me
' но если ты вызываешь Form5 модально, то Form1 или другая должны быть видны, т.ч. решай нужна ли следующая строчка...
Form1.Show (главная рабочая форма)
End Sub


А самое простое не вызывай Form5 модально

[НиколайП]

И в чем заключается сложность написания скринсейвера?
Если ты не знаешь, это обычный EXE с расширением SCR, который должен обрабатывать некоторые аргументы, передаваемые в командной строке.

да, я не знаю как писать скринсейверы. Я только начинаю работать с VB . Но думаю что практичнее сделать заставку из формы основной программы чем делать её отдельной програмой.
может я и не прав,профессионалам виднее ...

[HotKitten]

вот мой пример

[НиколайП]

Forma1 (рабочая)

Option Explicit

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32.dll" _
(ByRef lpPoint As POINTAPI) As Long

Private Sub Form_Activate()
Dim CP As POINTAPI
Dim X As Single, Y As Single
Dim lTime As Long
Dim hForm As Form
Begin:
Call GetCursorPos(CP)
X = CP.X: Y = CP.Y
lTime = Minute(Time)
Do Until X <> CP.X Or Y <> CP.Y
DoEvents
Call GetCursorPos(CP)
If lTime + 1 < Minute(Time) Then
For Each hForm In VB.Forms
hForm.Hide
Next hForm
Unload Me
Form5.Show 'vbModal
GoTo ExitDo
End If
Loop
GoTo Begin
ExitDo:
' For Each hForm In VB.Forms
' Unload hForm
' Next hForm
End Sub

Forma5 (заставка)

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Unload Me
Form1.Show
End Sub

не работает , один раз срабатывает , потом Forma1 просто моргает когда должна появиться заставка ...
если этот код

For Each hForm In VB.Forms
Unload hForm
Next hForm

раскоментировать, и оставить

Form5.Show vbModal

без

Unload Me

(в форме 1) тогда вообще программа в момент появления заставки вылетает ...
блин , замучился уже с этой заставкой ...
кто-нибудь может прокоментировать эту часть кода:

For Each hForm In VB.Forms
hForm.Hide
Next hForm
Unload Me
Form5.Show 'vbModal
GoTo ExitDo
End If
Loop
GoTo Begin
ExitDo:
' For Each hForm In VB.Forms
' Unload hForm
' Next hForm

... я только начинаю изучать VB, не ругайтесь сильно

[BV]

Ну что, что тебе неясно-то?

http://www.google.com/search?client=ope ... 8&oe=utf-8