Laufzeitfehler 453

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Pascal
Folgender Auszug sollte die Bit-Version abfangen (wenn nicht 64 dann nimm 32 Version).


#If Win64 Then
Private Declare PtrSafe Function GetCursorPos Lib ...
#Else
Private Declare Function GetCursorPos Lib ...
#End If

Wenn das Problem trotz korrekter Implementierung des Codes weiter besteht, dann wäre das Problem anderswo (vielleicht in der Systemumgebung) zu suchen. Citrix war nur eine Idee; gemäss den Rückmeldungen von KH wird es wohl eher nicht daran liegen.
Neue Laptops sollten grundsätzlich noch kein Problem darstellen. Die Umgebung müsste schon irgendwie ungewöhnlich sein (z.B. kein Windows).
Da rundherum aber scheinbar alles i.O. ist, müsste man vielleicht doch noch einmal den Code überprüfen. Ein kleiner Test betr. korrekter Erkennung der Version könnte man beispielsweis hiermit machen:


#If Win64 Then
Public Const x As Integer = 64
#Else
Public Const x As Integer = 32
#End If
Sub t()
MsgBox x
End Sub

cu
Chris

Hallo Pascal,
die von Chris gezeigten Declare ohne PtrSafe müssen bei alten Office-Versionen mit VBA6 angewendet werden, also z.B. unter Win7 usw.
Bei den neueren Officeversionen können sie verwendet werden.
Besser ist es hier allerdings. gleich die PtrSafe-Versionen zu verwenden, da diese bei 32 und 64 Bit funktionieren.
Bzgl. der Funktion GetCursorPos gibt es bei den neueren Officeversionen, z.B. 365, keinen Unterschied zwischen 32 und 64 Bit.
Ich hatte Dir schon Dein Tool auf 32/64-Bit bereitgestellt, kann lediglich 64 Bit gerade nicht testen. Hast Du das auch mal ausprobiert?
Hier noch mal....
tool.xlsm
Falls das nicht laufen sollte, hier mal etwas zum testen. Pack das einfach in eine neue Datei in ein Modul und lasse die beiden Tests unter den verschiedenen Versionen mal laufen.
Ich fürchte, es liegt an ganz anderen Dingen.

#If VBA7 Or Win64 Then
  ' 32 Bit VBA7 oder 64 Bit
  Declare PtrSafe Function GetCursorPos Lib "user32" ( _
          lpPoint As POINTAPI) As Long
        #Else
  ' 32 Bit VBA7 oder 32 Bit VBA6
  Declare Function GetCursorPos Lib "user32" ( _
           lpPoint As POINTAPI) As Long
         #End If

Declare PtrSafe Function GetCursorPos2 Lib "user32" Alias "GetCursorPos" ( _
        lpPoint As Currency) As Long

Type POINTAPI
     x As Long
     y As Long
End Type


Sub Test1()
  Dim Pt As POINTAPI

  GetCursorPos Pt
  Debug.Print Pt.x, Pt.y

End Sub

Sub Test2()
  Dim Pt As Currency

  GetCursorPos2 Pt
  Debug.Print Pt

End Sub

Gruß
Karl-Heinz
Gruß
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread