dcsimg

Search:

Type: Posts; User: dseaman

Search: Search took 0.02 seconds.

  1. Re: CommonControls (Replacement of the MS common controls)

    Several years ago I used an embedded Vb6.exe Manifest until I managed to corrupt Vb6 after a fresh install of Windows.
    Since then I always use an external Manifest "Vb6.exe.manifest".
    I did have to...
  2. Re: CommonControls (Replacement of the MS common controls)

    If you sort your controls alphanumeric in the Vbp file they will appear sorted in the ToolBox.
    Actually, I usually sort the entire block containing Modules/Classes/Controls/PropertyPages to make the...
  3. Re: CommonControls (Replacement of the MS common controls)

    How about updating Horizontal Scrollbar via MouseWheel when Kybd Shift is pressed.
    That is how it works on Web Scrollbars.

    See ucScrollbar control where Kybd Shift has been implemented for...
  4. Re: is the count of day are out the current month?

    Try this.


    Option Explicit

    Private Sub Form_Load()
    Dim i As Long
    Dim dat As Date
    dat = DateSerial(2020, 2, 25)
    For i = 3 To 6
  5. Bug. InkEdit DragDrop always performs a move, even if Ctrl is pressed

    Bug in InkEdit DragDrop. Irregardless if Ctrl is pressed during DragDrop, the InkEdit always does a Move and deletes the InkEdit Text.

    You can fix this error with following code in OLEDragDrop.
    ...
  6. Re: OLEStarDrag Data.SetData converts 0-base Byte Array to a 1-base Byte Array

    &HFFFFBF23 works same as &HFFFFBF10, converting to base-1.



    That works great. Thanks for this. Better than looping thru array to create 0-base.
  7. Re: OLEStarDrag Data.SetData converts 0-base Byte Array to a 1-base Byte Array

    I found it. SteveMac, 2003, vbAccelerator.com, 3:01am in vbalListViewCtl.


    Private Sub UserControl_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    '
    If Not (m_hImlDrag = 0) Then...
  8. Re: OLEStarDrag Data.SetData converts 0-base Byte Array to a 1-base Byte Array

    I got format &HFFFFBF10 years ago when fiddling with Unicode but I no longer remember where it came from.
    A search on the web turns up nothing for &HFFFFBF10
    It works fine other than translating...
  9. OLEStarDrag Data.SetData converts 0-base Byte Array to a 1-base Byte Array

    In OLEStartDrag I'm using Data.SetData b, &HFFFFBF10 where b is a 0-base Byte Array.
    Unfortunately it gets converted to a 1-base array.
    That means on the receiving end I need to translate the...
  10. Re: CommonControls (Replacement of the MS common controls)

    Duplicate post.
  11. Re: CommonControls (Replacement of the MS common controls)

    My bad. It was not Automatic. I can set Caption via Private Sub LabelW1_OLEDragDrop Event.
  12. Re: CommonControls (Replacement of the MS common controls)

    Now that LabelW is Windowless, does it no longer support OLEDragDrop?
  13. Replies
    7
    Views
    914

    Re: Universal FileRead function

    Thanks for pointing this out. I think it was working OK in earlier versions and then I broke it.
    HasBytes now returns True for single element.
    All size checking should be done in GetEncoding to...
  14. Replies
    5
    Views
    317

    Re: Reading from File

    See File Reader (Unicode aware).
    Reads file into byte array and automatically detects ANSI, UTF8, UTF8(No BOM), UTF16LE, UTF16BE.
    ...
  15. Replies
    0
    Views
    408

    ucToolBarLite (Unicode aware)

    ucToolBarLite Features:
    1. Unicode Button Captions in IDE via PropertyPage.
    2. Button images in IDE via PropertyPage.
    3, Unicode Tooltip for each Button.
    4. Background Picture.
    5. No...
  16. Replies
    0
    Views
    331

    Clipboard Viewer (Unicode aware)

    Features:
    1. Enumerates Clipboard formats.
    2. Displays 58 Clipboard formats in InkEdit.
    3. ANSI and Unicode Hex Viewers.
    4. Shows Images (CF_HDROP).

    Credits:

    1. cSubClass.cls by The Trick...
  17. Replies
    7
    Views
    914

    Re: Universal FileRead function

    Apparently CP_UTF32 does not work with API WideCharToMultiByte.

    BTW, http://cknotes.com/chilkat-charsets-character-encodings-supported/ has following constants but still does not work with API...
  18. Replies
    7
    Views
    914

    Re: Universal FileRead function

    WideCharToMultiByte lngOutLen returns 0 when using codepage 12000 (UTF32LE).
    Do you have a working version of Function ToUTF32 using codepage 12000?

    Here is a quote from...
  19. Replies
    7
    Views
    914

    Universal FileRead function

    Universal Unicode Aware FileRead function that automatically detects ANSI, UTF8, UTF8(No BOM), UTF16LE, UTF16BE.

    Includes Error handling routine that:
    1, Outputs to Debug Window.
    2. Outputs to...
  20. Replies
    23
    Views
    1,351

    Re: Open binary file suddenly fails

    Try this (from Olaf Schmidts cGDIPkusCaxhe). It is Unicode aware:


    Option Explicit

    Public Function ReadBytesFromFile(Filename) As Byte()
    On Error GoTo ErrHandler
    With...
  21. Re: [VB6] Smooth Scrollbar Control

    How about MouseWheel support for Horizontal Scroillbar when Kybd Shift is down.
  22. Replies
    34
    Views
    1,411

    Re: Mouse scrolling on Windows 10

    I use VbScroll from http://www.gasanov.net/VBScroll.asp for many years and it has worked on all OS (XP or later)
    You can start it before or after Vb6 is loaded.
    BTW - I always run Vb6 as Admin.
  23. Replies
    8
    Views
    458

    Re: Option Explicit Ignored

    Have you installed SP6?

    171605
  24. Re: Is DST Flag from the Windows OS available via API?

    Option Explicit

    Private Type TIME_ZONE_INFORMATION
    Bias As Long
    StandardName(0 To 31) As Integer
    StandardDate(0 To 7) As Integer
    StandardBias As Long
    ...
  25. Replies
    16
    Views
    880

    Re: Question about RightToLeft

    Maybe this link will shed some light on RightToLeft:
    http://www.cyberactivex.com/UnicodeTutorialVb.htm#RTL
  26. Replies
    16
    Views
    880

    Re: Question about RightToLeft

    Best way to handle this is to use API DrawTextW.
    You supply hDc, rectangle, caption, and Flags.
    For LTR use DT_LEFT (0).
    For RTL use DT_RIGHT Or DT_RTLREADING.
  27. Replies
    16
    Views
    880

    Re: Question about RightToLeft

    You might want to consider using Unicode controls.
    1. No need to change OS language settings.
    2. RightToLeft works independent of language.
    3. No need to fiddle with Fonts (Charset) since internal...
  28. Replies
    16
    Views
    880

    Re: Question about RightToLeft

    In most cases you do not need to set the system language to Arabic or Hebrew.
    Just set "Language for non-Unicode programs".

    On Windows 10:
    1. In settings go to "Time and Language" and click on...
  29. Replies
    16
    Views
    898

    Re: ASCII, ANSI, code-pages, Unicode

    Code Page ONLY applies to ANSI TextBoxes. As pointed out by qvb6, UTF-16 characters between &h80 and &hFF are cast in stone. For example, if you were to add ChrW(&HE4) to a Unicode TextBox then you...
  30. Replies
    16
    Views
    898

    Re: ASCII, ANSI, code-pages, Unicode

    For Unicode TextBox you do not need to specify a Unicode Font that contains all the glyhys that you a trying to display.
    Font Linking...
  31. Replies
    48
    Views
    3,194

    Re: [RESOLVED] Rotate Label by 90 Degrees

    UserControl.TextWidth and UserControl.TextHeight will return incorrect results when string has Unicode content.

    Try this:


    Private Type SizeAPI
    cx As Long
    cy ...
  32. Re: Creating something like Windows Explorer on a form

    External manifest working here on Windows 10 1803 17134.523.
    The trick is to add registry key:
    Key: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\SideBySide
    Value:...
  33. Replies
    81
    Views
    6,072

    Re: How much do you trust the Collection class?

    On my machine (Win10 Pro x64) the demo fails in IDE at 4217.
    Don't know if this helps but Hex D8BA is not valid Unicode.

    4217 Attempt to access: 1192 BB0B 80D9 D8BA 0534 5374 -...
Results 1 to 33 of 33



Featured


Click Here to Expand Forum to Full Width