Type: Posts; User: Steve Grant

Page 1 of 12 1 2 3 4

Search: Search took 0.02 seconds.

  1. Replies

    Re: OpenCV/Emgu Wrapper for VB6

    Having taken a quick look at the size of the OpenCV download (225MB), if you want to do high quality things with images, I would look at FreeImage (6MB). It comes with a VB6 wrapper and is extremely...
  2. Re: Numeric Property returns 0 although we did not assign 0

    Well unless you have not stated your case clearly, it works for me.

    Option Explicit

    Private m_iMyNumber As Integer

    Public Property Get MyNumber() As Integer

    MyNumber = m_iMyNumber
  3. Re: Memory is full and proccesorload is increasing

    @Nicos, would you mind sharing your audio level meter?

    Thankls - Steve.
  4. Re: Combobox with visual styles / manifest seems incredibly slow

    Trying your first example 10 times averaged 0.09 secs (90ms). First of course I had to change your Dimmed L for I.

    From within IDE VB6 SP6 manifested. Run on Windows 10 1903
  5. Re: Access controls that are not in array.

    Thanks w1 me.controls("RC" & i+1).redraw works great.
  6. [RESOLVED] Access controls that are not in array.

    Hi everyone, I have 3 controls that are not in an array, they should have been but that ship has long sailed.

    I have set up the following code which works fine, but wondered if there is a more...
  7. Replies

    Re: MSMASK32.ocx Trouble

    I'm on Win10 1903 and both VB6 Pro and the Masked edit control (MSMASK32) work fine.

    MSMASK32 is in the SysWOW64 folder and would have been put there by the VB6 installation. If you have a 32bit...
  8. Re: Set items in const as one value for Select case statement. Is it possible?

    Whilst I use Select Case True sometimes, I also use the Switch function quite a lot.

    The only thing you don't get is Case Else e.g.

    Select Case True
    Case Left$(sLabel, 4) = "Left":...
  9. Re: [RESOLVED] Possible to Convert webp to png or jpg.

    Hi Baka, yes I went to the URL pointed to by LaVolpe above and downloaded the dwebp.exe. It is only 250KB and natively converts webp images to png which gdi+ can use. It's quite fast and doesn't...
  10. Getting BitDepth or BitsPerPixel from image

    Hi everyone,

    I am using the following line to get the above and it seems to work well. However it is a bit unwieldy and I am concerned that as I have created an object, should I be destroying it...
  11. Replies

    Re: Issue in Rounding Off

    This is because VB6 uses 'Bankers Rounding' which does exactly as you describe.

    Use the FormatNumber function instead i.e FormatNumber(250.50,0)=251.

    The zero after the comma tells the function...
  12. Replies

    Re: problem with Windows 10

    Hi Gordon, I was not aware of Textboxes being black but know about Option and Checkboxes being black. The cure for the latter is to not place them directly on a standard frame but in a picturebox on...
  13. Poll: Re: Do you use the VB6 IDE in MDI or SDI mode?

    +1 from me. MDI with the open maximized registry setting.
  14. Re: VB6 under Windows 10: I've lost mouse dragging outline

    MDI here. Changing to SDI caused the black selection rectangle to break up but remain partially visible when the mouse was let go. The add-in itself uses a bright red box and I have not seen this at...
  15. Re: VB6 under Windows 10: I've lost mouse dragging outline

    Hi Elroy,

    Many thanks for the edited clarification. Perhaps I didn't make it clear that Copy Module Name did NOT exist until I tried to compile 'Selected Controls'. In fact I did not know of it....
  16. Re: VB6 under Windows 10: I've lost mouse dragging outline

    Hi Elroy, here is what I have found using the above.

    Initially it wouldn't compile. The IDE said 'Compiling...' but nothing happened. I re-started VB6 (SP6) and it compiled instantly.

    Going to...
  17. Replies

    Re: Original Size

    The following function will give you the info you require.

    Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,...
  18. Re: Automatic BMP TO JPG convertor without user input

    Steve I just tested this and it seems to work really well. The 'quality' value does default to 100.

    Private Sub Form_Load()
    Dim Img As WIA.ImageFile
    Dim IP As WIA.ImageProcess

  19. Re: Automatic BMP TO JPG convertor without user input

    Hi Steve,

    Here's the code from MS;

    Dim Img 'As ImageFile
    Dim IP 'As ImageProcess

    Set Img = CreateObject("WIA.ImageFile")
    Set IP = CreateObject("WIA.ImageProcess")
  20. Re: Automatic BMP TO JPG convertor without user input

    If you are on anything after XP try this from dilettante.

  21. Replies

    Re: Avoiding Duplicates

    Use a dictionary. If Not Dic.Exists(Key) then Dic.Add Key, Item.
  22. Replies

    Re: Listview Height

    The height has been returned to you in Pixels. Multiply by Screen.TwipsperPixelY to get twips.
  23. Replies

    Re: vbRichClient cSortedDictionary

    @vbwins you have been asked nicely twice now to show some code. I wonder why you won't.

    Olaf makes it clear he received no code from you via PM. Please show some code so that you may be helped.
  24. Re: Problem with AddinInstance_OnConnection event in a VB6 Add-In

    Removed CopyModuleName.DCA from the folder and it compiled instantly!!!
  25. Replies

    Re: Copy Module Name AddIn

    Hi Elroy it seems I have both those files, but they are both 18/06/1998. I have SP6 installed so it can't be that.
  26. Replies

    Re: Copy Module Name AddIn

    Hi Elroy, unable to compile!

    Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As...
  27. Re: MouseWheel Fix not found in VB6 Add-in Manager

    John you don't need to do anything with the hook.dll. Can't you right click the exe and create a desktop shortcut. I just tried that and it works fine.

    I also quickly tried getting it to run at...
  28. Re: MouseWheel Fix not found in VB6 Add-in Manager

    Wow Olaf I had completely forgotten about Joe Bott! I just downloaded it and it does exactly what it says on the tin and works every bit as well as the VB6IDEMouseWheelFix and no messing about with...
  29. Re: MouseWheel Fix not found in VB6 Add-in Manager

    John all you need to do is click the URL i posted and the folder will download to your machine. The instructions are in the folder. I will delete it again at midday (UK),
  30. Re: MouseWheel Fix not found in VB6 Add-in Manager

    Well I am embarrassed to report that on Wednesday I was messing about and ended up running one of those free registry cleaners. It backed up the registry and appeared to do a good job until I came to...
  31. Re: MouseWheel Fix not found in VB6 Add-in Manager

    John, I have read your thread with Interest as I use the VB6IDEMouseWheelAddin.dll on Windows 10 without any issues at all.

    I think, from what I have read, that there has been some confusion over...
  32. Re: Incorrect Interpretation of file names.

    You do not need the control. The control was purely to display that the 2 functions FindfirstFileW/FindNextFileW in the form can load the filename correctly.

    So if you want to compare the Database...
  33. Re: Incorrect Interpretation of file names.

    Please try the attached it uses a Unicode aware Listbox. Just point it to the folder where your troublesome file is and let us know the results.
  34. Re: Incorrect Interpretation of file names.

    The form they attached in #1 has no ability to read the file tags. It only has ansi functions being displayed in a standard listbox.

    I've just downlloaded Jajuk and run it, it displays Unicode...
  35. Re: Incorrect Interpretation of file names.

    No I am in the UK as it says in my location. I can promise you that the ? you keep seeing are caused by Unicode characters not being;

    1) Read properly in the first place. You are using...
  36. Re: Incorrect Interpretation of file names.

    I wonder if this is as simple as not using the W version of findfirstfile.

    Public Declare Function FindFirstFileW Lib "kernel32" (ByVal lpFileName As Long, ByVal lpFindFileData As Long) As Long
  37. Re: Too many Line Continuations

    Thank you all. It is clear that I really need to get this stuff out of the program and onto disk.

    First thing in the morning I will be at it.

    Thanks again.
  38. [RESOLVED] Too many Line Continuations

    I have run into a problem with the above. To keep my code easy to manage for the future, I have tried;

    FPData = Array(0, "File Paths:", False, False, _
    1, "MusicPath: " & MusicPath,...
  39. Re: CommonControls (Replacement of the MS common controls)

    The original was a single 16 x 16 x 32 icon. Nothing else in it. Were you able to try it?
  40. Re: CommonControls (Replacement of the MS common controls)

    Your 16 x 16 icon is 32bit. On windows 10 it appears you can get away with it. On Windows 7 you must adhere to the limits imposed by VB6.

    I have attached the same image converted to 8 bit (256...
Results 1 to 40 of 467
Page 1 of 12 1 2 3 4


Click Here to Expand Forum to Full Width