Hallo,
Ich schreibe am tag bestimmt 1000 mal ein Datum in irgendwelche Listen und dachte mir das es doch Möglich sei dieses Auf eine F-Taste zu legen zb F11. Ich möchte es aber nicht aus der Zwischen ablage einfügen da dort normalerweise ein anderer Wert zwischengespeichert wird.
das geht nur über ein Makro oder ? wie realisier ich sowas ?
Mfg jonny
Hi Joe,
Ich schreibe am tag bestimmt 1000 mal ein Datum in
irgendwelche Listen und dachte mir das es doch Möglich sei
dieses Auf eine F-Taste zu legen zb F11. Ich möchte es aber
nicht aus der Zwischen ablage einfügen da dort normalerweise
ein anderer Wert zwischengespeichert wird.
das geht nur über ein Makro oder ? wie realisier ich sowas ?
Du hast doch VB! Schreib Dir 'n Programm, das nur als Trayicon angezeigt wird und den Prozessor nicht belastet. Mit VB kennst Du Dich inzwischen so gut aus, daß das nur 'ne Fingerübung wird. :-)
Gruß, Rainer
Oft hilft es einfach mal 3 tage PAuse zu machen !!
alles Funktioniert wunderbar !
Was ich falsch gemacht habe sage ich lieber nicht, ist mir schon etwas unangnehm :P
DANKE Rainer bis die tage!
mfg Jonny
Wenn ich den Interval Timer hochsetze habe ich immernoch das problem das sobald ich meine Mausrad zulange drücke das Datum 2mal oder mehr ausgegeben wird.
mfg jonny
Sorry, es macht sinn vorher alle prozesse zu beenden.
P THX
Hi Joe,
Wenn ich den Interval Timer hochsetze habe ich immernoch das
problem das sobald ich meine Mausrad zulange drücke das Datum
2mal oder mehr ausgegeben wird.
Ja, ist so. Wenn das nicht sein soll/darf, kannst Du das Programm mit einer zweiten Prüfung in der Schleife gefangen halten, bis die Taste wieder los gelassen wird.
Üblich und nötig ist das aber nicht, im Windows hat man mit jeder anderen Taste auch dieses 'Problem'.
Gruß, Rainer
Oft hilft es einfach mal 3 tage PAuse zu machen !!
alles Funktioniert wunderbar !
Was ich falsch gemacht habe sage ich lieber nicht, ist mir
schon etwas unangnehm :P
*gg* ich bin nicht neugierig. Wenn es läuft, bin ich's schon zufrieden.
Gruß, Rainer
Hi Joe,
ich hab's mal schnell getippt, die Zeit ist doch OK? :-)
die Form:
Option Explicit Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Command1_Click() TrayDelete End End Sub Private Sub Form_Load() TrayAdd Me.hwnd, Me.Icon, "date-writer", MouseMove Me.Hide End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim cEvent As Single cEvent = X / Screen.TwipsPerPixelX Select Case cEvent Case LeftUp Form1.WindowState = 0 Me.Show Case RightUp Form1.WindowState = 0 Me.Show End Select End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) TrayDelete End End Sub Private Sub Form_Resize() If Me.WindowState = vbMinimized Then Me.Hide DoEvents End If End Sub Private Sub Timer1_Timer() If GetAsyncKeyState(122) Then SendKeys Date End If End Sub
Option Explicit Const NIF_MESSAGE As Long = &H1 Const NIF_ICON As Long = &H2 Const NIF_TIP As Long = &H4 Const NIM_ADD As Long = &H0 Const NIM_MODIFY As Long = &H1 Const NIM_DELETE As Long = &H2 Public Type NOTIFYICONDATA cbSize As Long hwnd As Long uId As Long uFlags As Long uCallBackMessage As Long hIcon As Long szTip As String * 64 End Type Public Enum TrayRetunEventEnum MouseMove = &H200 LeftUp = &H202 LeftDown = &H201 LeftDbClick = &H203 RightUp = &H205 RightDown = &H204 RightDbClick = &H206 MiddleUp = &H208 MiddleDown = &H207 MiddleDbClick = &H209 End Enum Public Enum ModifyItemEnum ToolTip = 1 Icon = 2 End Enum Public Bild As String Public Zaehler As Integer Public TrayIcon As NOTIFYICONDATA Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Public Sub TrayAdd(hwnd As Long, Icon As Picture, _ ToolTip As String, ReturnCallEvent As TrayRetunEventEnum) With TrayIcon .cbSize = Len(TrayIcon) .hwnd = hwnd .uId = vbNull .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE .uCallBackMessage = ReturnCallEvent .hIcon = Icon .szTip = ToolTip & vbNullChar End With Shell_NotifyIcon NIM_ADD, TrayIcon End Sub Public Sub TrayDelete() Shell_NotifyIcon NIM_DELETE, TrayIcon End Sub Public Sub TrayModify(Item As ModifyItemEnum, vNewValue As Variant) Select Case Item Case ToolTip TrayIcon.szTip = vNewValue & vbNullChar Case Icon TrayIcon.hIcon = vNewValue End Select Shell_NotifyIcon NIM_MODIFY, TrayIcon End Sub
Danke !!!
die Taste wird hier festgelegt oder ? 122 = Z laut Ascii oder ?
GetAsyncKeyState(122)
mfg joe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Joe,
die Taste wird hier festgelegt oder ? 122 = Z laut Ascii oder
?
GetAsyncKeyState(122)
die Stelle ist richtig, aber 'Z' stimmt nicht, das ist F11, wolltest Du doch so. Das hat mit ASCII nichts zu tun. Die Tabelle habe ich gerade nicht zur Hand, ich habe die Taste einfach gedrückt und gelesen. :-)
Gruß, Rainer
