Type: Posts; User: Jonney
Search took 0.04 seconds.
Public Function SetBinaryData( _
ByVal lFormatId As Long, _
ByRef bData() As Byte _
) As Boolean
' Puts the binary data contained in bData() onto the clipboard under
Nice snippet. Thanks.
If lRetry = 1 Then Randomize 'Just once to ensure that we get random values
Call Sleep(Rnd() * 500) 'Note: Make sure to call `Randomize` somewhere on process startup
You found a bug in original code:
If (lR > 0) Then 'MSDN:If the function succeeds, the return value is nonzero.
Can I use Randomize before Call Sleep?
Call Sleep(Rnd() * 500)...
VBAccelerator has a good Clipboard class.
@Bonnie West :Use ChrW$ for Unicode
TextBoxW1.SelText = (sChar & " ") & _
(ChrW$(Asc(sChar)) & _
very neat code! thanks.
:wave::wave::wave:Does who know the status of Lavolpe? He was offline since 5 march 2016.
I am not a fan of MT.
I download the file and remove the exe and attach the Zip file.
Or you can give contract to fafalone who has such knowledge.
Mid$(HexBytes, 2 + I * 3, 1) = Mid$(HEX_CHARS, 1 + (Bytes(I) And &HF), 1)
Dim hDC As Long:hDC = GetDC(0)
On Win10,there's no such LogPixels item.
On Win10, there's no option "Use XP Style DPI Scaling" switch. It is always on(?).
@Lavolpe, please add new something on your thread on codebank.
Since Win8.1, there's SetProcessDpiAwareness API, we can use it in code instead of marking in manifest file.
I put the switch in both ActiveX project and demo project,then I created a very large 2D array, w/o or with this switch, there's no effect. Still crash.
I may follow up when I make more...
I haven't verified,someone said GetDeviceCaps can't return real dpi if XP virtual style is on.He recommend reading from Registry:
Dim w As Object
Set w = CreateObject("wscript.shell")
1. Confirmed naked Win10 isn't include MSCOMCTL.ocx.
2. I didn't get any error during install VB6 and SP6.
3. I try to compiled OCX, it gives " Error in the OLE registry" but I did...
Does the switch work for compiled ActiveX (ocx)?
my desktop is 64bits CPU of course, but OS (installation disk)is 32bits.
Does VMWare 9.x support virtual Win10 64 bits?
Due to 32 bits Win7 & Win10, I can't install VMWare V11.1.0.
Not sure If I install 64bit Win7 om my Desktop (I can borrow CD from friends), the license of MS Window is still valid (activate) or not....
there're two little Loopholes in your demo:
1. In Private Sub Form_Resize()
.Move .left, .top, ScaleWidth - .left, ScaleHeight '// what is it?
Can you make a summary of Steps?
Don't know what is your Windows bits,either 32 bits or 64 bits?
MS start to copy Apple's "FLAT" concept. The giant is panic... :rolleyes:
This is good excuse for battery or energy saving. But how about so many years of earth energy waste since WinXP till Win7 if...
VMware-workstation 11.1.0 required 64bit win7 or newer Operation Systems.
We are just a leaf...
Well,we have to adapt to the changes.
All my installation disc are 32bits, VMare V11 not support.
I just upgrade one of my desktop to Win10 Pro. I am very disappoint on the theme looking.
1. The window title is plain white
2. The control box (min/max/close buttons) only fill with either gray or...
try to use SetFocusAPI.
Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hWnd As Long) As Long
Private Sub Form_Load()
Text1.Visible = False
This is what you are looking for.
if you understand German, you can refer to tvwfind.zip.
Happy you finally moved out of Listview. Now you got problems on Treeview. What is the next? I guess Unicode because File explorer related application need Unicode support.
Regarding to "Find...
@jmsrickland : look like such stuff (drag-drop,auto scroll) is hard for you. Why you insist on such function? We seldom used such thing, in my opinion, Copy/Paste/Delete/Cut/Move Pop up menu is more...
though I never used, but look like this tool is good. The coder made very deep research.
>10K posts! amazing though.
You wording could,especially I highlighted, probably already hurt your helpers' heart. Please be careful when we are comprising words.
Bonnie always produces trustful answer. Thank you.
DwmEnableComposition API will switch Win7 theme between Windows 7 Basic and Aero via code w/o a restart.
OK. We probably never used such APIs. But at least, we know better. Thanks.
Private Sub Form_Load()
Dim rc As RECT
Picture1.AutoRedraw = True
Dim tLB As LOGBRUSH
Dim lhRedPen As Long, lhBluePenOld As Long
Picture1.ForeColor = vbBlue
Private Type RECT
left As Long
top As Long
Proud that we are discussing SaveDC & RestoreDC on the VBForums at the first place. I don't know why no one ever mentioned.
I think we can do for both.I will do some testing on this.
Can you show the principle code? I am blur how does Undo work.:rolleyes:
StateID = SaveDC(myDC)
hPenNew = CreatePen(...)
hFontNew = CreateFont(...)
SelectObject myDC, hPenNew
SelectObject myDC, hFontNew
... do drawing stuff
Click Here to Expand Forum to Full Width
Survey posted by VBForums.