搬家第59天-citect2018citectVBA向listbox控件添加内容，判断用户选择的是第几行

citect2018有段时间没碰了，今天做一个小的练习，向listbox控件添加内容，也是为后面的学习做准备。

新建一个页面main，页面上添加一个微软的listbox控件，控件AN为main_AN6。添加一个按钮，用于执行citectVBA语句。

添加一个citectVBA程序文件，写下面的代码

Sub listboxini()

main_AN6.clear

main_AN6.additem "朝辞白帝彩云间"

main_AN6.additem "千里江陵一日还"

main_AN6.additem "两岸猿声啼不住"

main_AN6.additem "轻舟已过万重山"

End Sub

按钮的鼠标点击事件中写入下面的语句

civba call listboxini()

保存编译运行，设置main为起始页面。点击按钮，可以看到listbox填充了上面几句古诗。

新建一个citectVBA过程，用于判断用户选中了前述listbox控件的哪一行。

Sub ListboxselText()

msgbox "您选择的是第" & Cstr(main_AN6.ListIndex) & "项，内容是：" & Cstr(main_AN6.Text)

End Sub

画面main上新增一个按钮，按钮的鼠标点击事件输入下面的代码

civba call ListboxselText()

保存编译运行，先初始化listbox控件，然后随意选择listbox中一行，点击第二个按钮，就会通过弹出消息提示listindex是什么，内容是什么。