[ Συναρτήσεις ] Κώδικας που δεν τρέχει σε 64bit περιβάλλον

[Tasos]

Αλλάζει μέγεθος αλλά μόνο την πρώτη φορά. Τη δεύτερη δεν μπορεί να υπάρχει οπτική αλλαγή αφού ήδη έχει αλλάξει το μέγεθος.

Τι πρέπει να κάνεις:

Private Declare PtrSafe Function MoveWindow Lib "user32" ( _
        ByVal hwnd As LongPtr, ByVal x As Long, ByVal y As Long, _
        ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Η συνάρτηση σου ζητάει το όρισμα hwnd με τύπο δεδομένων LongPtr.

Περισσότερες πληροφορίες εδώ: https://docs.microsoft.com/en-us/off...gptr-data-type


Θα πρέπει λοιπόν, όπου αυτό ζητείται, να μετατρέψεις τον τύπο δεδομένων Long σε LongPtr
για να λειτουργήσει η συνάρτηση χρησιμοποιώντας τη μέθοδο CLngPtr(αριθμ. τιμή )

Για τα υπόλοιπα ορίσματα που είναι Long δεν χρειάζεται να κάνεις κάποια αλλαγή.

Θα χρειαστεί να κάνεις παρόμοιες αλλαγές σε κάθε μια από τις συναρτήσεις αυτού του τύπου.

Καλή συνέχεια

Τάσος