前一期中，我们讲到复合框，复合框就是将文本框和列表框的功能综合在一起了的一个既有列表框功能又有文本框功能的一个控件对象。

今天，我们这里就讲一下如何在窗体中添加这两种控件对象。

在窗体中添加一个列表框和一个文本框

在窗体中添加列表框，与前面添加复合框的步骤大同小异。

如果我们这个宏项目中没有窗体，或者我们想把要添加的对象添加进另一个窗体，那么就要按下述步骤进行操作：

第一步：在“工程”窗口点击鼠标右键，选择“插入”，在弹出的二级菜单中选择“用户窗体”。

第二步：在“工具箱”窗口选中要添加到窗体中的控件，然后在窗体中“绘制”控件。小编这里以今天要讲的添加列表框为例

以上两步就可以在窗体中添加上列表框。

重复上面的第二步，再添加一个文本框，最终的将两者的位置摆放如下：

以上就是如何在窗体中添加我们想要添加的控件了。今天的演示是添加一个文本框和一个列表框。

练习

练习：给列表框添加一个选项列表，当用户选中一个选项的时候，文本框就显示出用户选中的内容。

分析：要想实现本题，有两个难点。

• 在于给列表框添加列表选项。好在上一期的复合框中，我们实现了如何去给它添加选项，因为复合框是文本框和列表框的复合体，因此复合框中如何实现，在列表框中也可以借鉴的。
• 在于选中列表框中的内容的时候，那么这就是一个事件：当我们选中列表框中选项时发生的。列表框的事件如下图：

那么对于上述事件的选择，我们在此必然要选择Change()事件，即是当ListBox中的选项被选中，或者切选选项的时候就会发生这样的事件，在这个事件中，我们将文本框的值变成选中的选项内容。

好，我们开始编写代码了。

双击窗体中任意位置，进入代码编写界面。

function UserForm1_Initialize()
{
  //要给ListBox添加的列表
  let listItems = ['ListBox练习','快来跟着练','ListBox Example','Follow me',
                   'JSA很简单','只要你肯下功夫','门槛其实并不高','勤能补茁,也能增长自信'];
  for(let a of listItems){
    UserForm1.ListBox2.AddItem(a);
  }
  //将文本框进行初始化。
  UserForm1.TextEdit1.Value = null;
}

//ListBox的Change事件。

function UserForm1_ListBox2_Change()
{
  /*
  UserForm1.TextEdit1.Value是设置文本框的值。
  UserForm1.ListBox2.Value 是获取列表框的值。而列表框的值就是列表框选中的选项。
  */
  UserForm1.TextEdit1.Value = UserForm1.ListBox2.Value;
}

以上程序运行的结果如下图：

好了，以上就是本期的内容。

以上代码复制后即可运行。

小编的演示文档会保存起来，免费提供给大家学习，如有需要关注后私信说明要哪一章节的演示文档。

请注意：演示文档与小编的教程同步即是小编的教程到哪一步，演示文档就到哪一章节。

关注我，持续共同学习，一起踏上wps宏(JSA)的登山之路。

#妙笔生花创作挑战#