VB.Classic

Using The Microsoft InteropForms Toolkit v2.0 To Display .NET Forms In A VB6 Application Article Published

Shandy — Tue, 11 Dec 2007 14:57:00 GMT

I have recently been looking into utilising VB.NET forms from a VB6 application and found that there seemed no one place on the internet where I could find all the relevent information I required to get it working. I have therefore created my own article on the subject.

Removing Duplicate Words From A String

Shandy — Wed, 20 Jul 2005 20:19:00 GMT

This post at vbCity piqued my interest today. I got a bit carried away with providing a solution. In retrospect I think that the use of a simple left$ statement would have solved the member's problem. Anyhow the idea of removing duplicate words from a string appealed to me and after re-working my rather bloated code I came up with the following solution:

Private Function RemoveDuplicateWords(ByVal strVvText As String _
                                     , ByVal strVvDelimiter As String _
                                     ) As String
    Dim intLvPreviousIndex As Integer: intLvPreviousIndex = 1
    Dim intLvIndex As Integer: intLvIndex = InStr(strVvText, strVvDelimiter) + 1
    Dim strLvTextSuffix As String: strLvTextSuffix = ""
    '   Need to delimiter to end of string if it is not already there
    strLvTextSuffix = IIf(Right$(strVvText, Len(strVvDelimiter)) = strVvDelimiter _
                        , "" _
                        , strVvDelimiter _
                        )
    strVvText = strVvText & strLvTextSuffix
    Do While intLvIndex > intLvPreviousIndex
        strVvText = Left$(strVvText, intLvIndex - 1) _
                  & Replace$(Mid$(strVvText, intLvIndex) _
                            , Mid$(strVvText _
                                  , intLvPreviousIndex _
                                  , intLvIndex - intLvPreviousIndex _
                                  ) _
                            , "" _
                            )
        '   Start of previous word
        intLvPreviousIndex = intLvIndex
        '   Start of next word
        intLvIndex = InStr(intLvIndex, strVvText, strVvDelimiter) + 1
    Loop
    '   Need to remove delimiter at end of string unless added at beginning of method
    strVvText = IIf(Right$(strVvText, Len(strLvTextSuffix)) = strLvTextSuffix _
                   , Left$(strVvText, Len(strVvText) - Len(strLvTextSuffix)) _
                   , strVvText _
                   )
    RemoveDuplicateWords = strVvText
End Function

I am sure there must be a better solution to the problem. Any takers?

Note that my solution only caters for a single word separator. Full stops, commas etc. could not be catered for without multiple calls to the function. Also the the first occurance is always the one left behind.

Combine - A Complement Function To Split

Shandy — Wed, 20 Jul 2005 20:00:00 GMT

A piece of code I came up with whilst trying to solve a post at vbCity was what I term Combine. It basically does the opposite of Split and creates a string out of a single dimensional array.

Private Function Combine(ByVal oVvArray As Variant _
                        , ByVal strVvDelimiter As String _
                        ) As String
    Dim intLvIndex As Integer
    For intLvIndex = LBound(oVvArray) To UBound(oVvArray)
        Combine = Combine & CStr(oVvArray(intLvIndex)) & strVvDelimiter
    Next
    Combine = IIf(Right$(Combine, Len(strVvDelimiter)) = strVvDelimiter _
                 , Left$(Combine, Len(Combine) - Len(strVvDelimiter)) _
                 , Combine _
                 )
    
End Function

Updating File Creation/Last Modified/Last Access Dates Using VB.Classic

Shandy — Tue, 19 Jul 2005 22:02:00 GMT

I released my first ever code to the vbCity Code Bank - VB.Classic this week; Update File Creation/Last Modified/Last Accessed Dates. I created this code to solve a small problem I was having at work where I was losing file creation and last modified dates on files. Basically I needed the user's creation and last modified file dates to be used, even if I modified or even re-created some files afterwards. The code I wrote worked quite nicely in that it allowed me to update a file creation or last modified date (which is not available intrinisically within VB.Classic - API calls are used) and so I thought I'd finally release some of my work to the unsuspecting vbCity members ;-)

