Search:
Type: Posts; User: VBClassic04
Search:
Search took 0.05 seconds.
-
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...
-
I use Color Cop for this
https://download.cnet.com/Color-Cop/3000-2383_4-10047009.html
-
Nice work.
For Mp3 Files, if it has and ID3V2 Tag, the first 3 chars are "ID3"
-
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...
-
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...
-
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...
-
Listview1.Columnheaders.count
Sorry, misread OP
Mods: Delete my post
-
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
-
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...
-
Or:
Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As Rect, ByVal hBrush As Long) As Long
-
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
-
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...
-
MZTools can do it with Add Error Handler
Private Sub MySub()
Dim sErrMsg As String
On Error GoTo MySub_Error
'write code here
-
The zip contains AudioGenie3.dll and Bass.dll
Needed for Player
-
Hopefully the title and the project in the attached zip says it all.
176649
-
The AudioGenie class I use has this function
Public Function ID3V2GetPictureMime(ByVal Index As Integer) As String
ID3V2GetPictureMime = StrConv(ID3V2GetPictureMimeW(Index), vbFromUnicode)...
-
Very nice.
Two issues:
'DrawTextUnicode Can't create FontFamily: [MS Sans Serif] in immediate window
pvAdjustBorderPadding not found in project
-
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...
-
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. ...
-
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...
-
Any uipdate on the disabled button issue?
-
-
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...
-
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. ...
-
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 ...
-
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 =>...
-
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.
...
-
That nailed it. Thanks Olaf
-
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...
-
UpdateBatch fixed the problem. Many Thanks.
-
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...
-
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...
-
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,...
-
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...
-
Many thanks.
I'm haven't gotten out of my dinosaur DAO ways.
Can you give the definition for the
ReadRecordsetADO routine?
-
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...
-
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
-
BTW, Edwardo's post about SelText in the RichTextBox Control fixed the undo problem
-
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,...
-
Hmm, how do you do that? The only way I know is to Unregister MZTool3.dll
|
Click Here to Expand Forum to Full Width
|