Search:

In the end, it all boils down to blitting a pre-created tile-bitmap
(which was constructed under the constraint of a "repeatable pattern").

The Blit-Loop is then quite simple...


Private Sub...

No, it's a Property.



No, ...

Public L As Long, S As String, D As Date

...is defining 3 full Get/Let Class-Properties (as Method-Calls, not "Field-Variables").

This thread should be moved to the main-VB-forum IMO...

Though - when MS states, that only COM+ interactions are affected -
(x-process/x-machine exchanges between COM-Objects) ...
I cannot see...

Please try it out at least ...
And no, there is no ADO-Projectreference to set (if you have a DAO-one currently)...

The ADO.Stream-Object is not really related to "any DataBase" - it is only...

Yep, you got it...

The 4 "text-colored red or blue"-arguments are just two points,
which describe a "gradient-direction-vector".

Below is a Form_Click replacement, which shows:
- (in red)...

No problem... feel free to ask, in case you cannot make sense of certain Lines...

The few things which pop into my mind, which might be "alien" to you...:

- the "re-naming" of certain...

I'd make a commonly usable (generic) routine out of the little example first -
and what's then left, is only the correct "parametrizing" of such a sub-routine
(which now works with any...

First of all, I'd avoid VBs built-in FileRoutines and use something that's capable to write UTF8-text.

Secondly, why not invest your CSV-coding-efforts into something that works generically
(with...

Ah, well... seems you misunderstood what I meant with "unpack" (aka "unzip" or "extract") -
and instead tried to call the register-in-place-script directly on the "zip-File itself" (which acts as a...

The Cairo-wrapper makes up a larger part o the RC6, yes...



Select the Download.htm on the left-hand-side tree-control...
- then download the RC6BaseDlls.zip
- and unpack it into a new folder...

Same thread as before - post #21:
https://www.vbforums.com/showthread.php?896683-RESOLVED-Line-Methof-for-a-gradient-in-a-Triangle&p=5571226&viewfull=1#post5571226

If you find these instructions...

Well, the code in post #12 here: https://www.vbforums.com/showthread.php?896683-RESOLVED-Line-Methof-for-a-gradient-in-a-Triangle&p=5571108&viewfull=1#post5571108
... was using only VB6-Line-calls...

The routine, which produced Gradients in any Angle was in post #12.

And yes, it was doing that within "the confines" of an "outer triangle"...
(but it should be relatively easy to adapt - to your...

As already explained in another thread - using the age-old dhRichClient3 will only save you:
- about 2MB on disk (compared to the vbRichClient5-package)
- about 3MB on disk (compared to the...

Here's a (shortened but complete) version of your Form-Code, which does that:


Option Explicit

'*** GDIPlus-stuff
Private mlGdipToken As Long
Private Type GdiplusStartupInput
...

Your "Redim PreserveAndSetValue-Test" fails also with primitive typed Arrays
(have just corrected my code in #10 appropriately to):



Option Explicit

Private Declare Sub Assign Lib...

In case this request is only, because you want the initialization to UBound=-1 more generically
(working with any simple type as Object(), SomeClass(), String(), Long(), etc.) -
then the following...

I wouldn't introduce a "scalable vector-format" for Bitmap-Handling without need.
(that's prone to produce all kinds of surprises, regarding "DPI-awareness").


Ahh - see, there we go...

...

Since you want to do operations on *Images* (DIBs, Surfaces, 2D-PixelAllocations if you want):
- then think about DCs as Drawing-Contexts
- (instead of "Device-Contexts")

Drawing-Contexts are...

I strongly suggest, to use the "officially recommended version" of regfree loading with RC-Dlls,
which is the following (to be placed in a true "drop-in *.bas module):


Option Explicit
...

Ummh, what about: Msgbox Cairo.ImageList.KeyByIndex(23) ...?

Longer answer:
The App-globally available Cairo.ImageList is based on a cCollection (which stores Key/Item-Pairs)...
... with the...

Hear, hear... :)

FWIW, here's "Elroys-Task" which triggered all these threads,
solved via the COM-Objects of the VB6-Cairo-wrapper:

The task being (as I understood it):
1) load a PNG (or any...

I think in the above size-manipulation lies the reason for the "weird behaviour"...
... and that "dynamic-image-content" (added in StdPicture-Format from the outside),
should not be manipulated at...

RC6.dll is a "free COM-lib" (an ActiveX-library, produced with VB6 for the VB6-community),
which you have to check-in via the References-Dialog (before "RC6-based Code" will work in your IDE).
...

Do you mean something (roughly) similar to this?

GreenGradient-BG with inversed Green-Gradient on the triangle:
185124

RedGradient-BG with inversed Red-Gradient on the triangle:
185125
...

Well, so far you did not manage that in the routines you've posted
(e.g. your "D"own case did not work in my tests)...

See, the Down-case is just a "special case of a 180° rotation" -
...hence...

That's because dhRichClient3.dll (as well as dhSQLite36_engine.dll) are both UPX-compressed
(UPX is a PE-Loader which unpacks directly into memory... and I don't use it anymore for newer versions)....

Dim Sldr
For Each Sldr In Array(Tempo, Samplerate, Pitch)
Sldr.min = 0
Sldr.max = 100
Next


HTH

Olaf

Here's my take regarding a gradient-triangle routine (allowing free rotation):


Sub GradientTriangle(PB As PictureBox, ColorAt_xy, ColorAt_ab, ByVal x As Double, ByVal y As Double, _
...

FWIW, here's a new approach to all that (just uploaded into the CodeBank):
https://www.vbforums.com/showthread.php?896682-VB6-A-simple-approach-to-Lighweight-Classes

Maybe it will behave better...

As the title says already - another approach to LW-COM -
hopefully simple(r) to understand, because:
- it doesn't require to implement "all the Methods in the *.bas-Module"
- instead,...

For "small stuffs" like that, the built-in Filter-Function could be applied as well:


Option Explicit

Private Sub Form_Load()
Dim Arr: Arr = Split("US|UK|JP|CN", "|") 'init the Src-Arr
...

I'd say: Move your "Widgets" into a Table - and use SQL...

SQL (as a language) is specialized in dealing with Set-Ops, (syntax- and performance-wise).

Do all your Filtering on that...

@Krool...

I think you should look into that (since it would break also the "regfree-mode" via manifests)...

IMO, somewhere you're probably exposing a type from msdatsrc.tlb on the OCX'es Public...

With the WebView2 you should get more familiar with its JS-interface ...
(doing all of the more complex stuff, by adding js-Functions beforehand - and then calling these from VB)

For example, if...

Thanks, I see what you mean now...

Easy Fixes (for the faster cHashD-Zip, linked in Post #30):

1) Replace the "NoEntry"-Const-line with this line:
Private Const NoEntry As Variant = Empty
...

Of course...
You shouldn't do that with a lightweight Object -
(because these Methods require properly implemented "Extra-Interfaces" -
you delegate to in QueryInterface, and also a basic...

A "complete example" would be nice (which demonstrates the issue).
From a your short snippet (as it is), I can only recommend:
- to store the resut of the Values-method in its own (TmpValsArr)...

You've forgot the TypeSpecifier for CB in your Assign-Declaration above:
(it's currently Variant - and should be Long)


Declare PtrSafe Sub Assign Lib "kernel32" Alias "RtlMoveMemory" _
...

This is a duplicate of the question, which was answered in the main-VB6-forum here:
https://www.vbforums.com/showthread.php?896638-Implements-(light-weight-object)&p=5570399&viewfull=1#post5570399 ...