Search:

This

Class Test


Private Property Get Data(ByVal First As Long, Optional ByVal Index As Long) As Long

End Property

Private Property Let Data(ByVal First As Long,...

This works in VB6/VBA


Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (Ptr() As Any) As Long

Public Sub Main()

Dim arr() As Long
Dim ptr As Long
...

Wow, now that's a mouthful! :-))

Not sure if VB.Net has NameOf(MyClass), NameOf(MyMethod) and NameOf(MyParam) the way C# has but .Net languages are lacking compared to C/C++ as simple as __FILE__,...

Are Consts at module level still disabled like in


Class cAsyncSocket

Private Const MODULE_NAME As String = "cAsyncSocket"

End Class

This fails with "syntax error. no handler for...

Hey, no problem, I'm sure this will eventually work. I'll be putting everything in *the* single source file for now.

Btw, just read the list with limitations and couldn't find anything about...

Cloning sample Std-EXE it seems I cannot add second source file for some reason, neither under Sources node, nor under a sub-folder I successfully made under it
...

How do we create *new* workspaces for Std-EXE/Ax-DLL for twinBASIC within VS Code? Am I missing the menu option or do we have to copy these from the samples?

cheers,
</wqw>

This is known as Abstraction inversion anti-pattern. You are using SVG files to draw basic shapes when you'll need algorithms for drawing basic shapes to be able to implement something like a...

Here is how to use JsonDump, JsonKeys and JsonItem functions to "explore" the contents of a JSON file. First here is the final code:


Private Sub Form_Load()
Dim oJson As Object

...

Try using DESC like this


oRS.Sort = "Field7 DESC,Field8 DESC"

cheers,
</wqw>

FYI, https://github.com/Planet-Source-Code/eddie-bole-summstats-v-1-00e__1-70874

cheers,
</wqw>

Eleven downloads already! :-))

Edit: VS Code IDE needs getting used to but overall the compiler seems to work and is quite fast. Kudos!

cheers,
</wqw>

Yes, this is standard accounting and very wise decision *not* to track payments per document row item in the sales order but by the whole sales order document but to vindicate OP's db design one...

You should have started with maximum file size, not speaking about "thousands" of lines which is puny.

https://www.vbforums.com/images/ieimages/2021/04/3.jpg

Say file is 10GB so that no one...

How do you plan on sorting the .csv while keeping the entire file out of the program?

Do you plan on using some implementation of mergesort that can sort a file without reading it into memory in...

Do you need VB6 code with no extra references? What container do you plan on keeping your data in? Arrays or Collections?

So you need a basic CSV parser in pure VB6 that can process file content...

Here is something that can read .csv files into an ADODB.Recordset (needs project reference to Microsoft ActiveX Data Object 2.8 Library)


' Module1
Option Explicit

Public Function...

No, asynchronous means non-blocking so with async you issue PlaySound and don't wait for the sound to complete. This way you app can continue spinning while the sound is playing.

Here is what I...

. . . which is ironic because the sample has become obsolete long before its host expired :-))

cheers,
</wqw>

Merge several coclasses implementation into a single .bas module, not a class factory.


A typelib shoud be ok declaring thousands of interfaces that could be implemented in some hundreds of .bas...

Or use some small EPSILON value to fix the Fix function and to implemented comparison to zero with |A| < EPSION using Abs function like this:


Option Explicit

Private Const EPSILON As Double =...

What's up with all these spaces?

Anyway, this is *not* the original VB6.exe that ships with VB6 SP6.

The original it is *not* flagged large address aware.

You or some program/add-in you...

It is highly unlikely there is any artificial cap on maximum allocated chunk but a simpler explanation is that system (COM) heap in the IDE gets fragmented, so this way for instance although there is...

I have no idea what &H22009, &H21808 and &H22009 are as pixel format unless you use the named constants.

The naming convention is A for straight alpha and PA for premultiplied alpha so...

VB.Image cannot display transparent StdPictures so you have to use AlphaBlendImage control. This is the second part of the problem when *painting* transparent StdPictures is not working.

You can use WinHttpRequest or XMLHTTP to send web API requests over https incl custom headers. Just search the forums for sample code her.

In te request use HTTP/1.1 not HTTPS/1.1

There is no HTTPS protocol. It’s the same old HTTP protocol over TLS secured channel.

Do you staticly link WebView2 loader library or is this DLL an external dependency that has to be shipped separately together with MS Edge?

cheers,
</wqw>

Try Set AlphaBlendImage1.Picture = AlphaBlendImage1.GdipLoadPicture(App.Path & "\02AlphaPNG.png") instead.

There are several helper functions too: GdipLoadPicture, GdipLoadPictureArray,...

It's VS2015 that can target v140_xp the so called "Visual Studio 2015 - Windows XP (v140_xp)" toolset which is the latest one that supports builds targeting XP.

Another useful feature of VS2015 is...

True but there is no API interface designer in his right mind that would distinguish object keys of the API structures on case, so I really like how JsonItem is forgiving on case-sensitivity. It just...

JSON arrays and JSON objects are represented as VBA.Collections so easiest would be to just check with something like If IsObject(JsonItem(oRoot, "path/to/propery")) Then

Usually the exact keys to...

You have to read up about premultiplied alpha vs straight alpha channel.

https://microsoft.github.io/Win2D/html/PremultipliedAlpha.htm

DIBs and AlphaBlend API work with premultiplied alpha...

His machine currently does not have any COM ports! And next time instead of being passive-agressive just use "OLE-support" or "ActiveX-support" instead, not to scare the sh*t out of them poor...

I see now -- your arrSrcBytes array is being changed by some of the method calls.

You can use something like Debug.Assert arrSrcBytes(K, H - Y - 1) = 15 after each and every method call to...

Here a minimal multipart/form-data based file upload in VB6:

https://wqweto.wordpress.com/2011/07/12/vb6-using-wininet-to-post-binary-file/

The php code there is minimal so easy to study the...

Use
and blocks to format your code. Now you have lost the indentation and it's a PITA to read, let alone answer anything.

Also try to submit working code. Something one can copy/paste into a...

Just an idea: Before compiling you project right click in your code editor and choose Toggle->Break on All Errors menu option.

This way when you try to compile you project the IDE will break when...

Yes, this problem was fixed in the latest 5c64d95 commit.

Frankly no idea how that omission slipped but I know for sure that this repo is abandoned and will not see any more development.
...

No, 7-zip supports both .tar and .gz and both compression and decompression. Replied with more details to your other thread.

cheers,
</wqw>