vb源代码-控件有关

《vb源代码-控件有关》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、【Form】窗体光秃：Form1.Caption=""设置From1.ControlBox为False【List】去除list重复：'声明SubClearDups(lstAsControl,comptypeAsBoolean)Dimi&,j&,tmp$(),cID&,lstCount&,sComptype&,tmpLine$lst.Visible=TruelstCount=lst.ListCount-1'数据总数IflstCount<0ThenExitSub'如果没数据,退出ReDimtmp(lstCount)'比对临时数组IfcomptypeThensCompt

2、ype=0ElsesComptype=1'0(binary)/1(textual)比对Forj=lstCountTo0Step-1'从尾部开始测试tmpLine=lst.List(j)'读取一条放入临时变量Fori=0TocID-1'从临时数组中比对IfStrComp(tmp(i),tmpLine,sComptype)=0Then'发现相同lst.RemoveItemj'清除条目ExitForEndIfNextIfi>cID-1Then'未发现相同时,添加到临时数组中tmp(cID)=tmpLinecID=cID+1EndIfNextlst.Visible=Tru

3、eEndSub'调用PrivateSubCommand1_Click()DimsT!sT=TimerClearDupsList1,TrueEndSub保存list内容：DimoutdatatxtAsStringOpen"d:回复记录.txt"ForOutputAs#1Fori=0ToList1.ListCount-1Print#1,List1.List(i)NextiClose#1移除list内容：Fora=List1.ListCount-1To0Step-1List1.RemoveItem(a)Nexta============================

4、============================================【Text】聚焦全选：PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1)EndSub============================================================================【Flash】shockwaveflash1.movie=app.path+"flash.swf"'本地Flashshockwaveflash1.movie="

5、网址"'网页Flash===========================================================================【combox】Combo1.AddItem""=============================================================================【托盘及显示气泡】‘模块OptionExplicitPublicDeclareFunctionShell_NotifyIconLib"shell32.dll"Alias"Shell_NotifyI

6、conA"(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLongPublicTypeNOTIFYICONDATAcbSizeAsLonghWndAsLonguIDAsLonguFlagsAsLonguCallbackMessageAsLonghIconAsLongszTipAsString*128dwStateAsLongdwStateMaskAsLongszInfoAsString*256uTimeoutAsLongszInfoTitleAsString*64dwInfoFlagsAsLongEndTypePubl

7、icConstNOTIFYICON_VERSION=3PublicConstNOTIFYICON_OLDVERSION=0PublicConstNIM_ADD=&H0PublicConstNIM_MODIFY=&H1PublicConstNIM_DELETE=&H2PublicConstNIM_SETFOCUS=&H3PublicConstNIM_SETVERSION=&H4PublicConstNIF_MESSAGE=&H1PublicConstNIF_ICON=&H2PublicConstNIF_TIP=&H4PublicConstNIF_STATE=&H8P

8、ublic