Converting VB.Classic Code Into HTML Code

Shandy — Tue, 19 Jul 2005 21:46:00 GMT

I am in the process of writing a VB.Classic application that will convert VB Code into HTML code so that it is nicely formatted. E.g.

Private Function FindNumberOfUniqueCharactersInString(ByVal strVvText As String _
                                                     , ByVal blnVvCaseSensitive As Boolean _
                                                     ) As Integer
    Dim intLvIndex As Integer
    Dim intLvCount As Integer: intLvCount = 1
    strVvText = IIf(blnVvCaseSensitive, strVvText, UCase$(strVvText))
    For intLvIndex = 2 To Len(strVvText)
        If InStr(Left(strVvText, intLvIndex - 1) _
                , Mid(strVvText, intLvIndex, 1) _
                ) = 0 Then
            intLvCount = intLvCount + 1
        End If
    Next
    FindNumberOfUniqueCharactersInString = intLvCount
End Function

becomes

Private Function FindNumberOfUniqueCharactersInString(ByVal strVvText As String _
                                                     , ByVal blnVvCaseSensitive As Boolean _
                                                     ) As Integer
    Dim intLvIndex As Integer
    Dim intLvCount As Integer: intLvCount = 1
    strVvText = IIf(blnVvCaseSensitive, strVvText, UCase$(strVvText))
    For intLvIndex = 2 To Len(strVvText)
        If InStr(Left(strVvText, intLvIndex - 1) _
                , Mid(strVvText, intLvIndex, 1) _
                ) = 0 Then
            intLvCount = intLvCount + 1
        End If
    Next
    FindNumberOfUniqueCharactersInString = intLvCount
End Function

When I have completed the application I will post it at vbCity. As you can see from the above code (created using my application) the basics are working. I just need to allow the application to know about more reserved words, perform more testing, and correct any bugs the testing shows up and then it will be ready.

Counting Unique Characters in a String

Shandy — Fri, 15 Jul 2005 14:45:00 GMT

I noticed this post at vbCity and after looking at the code wondered if I could come up with a more compact solution and I think I have.

There are possibly even more compact and elegant solutions to this interesting little issue but I quite like my solution :)

bsGradient ActiveX Control

Shandy — Tue, 21 Jun 2005 14:41:00 GMT

I thought I'd mention a nice little control I've been using in VB.Classic. It is a label that can handle vertical text. The control is called bsGradient and comes complete with source code.

I use it to re-produce a garment label on screen as part of our factory despatch scanning application. See the following image for an example of how I use the control, which is highlighted in red.

VB.Classic Once Again Graces My Personal Computer

Shandy — Sun, 12 Jun 2005 19:57:00 GMT

I am slowly getting my tablet PC up to speed with installations. I managed to get VB.Classic installed today along with Source Safe. That should help me get some more questions answered at vbCity. Having only just got back into VB.Classic after 18 months I was finding answering posts without VB.Classic installed on my computer was getting more and more difficult. Getting back into VB.Classic at work has inspired me to install it onto my personal tablet PC. Maybe I'll even dabble at writing a few applications in it again ;-)

I even went as far as installing SP6 for VB.Classic for the first time. (We still use SP5 at work).

CodeSMART 2005 for VB6 FixPack 4 Is Now Available

Shandy — Sun, 12 Jun 2005 16:34:00 GMT

Axtools have announced CodeSMART 2005 for VB6 FixPack 4. I have been using Codesmart 2005 for VB6 for a couple of months now after Axtools made it available for MVPs (although I had been using the 2001 version since winning that as a prize for being HOTM at vbCity).

I can throughly recommend CodeSMART 2005 as it is packed with useful features to make VB.Classic development much easier. Hopefully, I'll get around to writing a review some day soon.