VB中,怎么让list中的各行添加命令。
谢谢啦。大神级难题。下面是要求设计的一个程序点击学校后,就会出现班级;点击班级后,就会出现属于该班的每个人;点击人名后,下方的"姓名"(label),改为点击的人名。没有...
谢谢啦。大神级难题。
下面是要求设计的一个程序
点击学校后,就会出现班级;点击班级后,就会出现属于该班的每个人;点击人名后,下方的"姓名"(label),改为点击的人名。
没有财富值啦,求教,求教。 展开
下面是要求设计的一个程序
点击学校后,就会出现班级;点击班级后,就会出现属于该班的每个人;点击人名后,下方的"姓名"(label),改为点击的人名。
没有财富值啦,求教,求教。 展开
2个回答
展开全部
Private Sub Form_Load()
List1.AddItem "希望一中"
List1.AddItem "希望二中"
List1.AddItem "希望三中"
List1.AddItem "希望四中"
List1.AddItem "希望五中"
List1.AddItem "希望六中"
List1.AddItem "希望七中"
List1.AddItem "希望八中"
List1.AddItem "希望九中"
End Sub
Private Sub List1_Click()
If List2.ListCount = 0 Then
List2.AddItem "一班"
List2.AddItem "二班"
List2.AddItem "三班"
List2.AddItem "四班"
List2.AddItem "五班"
List2.AddItem "六班"
List2.AddItem "七班"
List2.AddItem "八班"
List2.AddItem "九班"
End If
End Sub
Private Sub List2_Click()
If List3.ListCount = 0 Then
List3.AddItem "小明"
List3.AddItem "小智"
List3.AddItem "小红"
List3.AddItem "小张"
End If
End Sub
Private Sub List3_Click()
If List3.ListCount <> 0 Then Label1.Caption = List3.List(List3.ListIndex)
End Sub
TableDI
2024-07-18 广告
2024-07-18 广告
在上海悉息信息科技有限公司,我们深知Excel在数据处理中的重要作用。在Excel中引用不同工作表(sheet)的数据是常见的操作,这有助于整合和分析跨多个工作表的信息。通过在工作表名称前加上感叹号“!”,您可以轻松地引用其他工作表中的数据...
点击进入详情页
本回答由TableDI提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询