Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Monitor
anonim




Typ: Nie zarejestrowany
Monitor

Czy ktoś wie jak z poziomu Vb włączyć/wyłączyć monitor???

16-06-2003 06:54
  
anonim




Typ: Nie zarejestrowany
thanks

Thanks

07-07-2003 13:01
  
anonim




Typ: Nie zarejestrowany
Monitor

'-----------------------------------------------------------------------------
' Autor    : Arkadiusz Kiferling
' Email    :
' Komentarz: Sposób na Wył/Wł Monitora z poziomu VB6
' ----------------------------------------------------------------------------
' Dziala Na Systemach Win98
' Nie Dziala Na Xp na Innych Nie Testowałem
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
' Api Deklaracje
'-----------------------------------------------------------------------------
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'-----------------------------------------------------------------------------
' Stałe
'-----------------------------------------------------------------------------
Public Const WM_SYSCOMMAND = &H112    'Tą stałą znajdziecie w Win32Api i innych
Public Const SC_MonitorPower = &HF170 'Ta w VB Nie Wystepuje lepiej zanotować
'-----------------------------------------------------------------------------
' Stałe Włączające lub Wyłączające Monitor Można I (-1 ON,1 OFF)
'-----------------------------------------------------------------------------
Public Const Monitor_ON = (-&H1) 'Te Stale Wlaczaja
Public Const Monitor_Off = (&H1) 'I Wylaczaja Monitor
'-----------------------------------------------------------------------------
' Przykłady:
'-----------------------------------------------------------------------------
' Aby Wyłączyć Monitor
'-----------------------------------------------------------------------------
SendMessage Me.Hwnd, WM_SYSCOMMAND, SC_MonitorPower, ByVal Monitor_Off
'-----------------------------------------------------------------------------
' Aby Włączyć Monitor
'-----------------------------------------------------------------------------
SendMessage Me.Hwnd, WM_SYSCOMMAND, SC_MonitorPower, ByVal Monitor_ON
'-----------------------------------------------------------------------------
' Pozdrowienia Skorpion
' Wrazie problemów pisz na maila
'-----------------------------------------------------------------------------

23-08-2003 17:50
  
anonim




Typ: Nie zarejestrowany
Zepsuty :(

Cos w tym kodzie, przynajmniej u mnie, jest nie tak. Jak go odpalam, to wyskakuje mi okienko z zaznaczeniem ze Me.hwnd jest zla procedura zewnetrzna... O co w tym biega?

08-09-2003 14:14
  
anonim




Typ: Nie zarejestrowany
Zepsuty :(

Cos w tym kodzie, przynajmniej u mnie, jest nie tak. Jak go odpalam, to wyskakuje mi okienko z zaznaczeniem ze Me.hwnd jest zla procedura zewnetrzna... O co w tym biega?

Jako Me podaj Nazwe Formu i reszta bez zmian
Stałe oraz funkcje api należy umieścić w module
Lub zmienic z Public Na Private

Wrazie dalszych problemów
Podaj Swój E-Mail to ci wyśle przykładowy program wł/wył monitor.

P.S
' Dla Mniej Znających VB
Kod Należy umiescić w Module
A wywołać go z formu lub modułu z tym że należy podać uchwyt do okna wywołującego
Wrazie dalszych problemów pisz na maila

Pozdrowienia




13-09-2003 16:47
  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1