易语言-怎样把编辑框里的内容加到列表里

.版本 2

.子程序 _按钮1_被单击

列表框1.加入项目 (编辑框1.内容, )

声明以下几个变量；（以下为手写代码,请参照易语言代码规范实际编写）
---------------------------------------------------
变量名 待分割文本 文本型
变量名 已分割文本 文本型 数组 0
变量名 计次 整数型
变量名 文本数组 整数型
待分割文本=编辑框1.内容
已分割文本=分割文本（待分割文本，#换行符，）
文本数组=取数组成员数（已分割文本）
计次循环（文本数组,计次）
列表框1.加入项目（文本数组[计次]，列表框1.取项目数（））
--------------------------------------
以上是手写代码，你看看行不行...

a在运行时将事件与事件处理程序相关联。

AddHandler event, AddressOf eventhandler

各部分说明
event 
要处理的事件的名称。

eventhandler 
将处理事件的过程的名称。
--------------------
Sub TestEvents()
Dim Obj As New Class1
' Associate an event handler with an event.
AddHandler Obj.Ev_Event, AddressOf EventHandler
' Call the method to raise the event.
Obj.CauseSomeEvent()
' Stop handling events.
RemoveHandler Obj.Ev_Event, AddressOf EventHandler
' This event will not be handled.
Obj.CauseSomeEvent()
End Sub

Sub EventHandler()
' Handle the event.
MsgBox("EventHandler caught event.")
End Sub

Public Class Class1
' Declare an event.
Public Event Ev_Event()
Sub CauseSomeEvent()
' Raise an event.
RaiseEvent Ev_Event()
End Sub
End Class

============================
比如：
AddHandler button1.click, AddressOf button1_click