Visual Basic

Public Partial Class Form1
	Inherits Form
	Public Sub New()
		InitializeComponent()

		' Create a button
		Dim b As New Button()
		b.Parent = Me
		b.Location = New Point(0, 0)
		Controls.Add(b)

		' Create a checkbox
		Dim c As New CheckBox()
		c.Parent = Me
		c.Location = New Point(0, 0 + b.Height)
		Controls.Add(c)

		' Hook up both to the same handler
		AddHandler b.Click, New EventHandler(AddressOf MyDragEventHandler)
		AddHandler c.Click, New EventHandler(AddressOf MyDragEventHandler)
	End Sub

	' You can use the sender-object to identify which control raised the event,
	' if required.
	Private Sub MyDragEventHandler(sender As Object, e As EventArgs)
		System.Diagnostics.Debug.WriteLine(sender.ToString() & " iz clicked")
	End Sub
End Class

• Drag a button and a checkbox to the form
  
• Go to the properties of the button, and switch to "events" view (button looks like lightning)
  
• Double-click on the Click event, and write your code
  
• Go back to the designer, and select the checkbox
  
• Properties, events-view; there's a combobox next to the Click event - open it, and select the item "Button1Click"
  

I are Troll

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