Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

API inconpatabilities between 98 and 95?

Status
Not open for further replies.

comaboy

Programmer
Nov 6, 2001
261
GB
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...

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

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top