Visual Basic

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

eagertolearn wrote:

but when i try to write sth on the textbox, it's doing a weird thing.