Search:

Type: Posts; User: argen

Page 1 of 5 1 2 3 4

Search: Search took 0.02 seconds.

  1. Thread: testing

    by argen
    Replies
    1
    Views
    254

    Re: testing

    ,,,,
  2. Thread: testing

    by argen
    Replies
    1
    Views
    254

    testing

    190811 190812 190813
  3. Re: Create an object array with a length of zero (or UBound = -1)

    ----
  4. Re: How do you create a command that hides each label on the surface of the form?

    Private Sub Command1_Click()
    ShowControlType "Label", False
    End Sub

    Private Sub ShowControlType(ControlType As String, ShowControl As Boolean)
    Dim c As Control
    For Each c In...
  5. Replies
    14
    Views
    1,611

    Re: VB6 ADO GetChunk Method (Type Mismatch Error)

    OK, then the fix would be:


    Dim vBytes2 As Variant

    vBytes2 = rsD.Fields("BLOBData").GetChunk(nBlocksLeft) '<- Error Here
    If Not IsNull(vBytes2) Then
    vBytes = vBytes2...
  6. Replies
    14
    Views
    1,611

    Re: VB6 ADO GetChunk Method (Type Mismatch Error)

    If you can run that step by step, declare a Variant variable, and then when you get the error, get the chunk there.
    And get the TypeName of what is in the variable.


    Dim x As Variant
    ...
  7. Replies
    14
    Views
    1,611

    Re: VB6 ADO GetChunk Method (Type Mismatch Error)

    For another shot in the dark, I would try removing the parentheses:


    vBytes() = rsD.Fields("BLOBData").GetChunk(nBlocksLeft) <- Error Here


    vBytes =...
  8. Replies
    16
    Views
    2,093

    Re: GetSystemMetricsForDpi alternative

    To make that right, it is not "while app moves to another screen", but when that form receives the WM_DPICHANGED message, because the DPI would change also when the user changes the screen setting,...
  9. Replies
    16
    Views
    2,093

    Re: GetSystemMetricsForDpi alternative

    The point is that that only works if the program is manifested for Per Monitor, and that's only possible in Windows 10 version xxxx.
    And in Windows 10 version xxxx you also have...
  10. Replies
    16
    Views
    2,093

    Re: GetSystemMetricsForDpi alternative

    I think it would be better if you describe what doesn't work.
  11. Replies
    16
    Views
    2,093

    Re: GetSystemMetricsForDpi alternative

    Without manifesting I only get 17
  12. Replies
    16
    Views
    2,093

    Re: GetSystemMetricsForDpi alternative

    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIdx As Long) As Long
    Private Declare Function GetDpiForWindow Lib "user32" (ByVal hWnd As Long) As Long
    Private Declare Function...
  13. Replies
    16
    Views
    2,093

    Re: GetSystemMetricsForDpi alternative

    But you need also the correct DPI value for GetSystemMetricsForDpi.
    It seems to help only in making a multiplication.
  14. Replies
    16
    Views
    2,093

    Re: GetSystemMetricsForDpi alternative

    Couldn't you just use old GetSystemMetrics and multiply by the factor of the DPI difference?

    It seems so:
  15. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    Yes, I forgot to mention that it was very limited.
    Here is a code that supports numbers (well, as well as it can be):


    Option Explicit

    Private Declare Function OpenClipboard Lib "user32"...
  16. Re: Make hGdipImage, hGraphics, and other GDI+ "objects" into true VB6 COM objects

    You can set if as Friend for Let and Public for Get and set it as the default member too.


    Friend Property Let Handle(hGdipImage As Long)
    If mhGdipImage Then Err.Raise 5&, , "GdipImage...
  17. Re: Good Programming Practice: About "ByVal MyObject"

    Everything depends on the nature of the program. For most programs optimization isn't important, because they are not time consuming processes, but not for all.

    Now it is divided into frontend...
  18. Re: Good Programming Practice: About "ByVal MyObject"

    All depends on the other things that the program does.
    The impact can be negligible in many cases, because the time spent in copying strings is not much usually (related to the time spent in other...
  19. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    Copy this to a module:


    Option Explicit

    Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
    Private Declare Function SetClipboardData Lib "user32" (ByVal Format...
  20. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    OK, good luck with that. Sure it can be as easy as to add the angle character at the beginning.
  21. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    Please put the link to see what it does.
  22. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    But as an image then... right?
  23. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    Please clarify something:
    do you want to copy to the clipboard the text "rotated" or the original text?
  24. Re: Good Programming Practice: About "ByVal MyObject"

    Yes, that makes sense.
  25. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    Does it matter? (for the clipboard copying feature)
  26. Replies
    24
    Views
    2,165

    Re: [RESOLVED] Last Class to Go

    Thanks, I'll check it.
  27. Re: Good Programming Practice: About "ByVal MyObject"

    There is a performance penalty copying strings when is not necessary.
    I prefer to pass strings ByRef when they are not going to be changed.

    And I'm not sure if the same does not apply to type...
  28. Replies
    24
    Views
    2,165

    Re: [RESOLVED] Last Class to Go

    Do you have an example of loading image files using WIC? I would like to check how that works and performs.
  29. Replies
    24
    Views
    2,165

    Re: [RESOLVED] Last Class to Go

    baka, WIA would be WIC or are they different things?
  30. Re: Good Programming Practice: About "ByVal MyObject"

    That's was not the point, that was a complementary comment, just in case that clarification was needed.

    The point was that you said:



    And I asked why you said that, because the first...
  31. Re: Good Programming Practice: About "ByVal MyObject"

    But Elroy, the point is that the receiving procedure can add as many new references as it wants (make new (counted)pointers).
    ByRef does not guarantee that that won't happen, as it does not...
  32. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    I don't get the point. Don't you have the text that you want to copy the the clipboard in the .Caption property of the label?
    It does not matter how the control rotates the text, that's just for...
  33. Re: Good Programming Practice: About "ByVal MyObject"

    Of course, the receiving procedure can make all the new references that it wants, no matter how the "first" reference were passed.

    But that is not in control (or in scope) of ByVal/ByRef

    It is...
  34. Re: Good Programming Practice: About "ByVal MyObject"

    Why do you say that it is not 100% true?


    Private Sub Form_Load()
    Dim c As MyClass

    Set c = New MyClass

    MyProc c
    End Sub
  35. Re: [RESOLVED] Rotate TextBoxes and Labels (Take Twe)

    You need to make a popup menu for use as context menu (with one submenu), and display it in the MouseDown event of the label (if it has that event) when Button parameter is vbRightButton(2)
    The...
  36. Re: Len vs LenB for specifying API structure lengths, and internal vs end padding

    Yes.
  37. Re: Len vs LenB for specifying API structure lengths, and internal vs end padding

    Yes, you were wrong Niya. You position was that LenB could work on any situation, that it always returned the right length, and that's turned to be not true (unless of course, if you change the...
  38. Replies
    24
    Views
    2,165

    Re: Last Class to Go

    Do you think that 1 microsecond might be too much for the user to wait for?
  39. Replies
    24
    Views
    2,165

    Re: Last Class to Go

    I would make a global Terminate sub, and do whatever you need to do in the order you need to do to terminate all those objects there.

    Then, in all the Terminate events of these objects, call the...
  40. Re: Len vs LenB for specifying API structure lengths, and internal vs end padding

    I can't read your longs posts Niya.

    I used Len because I didn't want to get the size of the UDT in memory, but the size of the UDT that VB6 passes to the API.
    It turned to be more complex after...
Results 1 to 40 of 181
Page 1 of 5 1 2 3 4



Click Here to Expand Forum to Full Width