Total Visual SourceBook

Total Visual SourceBook CD and Printed Manual

Microsoft Access/ Office 2016, 2013, 2010, and 2007 Version
is Shipping!

New features in Total Visual SourceBook for Access, Office 2007 and VB6

Supports Access/Office 2016, 2013, 2010 and 2007, and Visual Basic 6.0!

Separate version for Access/Office 2003, 2002, and 2000.

Separate version for:
Access 97/95


View all FMS products for Microsoft AccessAll Our Microsoft Access Products

SourceBook Info:

Why SourceBook?

 

"The code is exactly how I would like to write code and the algorithms used are very efficient and well-documented."

Van T. Dinh, Microsoft MVP

 

 

 

Microsoft Access, Office/VBA, VB6 Modules royalty-free source code libraryMicrosoft Access Modules royalty-free source code libraryMicrosoft Access VBA and VB6 Module Library Free trial of Total Visual SourceBook for Microsoft Access, Office, VB6 and VBA

Module: TinyURL in Category Internet/Web : Internet/Web from Total Visual SourceBook

Use the TinyURL.com web service to convert a long Internet URL string to a short one with VBA and VB6

Procedure List

Procedure Name

Type

Description

(Declarations) Declarations Declarations and private variables for the modTinyURL module
TinyURL Procedure TinyURL.com is a URL shortening service to convert a long Internet address to a short one.

Example Code for Using Module: TinyURL

' Example of modTinyURL
'
' To use this example, create a new module and paste this code into it.
' Then run the procedure by putting the cursor in the procedure and pressing:
'    F5 to run it, or
'    F8 to step through it line-by-line (see the Debug menu for more options)

Private Sub Example_modTinyURL()
  ' Comments: Example of using the modTinyURL module to convert a long Internet URL to a short one with VBA or VB6
  '           See the results in the Immediate Window.

  Dim strURL As String
  Dim strTinyURL As String

  strURL = InputBox("Enter a URL to convert", "Example of modTinyURL", "http://www.fmsinc.com/MicrosoftAccess/SourceCodeLibrary.html")
  If strURL <> "" Then
    strTinyURL = TinyURL(strURL)

    MsgBox "The shortened URL is " & strTinyURL
  End If

End Sub

Microsoft Access Module LibraryOverview of Total Visual SourceBook

The source code in Total Visual SourceBook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Additional Resources