Search:

Type: Posts; User: georgekar

Page 1 of 13 1 2 3 4

Search: Search took 0.95 seconds.

  1. Replies
    1
    Views
    474

    Currency Problems

    I use this to get a value as signed long,


    Public Function Signed(A) As Long
    Dim p
    p = Fix(CDec(A))
    Signed = MemLong(VarPtr(p) + 8)
    End Function
  2. Replies
    12
    Views
    2,561

    Re: Passing array in Variant by reference

    There is a good library here: https://github.com/cristianbuse/VBA-MemoryTools
    which have CloneParamArray - copies a param array to another array of Variants while preserving ByRef elements.

    A...
  3. Re: Occasional Out of memory error accessing COM object

    Use the editbin.exe
  4. Re: Occasional Out of memory error accessing COM object

    I think there is no problem to patch vb6.exe. I had the same problem with ieframe.dll in my M2000 interpreter some years ago. When you add a lot of stack, then maybe you can't load this dll (or any...
  5. Re: Occasional Out of memory error accessing COM object

    Try to alter stack size using editbin.exe /stack:102402048 yourfile.exe on yourfile.exe

    or add to vbp:
    [VBCompiler]
    LinkSwitches=/STACK:32180000


    the numbers was as I use for some own...
  6. Re: Any reason I shouldn't replace a UDT with a single member with that member?

    You are right. You want 8bytes by value, which means like you pass two long by value.
  7. Re: CreateTypeLib2 ... Destroy it and Start Over?

    I think that a UDT variable is a Variant where the last 4bytes is the pointer to IRecordInfo. So each defined variant (variable) is like an object without vtable, has a pointer to a memory block...
  8. Re: Any reason I shouldn't replace a UDT with a single member with that member?

    So Why you don't make it like two long


    typedef struct foo
    long bar1;
    long bar2;
    } foo;
  9. Replies
    7
    Views
    908

    Re: Equivalent for COM interface Detach()

    Maybe is just a swap, from where the pointer detach. Swapping never play with object counter.
  10. Re: [VB6] Modern Shell Interface Type Library - oleexp.tlb

    This is a part of code before the invoke (at iDispatch). I have to pass the names of the named arguments in reverse order, but at 0 has to be the name of the function. So I pass the myptr(0) (by...
  11. Re: Get % between 2 values and 2 percentages (proportional scaling for the math gifte

    If you don't understand what you ask, and you get anything and it's good but not what you ask, perhaps you want something else, who can take you serious?
  12. Re: Get % between 2 values and 2 percentages (proportional scaling for the math gifte

    I make one for the OP:
    https://www.desmos.com/calculator/xkvulcfma3
  13. Re: Get % between 2 values and 2 percentages (proportional scaling for the math gifte

    reexre,
    Is pure math. What you done not work for the OP. A linear function is that when the displacement of X (from X1 to X2) return the same displacement Y (which are from Y1 to Y2) for any X. So...
  14. Re: Get % between 2 values and 2 percentages (proportional scaling for the math gifte

    This not work. The function in question is not linear, therefore we have to use two times the Value...at least
  15. Re: Get % between 2 values and 2 percentages (proportional scaling for the math gifte

    The setupcalc1 is the real MapRange function. The second one, the setupcalc2 is for the OP's calc.
    This is based on this https://rosettacode.org/wiki/Map_range#Using_Class



    Sub main()
    Dim a...
  16. Re: What is an entry 0x600000XX in an IDL file

    Yes I put the missing line. This was from a typelib from Michel Rutten, Hidden Gems for Free.

    And this is from TLBNF32.tlb
    So the 0x60... used for modules (like 0x40...for UDT fields). I don't...
  17. Re: Error getting Recordset from DataGrid reference

    Another try to find the reason;

    Works with ds2 at the last line.



    Option Explicit


    Private Sub Form_Load()
  18. Re: Error getting Recordset from DataGrid reference

    Just leave g and ds2 as variant
    I try it and works:


    Option Explicit


    Private Sub Form_Load()
    Dim ds1 As Object
    Dim rs1 As Object
  19. What is an entry 0x600000XX in an IDL file

    This is a part of an IDL file from a tlb. I can't understand how I can call the StrArrPtr which is in entry 0x60000002 on module VBVM6 on msvbvm60.dll.

    Do anyone know how I can call this through...
  20. Replies
    40
    Views
    5,254

    Re: DirectComposition in vb?

    Mr wqweto share some of the best open source code for all of us and he is not deserve to handle him with the way Black_Storm did.
  21. Re: how display Form2 like as slide menu from right to left inside the main form?

    Here is an example
    I have the back form as layered window, and the top form as layered window two with owner the back window.
    I found a video which show that...
  22. Re: how display Form2 like as slide menu from right to left inside the main form?

    Opacity/Tranparency....whatever. When you place it as not a Top most window you loose the Ex_layer style. That simple.

    Try a form with style=0, use ZOrder 1, and resize it to full screen, then...
  23. Re: how display Form2 like as slide menu from right to left inside the main form?

    You can't make a form transparent if it isn't visible (property visible true). There is no way to pass an opacity value at the design of the form.
  24. Re: [VB6] Win7 Taskbar Features with ITaskbarList3 (overlay, progress in taskbar, etc

    Currently I have Windows 10 Pro and the code I run was the example you provide. That's all. So if the user (like me which I had the icons small to let them have more space) do the same then the...
  25. Re: how display Form2 like as slide menu from right to left inside the main form?

    The left and top properties from a control can be ANYWHERE, not just on the visible part of the form. So this is why you can adjust the width of your form without any problem from the controls.
  26. Replies
    29
    Views
    4,588

    Re: Dynamic UDT TypeLibs

    My Interest is not to have UDT for fun, but for using them calling external functions/objects from activeX.dll (the most). Because I have the Group class which is like UDT (with nested UDT) but have...
  27. Replies
    29
    Views
    4,588

    Re: Dynamic UDT TypeLibs

    I found information about passing arrays of UDT to c++ external functions:
    https://jeffpar.github.io/kbarchive/kb/171/Q171583/

    There is a list here https://jeffpar.github.io/kbarchive/id/vbwin/...
  28. Replies
    29
    Views
    4,588

    Re: Dynamic UDT TypeLibs

    Elroy, do you try to pass an UDT as member of UDT? Maybe you have to use the modified class which I provide, which do something simple: It takes a filename using a random name. Also the class can be...
  29. Re: [VB6] Win7 Taskbar Features with ITaskbarList3 (overlay, progress in taskbar, etc

    I found the problem. I use small icons in taskbar (there is an option, the caption for that is in my language Greek, but the meaning is that, use of small icons was On). So change that to normal I...
  30. Replies
    29
    Views
    4,588

    Re: Dynamic UDT TypeLibs

    You are right. Sorry.
  31. Re: [VB6] Win7 Taskbar Features with ITaskbarList3 (overlay, progress in taskbar, etc

    The overlay icon not shown in Windows 10.
  32. Re: how display Form2 like as slide menu from right to left inside the main form?

    I think the problem was the opacity control.
  33. Replies
    29
    Views
    4,588

    Re: Dynamic UDT TypeLibs

    Yes, the IrecordInfo is an object and not need the typelib to survive from a return from a function where we make that. The problem will be if the object happen to defined in another process. When we...
  34. Re: how display Form2 like as slide menu from right to left inside the main form?

    You don't need to touch/rearrange controls on the form, just change the size, from width (and the left property to move equally to the left), the end result will be the same.
    The other idea would be...
  35. Re: how display Form2 like as slide menu from right to left inside the main form?

    Handling the width of the form you can pretend that the width is constant and the "other" part (the not visible) is hidden.
  36. Replies
    29
    Views
    4,588

    Re: Dynamic UDT TypeLibs

    I check today, that we can use the class for UDT changing to make a new if we wish, and I do an experiment: I make a command button and I make there some udt, one of them already created in the...
  37. Re: [VB6] Modern Shell Interface Type Library - oleexp.tlb

    Thanks
  38. Re: [VB6] Modern Shell Interface Type Library - oleexp.tlb

    Can You make a IDispatch2
    which have this alternative functions:

    rgszNames not as string
    Function GetIDsOfNames(riid As IID, rgszNames As Long, cNames As Long, lcid As Long, rgDispId As Long)...
  39. Re: How do I prevent the user from misleading the text or copy of the Textbox ?

    This is an example using a myTextBox which is a class which use a glist4 (I do some changes to sort the example)

    This allow only ABCabc characters inside the label at the left and the type at the...
  40. Re: How do I prevent the user from misleading the text or copy of the Textbox ?

    There are two ways: One to validate input at a final stage, and reject the input (but this means that the textbox may have not valid text). The other is to use the change event to check every new...
Results 1 to 40 of 500
Page 1 of 13 1 2 3 4



Click Here to Expand Forum to Full Width