Search Results - VBForums

Search:

Type: Posts; User: Jonney

Page 1 of 13 1 2 3 4

Search: Search took 0.04 seconds.

  1. Replies
    69
    Views
    1,008

    Re: High-DPI UserControl.Move method

    Dim hDC As Long:hDC = GetDC(0)
    Debug.Print GetDeviceCaps(hDC,88)
    Debug.Print ScreenWidth,ScreenHeight,ScreenDPI(True),ScreenDPI(False)
    Debug.Print 1440!/ScreenDPI(True)


    On Win10:
    100%:
  2. Replies
    69
    Views
    1,008

    Re: High-DPI UserControl.Move method

    On Win10,there's no such LogPixels item.
    On Win10, there's no option "Use XP Style DPI Scaling" switch. It is always on(?).
  3. Replies
    69
    Views
    1,008

    Re: High-DPI UserControl.Move method

    @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.
  4. Replies
    61
    Views
    9,172

    Re: Report : VB6 IDE and compiler on Win 10 TP

    OK. Noted.
    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...
  5. Replies
    69
    Views
    1,008

    Re: High-DPI UserControl.Move method

    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")
    DPI...
  6. Replies
    16
    Views
    469

    Re: [RESOLVED] VB6 on Win10

    Win10,32 bits:
    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...
  7. Replies
    61
    Views
    9,172

    Re: Report : VB6 IDE and compiler on Win 10 TP

    Does the switch work for compiled ActiveX (ocx)?
  8. Replies
    16
    Views
    469

    Re: VB6 on Win10

    my desktop is 64bits CPU of course, but OS (installation disk)is 32bits.
  9. Replies
    16
    Views
    469

    Re: VB6 on Win10

    Does VMWare 9.x support virtual Win10 64 bits?
  10. Replies
    16
    Views
    469

    Re: VB6 on Win10

    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....
  11. Replies
    69
    Views
    1,008

    Re: High-DPI UserControl.Move method

    there're two little Loopholes in your demo:
    1. In Private Sub Form_Resize()
    '...
    Text1.ZOrder 0
    With UC1
    .Move .left, .top, ScaleWidth - .left, ScaleHeight '// what is it?
    End With...
  12. Re: [RESOLVED] SP6 - Windows 10 - Fails to Install

    Can you make a summary of Steps?
    Don't know what is your Windows bits,either 32 bits or 64 bits?
  13. Replies
    16
    Views
    469

    Re: VB6 on Win10

    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...
  14. Replies
    16
    Views
    469

    Re: VB6 on Win10

    VMware-workstation 11.1.0 required 64bit win7 or newer Operation Systems.
  15. Replies
    16
    Views
    469

    Re: VB6 on Win10

    We are just a leaf...

    Well,we have to adapt to the changes.


    All my installation disc are 32bits, VMare V11 not support.
  16. Replies
    16
    Views
    469

    [RESOLVED] VB6 on Win10

    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...
  17. Thread: Setting Focus

    by Jonney
    Replies
    15
    Views
    359

    Re: Setting Focus

    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
    'Text1.SetFocus...
  18. Re: Fill MS Word Plain Text Content Control using VB6 with MS Access Tables

    This is what you are looking for.
  19. Replies
    12
    Views
    212

    Re: Find TreeView Node

    if you understand German, you can refer to tvwfind.zip.
  20. Replies
    12
    Views
    212

    Re: Find TreeView Node

    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...
  21. Re: Auto Scrolling ListView - There must be a better way

    @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...
  22. Replies
    4
    Views
    247

    Re: VB6 migration tools

    though I never used, but look like this tool is good. The coder made very deep research.
  23. Replies
    8
    Views
    366

    Re: Distance From Form Top To ListItem Top

    >10K posts! amazing though.
    You wording could,especially I highlighted, probably already hurt your helpers' heart. Please be careful when we are comprising words.
  24. Re: How enable/disable Aero composition in Windows 7 programatically?

    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.
  25. Re: SaveDC,RestoreDC and SetBoundsRect

    OK. We probably never used such APIs. But at least, we know better. Thanks.
  26. Re: SaveDC,RestoreDC and SetBoundsRect

    Private Sub Form_Load()

    Dim rc As RECT
    Picture1.AutoRedraw = True
    Picture1.Cls

    Dim tLB As LOGBRUSH
    Dim lhRedPen As Long, lhBluePenOld As Long

    Picture1.ForeColor = vbBlue
  27. Re: SaveDC,RestoreDC and SetBoundsRect

    Pen Testing:




    Option Explicit

    Private Type RECT
    left As Long
    top As Long
  28. Re: SaveDC,RestoreDC and SetBoundsRect

    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.

    At...
  29. Re: [vb6] PropertyBag, Persisting, Cloning for UserControls

    Can you show the principle code? I am blur how does Undo work.:rolleyes:
  30. Re: SaveDC,RestoreDC and SetBoundsRect

    StateID = SaveDC(myDC)

    hPenNew = CreatePen(...)
    hFontNew = CreateFont(...)

    SelectObject myDC, hPenNew
    SelectObject myDC, hFontNew

    ... do drawing stuff
  31. Re: [vb6] PropertyBag, Persisting, Cloning for UserControls

    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 ...
  32. Replies
    14
    Views
    317

    Re: Problem with InitProperties event

    ... you can always refer to Lavolpe's LaVolpe Custom Button Template [20 Feb 09] which set standard of coding.
  33. Re: SaveDC,RestoreDC and SetBoundsRect

    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+...
  34. [RESOLVED] SaveDC,RestoreDC and SetBoundsRect

    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...
  35. Re: CommonControls (Replacement of the MS common controls)

    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...
  36. Re: CommonControls (Replacement of the MS common controls)

    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.
  37. Re: CommonControls (Replacement of the MS common controls)

    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
    ...
  38. Re: CommonControls (Replacement of the MS common controls)

    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...
  39. Re: [RESOLVED] Bubblesort and array but keep original index

    Good point!
  40. Re: UserControl_Terminate event not firing

    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...
Results 1 to 40 of 500
Page 1 of 13 1 2 3 4



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.