Visual Basic

Andraw Tang wrote:

Normally how you handle this case of case?

  1  Public Partial Class MainForm
  2  	Inherits Form
  3  	Private t As New TextBox()
  4  	Private t2 As New TextBox()
  5  
  6  	Public Sub New()
  7  		' t2 will be disabled if t fails to validate
  8  		t2.Parent = Me
  9  		t2.Location = New Point(0, 0)
 10  
 11  		' this is the control that we're validating
 12  		t.Parent = Me
 13  		t.Location = New Point(0, 0 + t2.Height)
 14  
 15  		Controls.AddRange(New Control() {t, t2})
 16  
 17  		' Hook up any control that doesn't allow zero's;
 18  		AddHandler t.Validating, New CancelEventHandler(AddressOf t_Validating)
 19  	End Sub
 20  
 21  	Private Sub t_Validating(sender As Object, e As CancelEventArgs)
 22  		' identify what control raised the event
 23  		Dim senderAsTextBox As TextBox = TryCast(sender, TextBox)
 24  
 25  		' verify that the content is valid
 26  		Dim IsContentValid As Boolean = senderAsTextBox.Text.Contains("-")
 27  
 28  		' if it ain't, cancel the moving of the focus;
 29  		e.Cancel = IsContentValid
 30  
 31  		' your custom action goes here, we disable t2 if 
 32  		' the content isn't valid
 33  		t2.Enabled = Not IsContentValid
 34  
 35  		' included for fun :)
 36  		If IsContentValid Then
 37  			System.Media.SystemSounds.Beep.Play()
 38  		End If
 39  	End Sub
 40  End Class

I are Troll

98fireblade wrote:

catch ex as exception
msgbox("Unable to Delete File!")
end try

98fireblade wrote:

no the file does not appear to be in use

98fireblade wrote:

in one particular folder

98fireblade wrote:

Get off you high horse, we can't all be bloody genius's!I said the code looks something like this

• I'd like to see the VB6 code
  
• I'd like to see console-apps in both languages that attempt to delete the file
  
• I'd like to see the results of a test on the exact same file.
  
• I'd like to see the exception. And inner exceptions, if present.
  

I are Troll

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim doc As New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 10, 10, 10, 10)
  Dim fi As New IO.FileInfo(New IO.FileInfo(Application.ExecutablePath).Directory.FullName & "\test.pdf")
  Dim sw As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, New IO.FileStream(fi.FullName, IO.FileMode.Create))
  doc.Open()
  Dim pg As New iTextSharp.text.Paragraph("Eerste test")
  Dim bf1 As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont(System.Environment.GetFolderPath(Environment.SpecialFolder.Fonts) &
    "\Arial.ttf", iTextSharp.text.pdf.BaseFont.CP1250, False)
  Dim bf2 As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont(System.Environment.GetFolderPath(Environment.SpecialFolder.Fonts) &
    "\Wingding.ttf", iTextSharp.text.pdf.BaseFont.CP1250, False)
  Dim fnt As New iTextSharp.text.Font(bf2)
  Dim bc As New iTextSharp.text.BaseColor(Color.Red)
  fnt.Color = bc
  fnt.Size = 20
  Dim prg As New iTextSharp.text.Paragraph("Symbolen", fnt)

  Dim i As iTextSharp.text.Image = New iTextSharp.text.Jpeg(New Uri("D:\Data_Jan\Mijn afbeeldingen\000000-78025-200x200.jpg"))
  i.Rotation = 45
  doc.Add(pg)
  doc.Add(prg)
  doc.Add(New iTextSharp.text.Jpeg(i))
  Dim cb As iTextSharp.text.pdf.PdfContentByte = sw.DirectContent
  cb.MoveTo(0, 0)
  cb.LineTo(doc.PageSize.Width, doc.PageSize.Height)
  cb.SetColorStroke(New iTextSharp.text.BaseColor(Color.Blue))
  cb.Stroke()

  cb.SetFontAndSize(bf1, 50)
  cb.BeginText()
  cb.MoveText(200, 100)

  cb.ShowText("Text on 200-100")
  cb.EndText()

  'rotation

  'end rotation
  doc.Close()
  Process.Start(fi.FullName)
  Me.Close()
End Sub