Tip Of the Day

Tip Of the Day

This code will show you how to make "Tip of the day" form. You will need to make he tips in Text Form (.txt) in NotePad, nad name it TIPOFDAY.TXT.
Make a command button named cmdNextTip, picture box named Picture1, lable box named lblTipText, and a checkbox name chkLoadTipsAtStartup_Click.

Option Explicit


Const TIP_FILE = ""

Dim CurrentTip As Long


Private Sub DoNextTip()

   ' Select a tip at random.
   CurrentTip = Int((Tips.Count * Rnd) + 1)
   
   ' Or, you could cycle through the Tips in order

'    CurrentTip = CurrentTip + 1
'    If Tips.Count < CurrentTip Then
'        CurrentTip = 1
'    End If
   
   ' Show it.
   frmTip.DisplayCurrentTip
   
End Sub

Function LoadTips(sFile As String) As Boolean
   Dim NextTip As String   ' Each tip read in from file.
   Dim InFile As Integer   ' Descriptor for file.
   
   ' Obtain the next free file descriptor.
   InFile = FreeFile
   
   ' Make sure a file is specified.
   If sFile = "" Then
       LoadTips = False
       Exit Function
   End If
   
   ' Make sure the file exists before trying to open it.
   If Dir(sFile) = "" Then
       LoadTips = False
       Exit Function
   End If
   
   ' Read the collection from a text file.
   Open sFile For Input As InFile
   While Not EOF(InFile)
       Line Input #InFile, NextTip
       Tips.Add NextTip
   Wend
   Close InFile

   ' Display a tip at random.
   DoNextTip
   
   LoadTips = True
   
End Function

Private Sub chkLoadTipsAtStartup_Click()

End Sub


Private Sub Check1_Click()
SaveSetting App.EXEName, "Options", "Show Tips at Startup", Check1.Value
End Sub

Private Sub cmdHelp_Click()


Dim nRet As Integer


   'if there is no helpfile for this project display a message to the user
   'you can set the HelpFile for your application in the
   'Project Properties dialog
   If Len(App.HelpFile) = 0 Then
       MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
   Else
       On Error Resume Next
       If Err Then
           MsgBox Err.Description
       End If
   End If

End Sub

Private Sub cmdNewWeb_Click()
Dialog.Show vbModal, Me
Me.Hide
End Sub

Private Sub cmdNextTip_Click()
   DoNextTip
   cmdPrevious.Enabled = True
End Sub

Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub Command2_Click()


End Sub

Private Sub Form_Load()
       
   Randomize
   
   ' Read in the tips file and display a tip at random.
   If LoadTips(App.Path & "" & TIP_FILE) = False Then
       lblTipText.Caption = "That the " & TIP_FILE & " file was not found? " & vbCrLf & vbCrLf & _
          "Create a text file named " & TIP_FILE & " using NotePad with 1 tip per line. " & _
          "Then place it in the same directory as the application. "
   End If
End Sub

Public Sub DisplayCurrentTip()
   If Tips.Count > 0 Then
       lblTipText.Caption = Tips.Item(CurrentTip)
   End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu frmTip.mnuWhatsThis1

End If

You might also like...

Comments

Ray James Sayers

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Perl - The only language that looks the same before and after RSA encryption.” - Keith Bostic