南师大-人机交互技术复习提纲.docVIP

人机交互技术复习提纲 1 文件系统 1 请定义一个类，存储管理指定文件夹下的所有文件名及其属性，写出该类的构造函数。指出该类的应用背景。 Class clsDirectory Private FileNames As List(Of String) Private LV as List(Of ListViewItem) End class Sub New (pathname as string ) FileNames = Directory.GetFiles(PathName).ToList //得到文件名的集合 LV =new List(Of ListViewItem) For i = 0 To FileNames.Count – 1 Item=new ListViewItem Item.SubItems.Add(…FileNames(i).…) //设置属性项目：创建时间、大小 LV.Add (Item) Next End Sub 应用背景：在ListView控件中，显示查询文件属性列表 1 请定义一个类，存储管理指定文件夹下的所有子文件夹，写出该类的构造函数。 Class clsDirectory private foldnames As list (of string) //子文件夹的名称集合 public Node As TreeNode TreeView中的对应节点 End class Sub New (pathname as string ) foldnames = Directory.GetDirectories(pathname).Tolist if foldnames.count=0 then Node = nothing: Return Node = New TreeNode(pathname) For i=0 to foldnames.count-1 Dim Nodei as clsDirectory = New clsDirectory (foldnames (i)) node.Nodes.Add ( Nodei.Node ) Next End Sub 应用背景：在TreeView控件中，显示查询目录树结构 2 TreeView控件 1 请编写函数，将指定的Tuple类型数据（例如:(“dad”, ”son”)）插入到TreeView控件中。 Sub Insert(tv as TreeView, t as Tuplestring, string ) Node = Find(tv.Root, t.item1) //找插入的节点 Node.children.add(t.item12) //加入新节点 End sub Function Find(Node as TreeViewNode , key as string) as TreeViewNode If node.Text = key Then Return node For i=0 to Node.children.count-1 Dim node1 As TreeNode = Find(Node.children(i), key) If node1 is nothing then return node1 Next i Return nothing End Function 1 请编写函数，在TreeView控件中，删除text属性等于指定字符串key的结点及其子树。 Sub Delete(tv as TreeView, key as string) Node = Find(tv.Root, key) //找待删除的节点的父节点 ParentNode= Node.Parent() parentnode.Nodes.Remove(node) End sub Function Find(Node as TreeViewNode , v as string) as TreeViewNode 同上 3 动态控件 1 请编写函数，创建一列n个按钮控件，并指定每个按钮的Click事件。 Function f(n) as list (of Button) Dim Buttons as new list (of Button) For i = 0 To N - 1 Buttons.Add(New Button) AddHandler Buttons(i).Click, AddressOf Button_Cli