VB中list1和list2中选项逆序转移以及滚动条问题QVQ急求!!谢谢!
在窗体FORM1上有1个命令按钮command1和2个列表框list1和list2,要求单击command1时将list1中所有选项【逆序】添加到list2中,同时清空l...
在窗体FORM1上有1个命令按钮command1和2个列表框list1和list2,要求单击command1时将list1中所有选项【逆序】添加到list2中,同时清空list1,编写程序。
以及如何用滚动条调节text1中字体大小,谢谢!! 展开
以及如何用滚动条调节text1中字体大小,谢谢!! 展开
1个回答
展开全部
第一个问题
Private Sub Command1_Click()
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
List2.AddItem List1.List(i)
Next
List1.Clear
End Sub
第二个问题
Private Sub Form_Load()
VScroll1.Min = 1
VScroll1.Max = 50
End Sub
Private Sub VScroll1_Change()
Text1.FontSize = VScroll1.Value
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
List2.AddItem List1.List(i)
Next
List1.Clear
End Sub
第二个问题
Private Sub Form_Load()
VScroll1.Min = 1
VScroll1.Max = 50
End Sub
Private Sub VScroll1_Change()
Text1.FontSize = VScroll1.Value
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询