计算机知识点总纲,VB总纲电脑基础知识IT计算机专业资料.docx-CSDN博客

一、时钟

二、滚动条

三、列表框

四、复选框

五、单选框

六、组合框

七、多分枝选择

八、定义函数

九、TXT

十、数组

一、时钟

程序运行后，每隔2秒命令按钮Commandl向右移动100个单位。

Private Sub Form_Load()

Timer 1.Interval = 2

End Sub

Private Sub timerl_timcr()

Call mymove

End Sub

Sub mymove()

Commandl.Left = Command 1 .Left + 200

End Sub

二、滚动条

为 200 ; SmallChange 设水平滚动条HScrolll

为 200 ; SmallChange 设

置为50 ,水平滚动条HScrolll的值(Value)代表命令按钮Commandl的宽度，当水平滚

动条的滑块变化时，命令按钮Commandl的宽度随之改变

Private Sub Form_Load()

HScrolll.Min = 0

HScrollLMax = 4000

HScroll 1 .SmallChangc = 50

HScroll 1 .LargeChange = 200

Command 1.Caption = ?-驻倚靠危楼风细细，无言谁会凭栏意。衣带渐宽终不悔，为伊销得人憔悴”

End Sub

Private Sub HScroll l_Changc()

Command 1. Width = Val(HScrolll. Value)

End Sub

三、列表框

①点击〃按钮，将左边列表中的选中项移动到右边列表的末尾；点击〃一〃

按钮，将右边列表中的选中项移动到左边列表的末尾;点击〃二〉〃按钮，将左边列表所有内容移动到右边列表的末尾；点击〃＜二〃按钮，将右边列表所有内

容移动到左边列表的末尾。

务销管财营工Comaiandl ??->会计国贸亠

务销管财营工

Comaiandl ?

?->

会计国贸

亠

Ust2

乂

Private Sub Form_Load()

List 1.Addltcm "A"

List 1.Additem ”B“

List 1.Additem ”C“

List2.AddItem ”d”

List2.AddItem ”e”

End Sub

Private Sub Commandl_Click()

i = List 1 .Listindex

If i >= 0 And i <= List 1.ListCount ? 1 Then

List2.AddItem List 1 .Text

Listl .Rcmovcltcm i

End If

End Sub

Private Sub Command2_Click()

i = List2.Listindex

If i >= 0 And i <= List2.ListCount ? 1 Then

List 1.Additem List2.Text

List2.RemoveItem i

End If

End Sub

Private Sub Command3_Click()

Dim i%

For i = 0 To List 1.ListCount - 1

List2.Addltcm Listl.List(i)

Next i

List 1.Clear

End Sub

Private Sub Command4_Click()

Dim i%

For i = 0 To List2.ListCount - 1

List 1.Additem List2.List(i)

Next i

List2.Clear

End Sub

实现追加、插入、修改、删除、清空等5个按钮的功能

Sub ClrList(AList As ListBox)

For i = AList.ListCount ? 1 To 0 Step -1

AList.Removeltem i

Next i

End Sub

Private Sub Command 1 _Click()

List 1.Additem Text 1.Text

End Sub

Private Sub Command2_Click()

i = List 1.Listindex

With Listl

If i >= 0 And i <= .ListCount - 1 Then .Additem Text 1.Text, i

End With

End Sub

Private Sub Command3_Click()

i 二 Listl.Listindex

If i >= 0 And i v= Listl.ListCount - 1 Then

Listl.Lis