VisualBasic程设计VB总.docVIP

字体字号变化 Private Sub List1_Click() Label3.FontName = List1.Text End Sub Private Sub List2_Click() Label3.FontSize = List2.Text End Sub List课程单移。多仪。添加 Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i) End If Next For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) = True Then List1.RemoveItem i End If Next End Sub Private Sub Command2_Click() For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next List1.Clear End Sub Private Sub Command3_Click() For i = 0 To List2.ListCount - 1 If List2.Selected(i