Search:

Type: Posts; User: VBClassic04

Page 1 of 2 1 2

Search: Search took 0.02 seconds.

  1. Replies
    2
    Views
    288

    Re: DELETE space in string

    Option Explicit

    Private Sub Form_Load()
    Dim s As String
    s = Shrink("abc def ghi")
    Debug.Print s
    End Sub

    Public Function Shrink(ByVal Buff As String, Optional ByVal Char As...
  2. Replies
    7
    Views
    841

    Re: VB6 Dropper

    I use Color Cop for this

    https://download.cnet.com/Color-Cop/3000-2383_4-10047009.html
  3. Replies
    3
    Views
    1,878

    Re: Get Audio Type: Get Image Type

    Nice work.
    For Mp3 Files, if it has and ID3V2 Tag, the first 3 chars are "ID3"
  4. Replies
    4
    Views
    1,400

    Re: Listview SetRedraw

    Tnanks again Elroy. Studying your code.
    I've finally given up on the code in my original post.
    The class "ListView20WndClass" is still a vb listview
    just like Thunder Controls, So it can never...
  5. Replies
    4
    Views
    1,400

    Re: Listview SetRedraw

    Thanks Elroy, i'm just trying to speed up Listview loading.
    I have used LockWindowUpdate and it seems to work, but MS says not
    to use it, but rather use WM_SetRedraw.

    I know there are other...
  6. Replies
    4
    Views
    1,400

    [RESOLVED] Listview SetRedraw

    Thru testing I have found that VB's Listviews do not respond to
    to WM_SetRedraw. So I have been trying to get this code to work.
    As noted the FindWindowEx call always returns zero.
    Just hoping...
  7. Re: Please how to know the number of items in a listview column?

    Listview1.Columnheaders.count

    Sorry, misread OP

    Mods: Delete my post
  8. Replies
    6
    Views
    2,205

    Re: Find In Files

    Leo, I assume you are referring to EFIStrArrWC in mod mTools
    I tend to avoid doevents, instead, I used lstFiles.Refresh

    You can set your desired font name, size in cSci.InitSci
  9. Replies
    6
    Views
    2,205

    Find In Files

    Like many programmers, I have a large collection of source code. I wrote this to ease
    searching for text in vb files.

    The file display uses Scintilla, so if you don't have SciLexer.dll here is...
  10. Re: How to Get Hdc From Picture1.Hwnd,How to Do Picture1.Cls by Api

    Or:


    Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As Rect, ByVal hBrush As Long) As Long
  11. Re: [RESOLVED] keypress for function keys??? help??

    Private Sub Form_Load()
    Me.KeyPreview = True
    End Sub
  12. Re: [Add-In] IDE Code-Pane Tabs for MDI/SDI (No sub-classing/hooking)

    Love it. Thanks for sharing.

    One thing: Doesn't seem to remember the Form(Design) tabs when reloading.
    May be intentional and not really a biggee since just dblclicking the form adds it to the...
  13. Re: Obtain function or sub name within the code

    MZTools can do it with Add Error Handler


    Private Sub MySub()

    Dim sErrMsg As String
    On Error GoTo MySub_Error
    'write code here
  14. Replies
    0
    Views
    3,590

    PlayLib Compoinents

    The zip contains AudioGenie3.dll and Bass.dll
    Needed for Player
  15. Replies
    4
    Views
    2,655

    Replace PopupMenu And Toolbar DropDown

    Hopefully the title and the project in the attached zip says it all.






    176649
  16. Replies
    15
    Views
    1,878

    Re: Windows Imaging Component

    The AudioGenie class I use has this function


    Public Function ID3V2GetPictureMime(ByVal Index As Integer) As String
    ID3V2GetPictureMime = StrConv(ID3V2GetPictureMimeW(Index), vbFromUnicode)...
  17. Re: VB6 - sButton Multipurpose Control

    Very nice.
    Two issues:
    'DrawTextUnicode Can't create FontFamily: [MS Sans Serif] in immediate window

    pvAdjustBorderPadding not found in project
  18. Re: Common Controls Replacement Individual Controls

    Elroy, yerever: thanks for your comments.

    Should note that the message 'Unable to set the version compatible...'
    may pop up when loading the vbp's. This can be ignored.

    Also, it may be...
  19. Common Controls Replacement Individual Controls

    Big fan of Krool's CCR works. My only objection is having
    32 controls in the toolbox.

    So I went to work compiling all 32 controls. Then I tested
    the ocxes in a Standard Exe, with no problems. ...
  20. Re: CommonControls (Replacement of the MS common controls)

    Regarding disabled bitmap button, what about GreyScale?
    Don't know much about it, but this renders
    a fairly close approximation of a disabled picture.
    Using the same Options.bmp as in my download...
  21. Re: CommonControls (Replacement of the MS common controls)

    Any uipdate on the disabled button issue?
  22. Re: CommonControls (Replacement of the MS common controls)

    See attached zip
  23. Re: CommonControls (Replacement of the MS common controls)

    Question about disabled CCR Button (Style 1-Graphic) Bitmap Picture
    It seems to work well for Icons but not for bitmaps.
    The first two pics in the attached shows a regular VB Button...
  24. Replies
    2
    Views
    456

    Possible Bug ImageCombo

    Start a new std exe project
    add ref to common controls v6
    add a usercontrol and place an ImageCombo on the UC
    Now place a couple of instances of the UC on the form

    Try clicking on the UC's. ...
  25. Replies
    4
    Views
    854

    Re: CHM help file open specified topic

    See if this is of any help:



    Private Const HH_KEYWORD_LOOKUP As Long = &HD ' WinHelp equivalent

    Private Type HH_AKLINK
    cbStruct As Long
    fReserved As Boolean
    pszKeywords ...
  26. Re: [VB6] - Usercontrol PropertySheet Enumeration Enhancement

    Keith - brilliant as always.
    The Filename property doesn't seem to stick
    i. e. Selected a filename and the property still
    indicates (No Filename Selected) plus
    Debug.Print ucEnum1.FileName =>...
  27. Replies
    4
    Views
    791

    IDE Color Pick Sticks

    Recently, the IDE Color Pick has started sticking. It Selects the
    proper color both system and palette but doesn't close after
    the selection. The only way to make it go away is to
    restart VB.
    ...
  28. Re: [RESOLVED] ADO Insufficient key column information for updating or refreshing

    That nailed it. Thanks Olaf
  29. Re: [RESOLVED] ADO Insufficient key column information for updating or refreshing

    Have done the replacements and all is good.

    Having marked it resolved, hate to ask but how do you handle a search query like this

    Select Name, Category, Index From Code Where Text Like...
  30. Re: ADO Insufficient key column information for updating or refreshing

    UpdateBatch fixed the problem. Many Thanks.
  31. Re: ADO Insufficient key column information for updating or refreshing

    Olaf, thanks for your help. Here is the revised UpdateDB routine.
    No errors, but no change to the database either.
    Something wrong with the '************ lines?



    Private Sub UpdateDB()
    Dim...
  32. [RESOLVED] ADO Insufficient key column information for updating or refreshing

    Relative Newbie to ADO. DB Table named Code With Fields Text, Category, Name
    Also an AutoNumber Field named Index, which is Primary.

    Previously I used the following to get a recordset and never...
  33. Replies
    14
    Views
    2,160

    Re: Moving a Control on the Form

    Needs a little subclassing to trap WM_ExitSizeMove
    Form with button, Command1



    Option Explicit
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long,...
  34. Re: Class ADOFastRecord to mimic ADODB Recordset faster

    Many thanks - got it working.
    I have a db table with about 10,000 music files, with 15 fields.
    I've been using the GetRows function to speed up loading a Listview.
    This will, I think, speed it up...
  35. Re: Class ADOFastRecord to mimic ADODB Recordset faster

    Many thanks.
    I'm haven't gotten out of my dinosaur DAO ways.
    Can you give the definition for the
    ReadRecordsetADO routine?
  36. Re: Class ADOFastRecord to mimic ADODB Recordset faster

    Thanks for sharing.
    The download actually loads in vb6 as a module. Since it has Class_initialize & terminate, it appears to be class code.
    I copied all the code into a new class module.

    Got an...
  37. Replies
    25
    Views
    2,937

    Re: generate random number in two interval

    This prefills the arrays as show below. You may want to initialize the
    arrays with your own numbers



    Option Explicit

    Private Sub Form_Load()
    Dim i As Long
    Dim Arr1(1 To 20) As Long
  38. Re: CommonControls (Replacement of the MS common controls)

    BTW, Edwardo's post about SelText in the RichTextBox Control fixed the undo problem
  39. Re: CommonControls (Replacement of the MS common controls)

    A suggested correction to the Find method of the RichTextBox Control.
    This allows searching in the Up direction.



    Public Function Find(ByVal Text As String, Optional ByVal Min As Long,...
  40. Thread: MZTools

    by VBClassic04
    Replies
    4
    Views
    1,931

    Re: MZTools

    Hmm, how do you do that? The only way I know is to Unregister MZTool3.dll
Results 1 to 40 of 66
Page 1 of 2 1 2



Click Here to Expand Forum to Full Width