班长竞选PPT制作

标签：Sub AddItem 竞选 窗体 PPT 班长 ListB

2023-2024学年2060A0学校02FE班级班长竞选

同学们（或者参与竞选的同学）的姓名分别是子轩、梓轩、梓宸、梓辰、梓涵、一诺。

发言提示：自我介绍、我的竞选理由、如果我当选。

在PPT展示页面上添加一个标签（在开发工具的控件里）并设置属性。
标签的单击事件代码如下（写在PPT展示页码对应的VBA代码里）：

1 Private Sub nameS_Click()
2     main.Show
3 End Sub

 

在VBA界面下插入一个窗体，在窗体中放一个ListBox和一个按钮，并设置属性。

窗体代码如下：

 1 Private Sub B_Click()
 2     Slide1.nameS.Caption = "姓名：" & ListB.Text
 3     Unload Me
 4 End Sub
 5 
 6 Private Sub UserForm_Initialize()
 7     ListB.AddItem "子轩"
 8     ListB.AddItem "梓轩"
 9     ListB.AddItem "梓宸"
10     ListB.AddItem "梓辰"
11     ListB.AddItem "梓涵"
12     ListB.AddItem "一诺"
13     ListB.Selected(0) = True
14 End Sub

 

也可更改窗体名等名称，注意统一和符合规则即可。

标签：Sub,AddItem,竞选,窗体,PPT,班长,ListB
From： https://www.cnblogs.com/leisureeen/p/17935112.html