Search:

Hi,
In your code (Function or SUB):


Exit sub
Exit function

In the IDE, CTRL+Fn+P (or Ctrl+"Print Screen" key on old keyboard)

Hi,

I done a code to select the keyboard input to a textbox2(program entry) or an external data in textbox1 (barcode):
This code don't need a prefix character to send datas (option check), but it...

Hi,

Cool, it's OK for me. (juste the "Picture1.Appearance = 0" to delete on Vb5 (RO in runtime !))

But, can we use the modulo from the global X axe… gX MOD 450 … on the picture2?

Instead of...

Hi Bernie,

superb ! , and in addition your code can be used with the GwBasic.

… A wonderful world.

Hi Bezzie,
No, you had to rebuild your own titlebar, using a Toolfixe form…

Have a look to : http://www.vbforums.com/showthread.php?879577-RESOLVED-Form-Title-bar

Have fun.

Hi,
Example to mirror a fix ListView in a form to another form:
http://dl.free.fr/f5dJXcQpI

In this demo, the form height capture is hang to 788 pixels (max height for a form/screen)
You had to...

hi,
You had to create a new ghost form and add a blank control in it.
Copy all values from the fix control to the ghosted one, and set his width to display all values.
Set the ghosted form to the...

Hi,
I use to reconstruct the top title bar using a "Tool form", a picture and icons…
But, you had to move and manage floating popups menu, to be displayed correctly.
On a classic form, you can...

:eek:
It's looks better now.

Hello Mr. doberman2002,

Before answering your questions, I will ask you to follow your previous posts, to answer them, to thank the contributors and to specify if the problems are solved.

:p
Let me code a pre-processor in Vb6, to replace the AJAX routine !

hi,

Please don't use |CODE| |/CODE| , use |highlight=vb| |/highlight| !

;)

How to add a word in a text box (without clipboard): by Elroy.
http://www.vbforums.com/showthread.php?879467-improve-this-code-lags-because-of-loop&p=5422067&viewfull=1#post5422067

Using it to...

Hi Elroy,

Good code, but wrong tread ! :cool:

How to add a word in a text box (without clipboard):...

Hi Victor,

Yes, at least one control must be created/loaded in the main form in Vb5 (without dedicated process).

But, it seem to work properly with indexed controls.
Thanks Victor.

Hi,
At first, don't add statics values in a loop…


For iiii = 0 To List3.ListCount
objDOS.CommandLine = Text35.text & File3.Path & "\" & List10.List(X) & Text34.text & Text11.text &...

Hi,
Something's wrong on VB5.
Is there any DLLs to add to dependency? (VBScripting...)

Not specified on this page:...

Hi,
A simple demo how don't use GetAsyncKeyState, just CTRL+H or CTRL+W shortcut.
(VB6)


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim sTmpChar As String

Select Case...

vbaCopyBytes: 0,282894 51:34:17
GetMem4 f: 0,067097 51:34:17
GetMem4 s: 0,057638 51:34:17
CopyMem f: 0,075391 51:34:17
CopyMe sub: 0,064044 51:34:17
Property: 0,067276 51:34:17
AND fn: ...

Hi Olaf,

Yes, impressive…
I reduce the arguments ! (Type of RGB2)

But, steel in the Form. (not a *.bas file)
Get 50% gain between AND/ your suggestion (And-1 arg).
With only 30000 loops.

Hi Qvb6,
:eek:
Forgot you too !!!
Sorry…

Thanks, … all the best.

All other post are very useful to optimize a code, thank you all.
There's no simple codes!

[edit] Wolfgang? we forgot Wolfgang in our tests ! (=copymemory?)

Hi,

Thanks !

But, there's two winners now !
LaVolpe and Dilettante…

But, Dilettante is the less winner.
:p
lol

Seem to be better to use a "Property Let" instead of a "Function" sub…
:eek:

…. 24 years after my first Visual Basic program !


Well done reexre

Hi reexre,
The copymemory is down while using a 90000 loop length!
Hummm…

I'm the looser now…
:confused:

Hoop!
Sorry, LaVolpe… the "GetRGB3" is yours… [Ghost edit: No one seen it !]

No, no … you are the second best … Be fair player !
:)
… an API can be slower than a pretty little routine.

And the winner is :

171471

Dilettante? Dilettante… Dilettante!
… with the Property Let routine.

2 nd : AND (LaVolpe)
3 rd : CopyMemory (Xav)
4 th: GetMem4 ??? (from Elroy)

Hi Elroy,

Is right too !
(VB5 runtimes installed in system path)
Thanks again, Elroy.

Hi,
Or convert the Long value in a binary array :


Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
...

Hi LaVolpe,
Confirmed, steel to use it !
We had to change "Visual Basic 6 and Earlier" to "Visual Basic 5 and Earlier" !
:)

Hi,
In this case, just use the text file than a CVS format, using a "|" character to parse the text !
No?

Hi,

Thanks LaVolpe !
Working on Vb5... ;)

Never seen this kind of code...

Hi,
Many functionalities seem to be down…
"Help.exe" was ever banish from W10... the update can't run it now.
Bad way to use old IDEs..

Hi,

Yes, APIs Copymemory able to copy all bytes from 4 bytes single values, but save the Array value on a temporary file…

array(0,0);array(1,0);array(2,0);array(3,0);array(4,0);array(5,0);...

Hi Ucanbizon,

Something like that:


Private Sub Command1_Click()
Dim gMyArray(5, 40) As Single
Dim Index As Integer
Dim Sum As Long

Hi Thierry,

I ever seen such of compiler errors. ("memory full" too)
Just note all dependency (DLL,OCX...) using a note-pad by a look-up in the "VBP" file.

Open an empty project, and add all...

Hi,

Dilettante, I would like to have your permission to use your code for my Vb81 emulator; posted here.

171375

Project web location: http://zx81.vb81.free.fr

[edit] Thanks for help...