Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 6, 1997

A Shortcut to Load the Last Project Into VB

Most of the time, I wish to start VB and resume the last project I was working on, but I don't like to litter my desktop with program icons for works in progress. As a solution install this program in compiled form on your desktop. You can probably adapt it to other versions of VB as well as to other programs that store this information in an INI file:
 
Option Explicit

Declare Function GetPrivateProfile_
        String Lib "kernel32" _
        Alias "GetPrivateProfileStringA" _
                (ByVal lpApplicationName As _
                String, ByVal lpKeyName As Any, _
                ByVal lpDefault As String, _
                ByVal lpReturnedString As _
                String, ByVal nSize As Long, _
                ByVal lpFileName As String) _
                As Long

Public Sub Main()
        Dim temp As String, rVal$, tmp _
                As Long
        rVal$ = String$(256, 0)
        tmp = GetPrivateProfileString_
                ("Visual Basic", _
                "vb32location", "", rVal$, _
                ByVal Len(rVal$) - 1, _
                "c:\windows\vb.ini")
        temp = Left$(rVal$, tmp)
        rVal$ = String$(256, 0)
        tmp = GetPrivateProfileString_
                ("Visual Basic", "RecentFile1", _
                        "", rVal$, ByVal Len(rVal$) _
                        - 1, "c:\windows\vb.ini")
        temp = temp & " """ & Left$(rVal$, _
                tmp) & """"
        Shell temp, 1
        End
End Sub
Andrew Ladner
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date