Песочные часы - КПК - Vb.Net - как?

Обсуждение проблем, возникающих при разработке программ для мобильных устройств.
Snussi
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 151
Зарегистрирован: 21.07.2004 (Ср) 18:08
Откуда: Москва, Россия

Песочные часы - КПК - Vb.Net - как?

Сообщение Snussi » 19.01.2005 (Ср) 15:49

Как на время выполнения каких-либо операций отобразить аналог песочных часов (на моем кпк это - крутящийся круг)?

Snussi
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 151
Зарегистрирован: 21.07.2004 (Ср) 18:08
Откуда: Москва, Россия

Сообщение Snussi » 21.01.2005 (Пт) 14:40

Нашел ответ сам :)
Код: Выделить всё
Module CursorChange

    Declare Function LoadCursor Lib "coredll.dll" (ByVal zeroValue As Integer, ByVal cursorID As Integer) As Integer
    Declare Function SetCursor Lib "coredll.dll" (ByVal cursorHandle As Integer) As Integer

    Public Sub ShowWaitCursor(ByVal bShowCursor As Boolean)
        Dim cursorHandle As Integer = 0

        If bShowCursor Then
            Const hourGlassCursorID As Integer = 32514
            cursorHandle = LoadCursor(0, hourGlassCursorID)
        End If

        SetCursor(cursorHandle)
    End Sub 'ShowWaitCursor
End Module 'Cursor


Вызываем функцию: ShowWaitCursor(True) - показать, ShowWaitCursor(False) - вырубить.


Вернуться в Visual Basic для мобильных устройств

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12

    TopList