Search Results - VBForums

Search:

Type: Posts; User: Jonney

Page 1 of 13 1 2 3 4

Search: Search took 0.04 seconds.

  1. Re: [RESOLVED] How-to read unicode characters from windows clipboard

    Public Function SetBinaryData( _
    ByVal lFormatId As Long, _
    ByRef bData() As Byte _
    ) As Boolean
    ' Puts the binary data contained in bData() onto the clipboard under
    ' format...
  2. Re: [RESOLVED] How-to read unicode characters from windows clipboard

    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
  3. Re: [RESOLVED] How-to read unicode characters from windows clipboard

    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?


    Randomize
    Call Sleep(Rnd() * 500)...
  4. Re: [RESOLVED] How-to read unicode characters from windows clipboard

    VBAccelerator has a good Clipboard class.
    @Bonnie West :Use ChrW$ for Unicode

    TextBoxW1.SelText = (sChar & " ") & _
    (ChrW$(Asc(sChar)) & _
    ...
  5. Re: Alternative to Package and Deployment Wizard?

    Mark this thread
  6. Replies
    19
    Views
    392

    Re: [RESOLVED] Variable type?

    @dilettante
    very neat code! thanks.
  7. Re: [vb6]Alpha Image Control v2 - Final Update (15 Jan 2012)

    :wave::wave::wave:Does who know the status of Lavolpe? He was offline since 5 march 2016.
  8. Re: [VB6] - Multithreading in VB6 part 4 - multithreading in Standart EXE.

    I am not a fan of MT.
    I download the file and remove the exe and attach the Zip file.
  9. Replies
    6
    Views
    210

    Re: Explorer Copy To and Move To menu options

    Or you can give contract to fafalone who has such knowledge.
  10. Replies
    6
    Views
    785

    Re: [VB6] GetAdaptersInfo Example

    Mid$(HexBytes, 2 + I * 3, 1) = Mid$(HEX_CHARS, 1 + (Bytes(I) And &HF), 1)
  11. Replies
    69
    Views
    1,453

    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%:
  12. Replies
    69
    Views
    1,453

    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(?).
  13. Replies
    69
    Views
    1,453

    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.
  14. Replies
    61
    Views
    11,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...
  15. Replies
    69
    Views
    1,453

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

    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...
  17. Replies
    61
    Views
    11,172

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

    Does the switch work for compiled ActiveX (ocx)?
  18. Replies
    16
    Views
    732

    Re: VB6 on Win10

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

    Re: VB6 on Win10

    Does VMWare 9.x support virtual Win10 64 bits?
  20. Replies
    16
    Views
    732

    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....
  21. Replies
    69
    Views
    1,453

    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...
  22. 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?
  23. Replies
    16
    Views
    732

    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...
  24. Replies
    16
    Views
    732

    Re: VB6 on Win10

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

    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.
  26. Replies
    16
    Views
    732

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

    by Jonney
    Replies
    15
    Views
    502

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

    This is what you are looking for.
  29. Replies
    12
    Views
    365

    Re: Find TreeView Node

    if you understand German, you can refer to tvwfind.zip.
  30. Replies
    12
    Views
    365

    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...
  31. 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...
  32. Replies
    4
    Views
    304

    Re: VB6 migration tools

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

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

    OK. We probably never used such APIs. But at least, we know better. Thanks.
  36. 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
  37. Re: SaveDC,RestoreDC and SetBoundsRect

    Pen Testing:




    Option Explicit

    Private Type RECT
    left As Long
    top As Long
  38. 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...
  39. Re: [vb6] PropertyBag, Persisting, Cloning for UserControls

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

    StateID = SaveDC(myDC)

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

    SelectObject myDC, hPenNew
    SelectObject myDC, hFontNew

    ... do drawing stuff
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.