Type: Posts; User: Jonney
Search took 0.04 seconds.
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
I used an Structure Type to hold all properties such as all colors setting:
Private Type udtGridColors
BackColor1 As OLE_COLOR 'Color.White
BackColor2 As OLE_COLOR ...
... you can always refer to Lavolpe's LaVolpe Custom Button Template [20 Feb 09] which set standard of coding.
Very good explanation indeed. I have to keep my mind refresh with your lecture and those articles.
The SetBoundsRect could be useful for dirty region paint? I never used it.
What is the GDI+...
I never used such APIs (SaveDC,RestoreDC and SetBoundsRect), and I seldom saw anyone using it but I see it today. Any benefits from them?
Private Function CreateMemDC(ByVal cx As Long, ByVal...
for my case, showing Listbox at certain Position, for example, Textbox + ListboxW = drop down ComboBox showing in Grid Cell with a double click.
After more tests, the simply way is to set the...
Both Twips and Pixels mode work OK from what I tested.
Noted: I only took out ListBoxW UserControl then tested it, not the whole CCRP project.
With above modification, I tested 100%,125%,150% and 200%, check on or off "XP Style Scale", all work ok.
If PropIntegralHeight = True Then
GetWindowRect ListBoxHandle, WndRect
I am testing the ListboxW on high DPI 200%. Look like ListBoxW has one issue. But I don't know how to describe.
Private Sub UserControl_Resize()
Static InProc As Boolean
If InProc = True...
OK. I find the cause why UserControl_Terminate event doesn't fire after close Form frmDemo3.
The reason is that one of reference (for my case,it is an ActiveX object) isn't completely freed up as...
Click Here to Expand Forum to Full Width
Survey posted by VBForums.