vb总纲_电脑基础知识_it计算机_专业资料

《vb总纲_电脑基础知识_it计算机_专业资料》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、时钟二、滚动条三、列表框四、复选框五、单选框六、组合框七、多分枝选择八、定义函数九、TXT十、数组一、时钟程序运行后，每隔2秒命令按钮Commandl向右移动100个单位。PrivateSubForm_Load()Timer1.Interval=2EndSubPrivateSubtimerl_timcr()CallmymoveEndSubSubmymove()Commandl.Left=Command1.Left+200EndSub二、滚动条为200;SmallChange设水平滚动条HScrolll的数值范围0~4000,LargeChange设j置为50,水平滚动

2、条HScrolll的值(Value)代表命令按钮Commandl的宽度，当水平滚动条的滑块变化时，命令按钮Commandl的宽度随之改变PrivateSubForm_Load()HScrolll.Min=0HScrollLMax=4000HScroll1.SmallChangc=50HScroll1.LargeChange=200Command1.Caption=•-驻倚靠危楼风细细，无言谁会凭栏意。衣带渐宽终不悔，为伊销得人憔悴”EndSubPrivateSubHScrolll_Changc()Command1.Width=Val(HScrolll.Value)EndS

3、ub三、列表框①点击〃按钮，将左边列表中的选中项移动到右边列表的末尾；点击〃一〃按钮，将右边列表中的选中项移动到左边列表的末尾;点击〃二〉〃按钮，将左边列表所有内容移动到右边列表的末尾；点击〃＜二〃按钮，将右边列表所有内容移动到左边列表的末尾。务销管财营工Comaiandl〜•->会计国贸亠=>A.亠Ust2乂PrivateSubForm_Load()List1.Addltcm"A"List1.Additem”B“List1.Additem”C“List2.AddItem”d”List2.AddItem”e”EndSubPrivateSubCommandl_Click()

4、i=List1.ListindexIfi>=0Andi<=List1.ListCount・1ThenList2.AddItemList1.TextListl.RcmovcltcmiEndIfEndSubPrivateSubCommand2_Click()i=List2.ListindexIfi>=0Andi<=List2.ListCount・1ThenList1.AdditemList2.TextList2.RemoveItemiEndIfEndSubPrivateSubCommand3_Click()Dimi%Fori=0ToList1.ListCount-1List2

5、.AddltcmListl.List(i)NextiList1.ClearEndSubPrivateSubCommand4_Click()Dimi%Fori=0ToList2.ListCount-1List1.AdditemList2.List(i)NextiList2.ClearEndSub②实现追加、插入、修改、删除、清空等5个按钮的功能SubClrList(AListAsListBox)Fori=AList.ListCount・1To0Step-1AList.RemoveltemiNextiEndSubPrivateSubCommand1_Click()List1.

6、AdditemText1.TextEndSubPrivateSubCommand2_Click()i=List1.ListindexWithListlIfi>=0Andi<=.ListCount-1Then.AdditemText1.Text,iEndWithEndSubPrivateSubCommand3_Click()i二Listl.ListindexIfi>=0Andiv=Listl.ListCount-1ThenListl.List(i)=Text1.TextEndIfEndSubPrivateSubCommand4_Click()WithListlIf.List

7、index>・1Then_.Removeitem.ListindexEndWithEndSubPrivateSubCommand5_Click()ClrListListl1Listl.ClearEndSubPrivateSubForm_Load()Listl.Clear:Listl.Additem"语文”:Listl.Additem:数学"：Listl.Additem"英语"EndSub②实现第一条、前一条、后一条、最后一条等4按钮的功能PrivateSubform_load()Listl.Additem”财务”ListLAd