Hi guys,
I've recently finished a VB6 database front-end that uses a lot of API calls (many thanks to all the free sources out there - nothing like real code to learn from!).
I've used API calls to build irregular-shaped forms so the user can see a lot of information in a well laid-out format.
It runs a charm on Win98, however, on Win95 it turns it a flashing, epilectic-fit-inducing mess.
In order to get it run at all of 95, I've had to remove the flashy(sic) form-building routines - It's not pretty anymore, but it runs.
Has anyone else come across this before? Is it a real incompatability, or just a Declaration problem?
The majority of calls are to...
I've recently finished a VB6 database front-end that uses a lot of API calls (many thanks to all the free sources out there - nothing like real code to learn from!).
I've used API calls to build irregular-shaped forms so the user can see a lot of information in a well laid-out format.
It runs a charm on Win98, however, on Win95 it turns it a flashing, epilectic-fit-inducing mess.
In order to get it run at all of 95, I've had to remove the flashy(sic) form-building routines - It's not pretty anymore, but it runs.
Has anyone else come across this before? Is it a real incompatability, or just a Declaration problem?
The majority of calls are to...
Code:
Private Declare Function Polyline Lib "gdi32" (ByVal hDC As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, _
ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
ByVal Y3 As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long