Aqui nadie te va hacer el trabajo de la universidad ni la tarea
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú Dim [Assembly] As Assembly = Assembly.LoadFile("C:\Ejemplo.exe")
For Each Dll As AssemblyName In [Assembly].GetReferencedAssemblies
Console.WriteLine(Dll.Name & " " & Dll.Version.ToString)
Next
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Hola")
End Sub
Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("Hola")
End Sub
Dim MethodName As String = "Button1_Click"
Dim HandlerType As Type = GetType(EventHandler)
Dim MethodI As MethodInfo = Me.GetType.GetMethod(MethodName)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MethodName As String = "Button1_Click"
Dim HandlerType As Type = GetType(EventHandler)
Dim MethodI As MethodInfo = Me.GetType.GetMethod(MethodName)
Dim DelegateEvent As [Delegate] = _
[Delegate].CreateDelegate( _
HandlerType, _
MethodI, _
True)
AddHandler Button1.Click, DelegateEvent
End Sub
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MethodName As String = "Button4_Click"
Dim HandlerType As Type = GetType(EventHandler)
Dim MethodI As MethodInfo = Me.GetType.GetMethod(MethodName)
Dim DelegateEvent As [Delegate] = _
[Delegate].CreateDelegate( _
HandlerType, _
Me, _
MethodName)
AddHandler Button4.Click, DelegateEvent
End Sub
File.AppendAllText("C:\archivo.txt", "Hola")
Dim X As StreamWriter = File.AppendText("C:\x.txt")
X.WriteLine("Hola")
X.Close()