|
| | | |
 • II.7. VBA - Inne przykłady •
- 7.1. Jak wykryć kliknięcie prawym przyciskiem myszy na kontrolce ?
- 7.2 Jak pobrać datę i czas z Internetu ?
| | | | |
 |
| | |
|
7.1. Jak wykryć kliknięcie prawym przyciskiem myszy na kontrolce ?
Pytanie:
<cyt>
Ma ktoś może pomysł jak wykryć kliknięcie prawym przyciskiem myszy na kontrolce. Chciałbym to zrobić poza modułem formularza, w tym celu przypisałem kontrolce właściwość OnMouseDown "=FunkcjaZmodułuZwykłego()".
Jak po zajściu zdarzenia pobrać naciśnięty klawisz myszy ?
[...]
</cyt>
1. Odpowiedź Krzysztofa:
<cyt>
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Public Function CzyPrawy() As Boolean
CzyPrawy = GetAsyncKeyState(vbKeyRButton)
End Function
' przykładowe wywołanie:
Private Sub txtTest_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
MsgBox CzyPrawy
End Sub
2. Odpowiedź Macieja: dot. tylko modułu klasy formularza
<cyt>
Private Sub Tekst0_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Call FunkcjaZModułuZwykłego(Button)
End Sub
Private Sub FunkcjaZModułuZwykłego(ByVal Klawisz As Integer)
If Klawisz = acRightButton Then MsgBox "PKM"
End Sub
</cyt>
ΔΔΔ | | | | |
|
|
| | |
|
7.2 Jak pobrać datę i czas z Internetu ?
grupa: pl.comp.bazy-danych.msaccess
wątek: Data z internetu
przedstawił: Kuba Nowak
Function fc_SysWin_DateNet(Strefa As Long) As Date
Dim t As String
Dim url As String
Dim obj As Object
On Error Resume Next
Set obj = CreateObject("Microsoft.XMLHTTP")
url = "http://132.163.4.101:14/"
obj.Open "POST", url, False
obj.Send
t = obj.responseText
Set obj = Nothing
fc_SysWin_DateNet = DateSerial( _
Mid(t, 8, 2), Mid(t, 11, 2), Mid(t, 14, 2)) _
+ TimeSerial(Mid(t, 17, 2) + _
Strefa, Mid(t, 20, 2), Mid(t, 23, 2))
On Error GoTo 0
End Function
ΔΔΔ | | | | |
|
| |
