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.
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
   Close InFile

   ' Display a tip at random.
   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
       On Error Resume Next
       If Err Then
           MsgBox Err.Description
       End If
   End If

End Sub

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

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

Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub Command2_Click()

End Sub

Private Sub Form_Load()
   ' 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...


Ray James Sayers


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.

“Linux is only free if your time has no value” - Jamie Zawinski