dcsimg

Search:

Type: Posts; User: Steve Grant

Page 1 of 12 1 2 3 4

Search: Search took 0.75 seconds.

  1. 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":...
  2. 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...
  3. 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...
  4. Replies
    7
    Views
    193

    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...
  5. Replies
    7
    Views
    380

    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...
  6. Poll: Re: Do you use the VB6 IDE in MDI or SDI mode?

    +1 from me. MDI with the open maximized registry setting.
  7. 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...
  8. 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....
  9. 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...
  10. Replies
    3
    Views
    222

    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,...
  11. 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

    ...
  12. 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")
  13. Re: Automatic BMP TO JPG convertor without user input

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

    http://www.vbforums.com/showthread.php?683392-RESOLVED-bmp-to-jpg-conversion
  14. Replies
    15
    Views
    534

    Re: Avoiding Duplicates

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

    Re: Listview Height

    The height has been returned to you in Pixels. Multiply by Screen.TwipsperPixelY to get twips.
  16. Replies
    8
    Views
    552

    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.
  17. Re: Problem with AddinInstance_OnConnection event in a VB6 Add-In

    Removed CopyModuleName.DCA from the folder and it compiled instantly!!!
  18. Replies
    4
    Views
    432

    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.
  19. Replies
    4
    Views
    432

    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...
  20. 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...
  21. 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...
  22. 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),
  23. 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...
  24. 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...
  25. 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...
  26. 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.
  27. 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...
  28. 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...
  29. 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
  30. 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.
  31. [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,...
  32. 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?
  33. 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...
  34. Replies
    9
    Views
    474

    Re: VB Satoshi convert help

    Hi Peter, how right you are. Many thanks.
  35. Replies
    9
    Views
    474

    Re: VB Satoshi convert help

    @Peter, actually no it doesn't. Try this;


    Private Sub Form_Load()
    Dim N As Double
    N = 6.78845934253293E-05
    'N = Format(N, "0.00000000")
    N = CDec(N)
    MsgBox N
    End Sub
  36. Replies
    9
    Views
    474

    Re: VB Satoshi convert help

    @Peter, actually no it doesn't. Try this;

    Private Sub Form_Load()
    Dim N As Double
    N = 6.78845934253293E-05
    'N = Format(N, "0.00000000")
    N = CDec(N)
    MsgBox N
    End Sub
  37. Replies
    9
    Views
    474

    Re: VB Satoshi convert help

    Double Post!
  38. Replies
    9
    Views
    474

    Re: VB Satoshi convert help

    Funny I thought this was the VB6 and earlier forum.


    Option Explicit

    Private Sub Form_Load()
    Dim N As Double
    N = 6.78845934253293E-05
    N = Format(N, "0.00000000")
    MsgBox N
  39. Re: [RESOLVED] Possible to Convert webp to png or jpg.

    Many thanks to all.
  40. [RESOLVED] Possible to Convert webp to png or jpg.

    My VB6 app downloads images for the coverart in my music program. I use GDI+ for this. Sometimes it downloads a webp file and I can't use it. Can I convert webp to either bmp, jpg, png or gif?
    ...
Results 1 to 40 of 460
Page 1 of 12 1 2 3 4



Featured


Click Here to Expand Forum to Full Width