VBcoders Browse New Submit Contact Sign In

No account? Register free

Forgot password?

OCX Gauge

Les Productions UnderDog  (5 Submissions)   Custom Controls/Forms/Menus   Visual Basic 5.0   Advanced   Wed 3rd February 2021

Here is my first submission since a "hacker" erased all the things of my repertoire.
Il s'agit d'un contrôle.It is a gauge showing pressure in psi having as value source in kPa.
(Because we use metric values at my work and because i still love imperial system) i made that Old Style Gauge.I tempted several manners to arrive at my purposes (almost the end), in the first place, a simple line for the needle, it did not seem real, then I had to draw a needle in three fragments to make her the smallest as possible and by using the method of
SetPixel and GetPixel. The only problem is that there is a refreshment in every consequentive change...Test it and why not try to improve it...

All the constructive messages are welcome.

API Declarations
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Rate OCX Gauge (8(8 Vote))

Download OCX Gauge

OCX Gauge Comments

No comments yet — be the first to post one!

Post a Comment

0/1000 characters