Search:
Type: Posts; User: argen
Search:
Search took 0.02 seconds.
-
-
-
-
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...
-
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...
-
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
...
-
For another shot in the dark, I would try removing the parentheses:
vBytes() = rsD.Fields("BLOBData").GetChunk(nBlocksLeft) <- Error Here
vBytes =...
-
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,...
-
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...
-
I think it would be better if you describe what doesn't work.
-
Without manifesting I only get 17
-
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...
-
But you need also the correct DPI value for GetSystemMetricsForDpi.
It seems to help only in making a multiplication.
-
Couldn't you just use old GetSystemMetrics and multiply by the factor of the DPI difference?
It seems so:
-
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"...
-
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...
-
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...
-
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...
-
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...
-
OK, good luck with that. Sure it can be as easy as to add the angle character at the beginning.
-
Please put the link to see what it does.
-
But as an image then... right?
-
Please clarify something:
do you want to copy to the clipboard the text "rotated" or the original text?
-
-
Does it matter? (for the clipboard copying feature)
-
-
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...
-
Do you have an example of loading image files using WIC? I would like to check how that works and performs.
-
baka, WIA would be WIC or are they different things?
-
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...
-
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...
-
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...
-
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...
-
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
-
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...
-
-
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...
-
Do you think that 1 microsecond might be too much for the user to wait for?
-
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...
-
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...
|
Click Here to Expand Forum to Full Width
|