Visual Basic

chrischik wrote:

If ComboBoxSelectType.SelectedItem Is Comedy Then

Private Sub ComboBoxSelectType_SelectedValueChanged(ByVal sender As Object, _
               ByVal e As System.EventArgs) Handles ComboBoxSelectType.SelectedValueChanged
   If (ComboBoxSelectType.SelectedIndex >= 0) Then
      ListBoxAvailableDVDs.Items.Add(ComboBoxSelectType.SelectedItem)
   End If
End Sub

If ComboBoxSelectType.SelectedItem Is Comedy Then

ListBoxAvailableDVDs. = Comedy

select case ComboBoxSelectType.Text<br />
   case "Comedy"<br />
      ' Code to handle this case<br />
   case "Thriller"<br />
      ' Code for thriller<br />
...<br />
end select

Joshua Quick wrote:

I highly recommend the Zed Graph control. It is a free, very nice, professional looking control.

Joshua Quick wrote:

You'll also need to setup a timer control on your form ...

devilhaunts wrote:

So does zed control work with VB 6.0 ?

Private Sub txtField_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles txtField.DragEnter
   ' Validate.
   If (e Is Nothing) Then Return
   If (e.Data Is Nothing) Then Return

   ' Change mouse cursor if dragging a file over this control.
   If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
      e.Effect = DragDropEffects.Copy
   Else
      e.Effect = DragDropEffects.None
   End If
End Sub

Private Sub txtField_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles txtField.DragDrop
   Dim fileName As String

   ' Validate.
   If (e Is Nothing) Then Return
   If (e.Data Is Nothing) Then Return
   If (Not e.Data.GetDataPresent(DataFormats.FileDrop)) Then Return

   ' Get name of file that was dragged and dropped here.
   fileName = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())(0)
   If (fileName Is Nothing) Then Return
   If (fileName.Length <= 0) Then Return

   ' Output file's contents into RichTextBox.
   Try
      Dim reader As New System.IO.StreamReader(fileName)
      If (fileName.ToLower.EndsWith("rtf")) Then ' Read RTF file.
         txtField.Rtf = reader.ReadToEnd()
      Else ' Assume it's a TXT file.
         txtField.Text = reader.ReadToEnd()
      End If
      reader.Close()
   Catch
   End Try
End Sub