Hola tengo un código cedido amablemente por Elektro Ha@cker pero no logro que funcione después de googlear bastante no me aclaro con este error..
" La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base "
No se si es porque hago el form pongo los controles pero pongo el codigo despues ?
Public Class Form1
Private TextBoxes As TextBox() = {Nothing}
Private Result1 As Int32(), Result2 As Int32()
ReadOnly Property Num1 As Int32
Get
Return CInt(TextBox1.Text)
End Get
End Property
ReadOnly Property Num2 As Int32
Get
Return CInt(TextBox2.Text)
End Get
End Property
Private Sub Sumar(sender As Object, e As EventArgs) _
Handles Button_Sum.Click
Dim TextBoxCount As Short = -1
TextBoxes = {TextBox3, TextBox4, TextBox5, TextBox6}
Result1 = {Num1 + 15, Num1 + 25} _
.Distinct().ToArray ' Elimino duplicados
Result2 = {Num2 + 30, Num2 + 20} _
.Distinct().ToArray ' Elimino duplicados
Array.Sort(Result1) : Array.Sort(Result2) ' Ordeno los Items
For Each Number As Int32 In Result1
TextBoxCount += 1
TextBoxes(TextBoxCount).Text = Number
Next
For Each Number As Int32 In Result2
TextBoxCount += 1
TextBoxes(TextBoxCount).Text = Number
Next
End Sub
End Class
Luis
Hola,
Esto ya intenté explicártelo, aquí tienes documentación: http://msdn.microsoft.com/en-us/library/stf7ebaz%28v=vs.90%29.aspx
El error está aquí:
CitarHandles Button_Sum.Click
Copiaste el ejemplo que te proporcioné sin fijarte lo suficiente,
lo que sucede es que en tu aplicación no tienes ningún botón que se llame "Button_Sum".
Ese es el nombre que le di yo al botón de sumar de mi ejemplo:
Citar(http://img46.imageshack.us/img46/2691/gm5q.png)
Para resolverlo símplemente tienes que reemplazar/usar en esa linea el nombre correcto de tu boton (Ej: Handles button1.click)...
PD: No confundir el nombre del control, con el texto del control (Button_Sum, "Sum").
Un saludo
Cita de: EleKtro H@cker en 13 Octubre 2013, 01:25 AM
Hola,
Esto ya intenté explicártelo, aquí tienes documentación: http://msdn.microsoft.com/en-us/library/stf7ebaz%28v=vs.90%29.aspx
El error está aquí:
Copiaste el ejemplo que te proporcioné sin fijarte lo suficiente,
lo que sucede es que en tu aplicación no tienes ningún botón que se llame "Button_Sum".
Ese es el nombre que le di yo al botón de sumar de mi ejemplo:
Para resolverlo símplemente tienes que reemplazar/usar en esa linea el nombre correcto de tu boton (Ej: Handles button1.click)...
PD: No confundir el nombre del control, con el texto del control (Button_Sum, "Sum").
Un saludo
Ya de verdad estoy seguro que las facultades de observacion a los 53 se pierden un poco :-[
de nuevo gracias
Luis