tips_6 面向VisualBasic程序员的杂志 第6版.docx

《tips_6 面向VisualBasic程序员的杂志 第6版.docx》由会员分享，可在线阅读，更多相关《tips_6 面向VisualBasic程序员的杂志 第6版.docx（56页珍藏版）》请在三一办公上搜索。

1、WE1.COMETOTHESIXTHEDITIONOFTHEVBPJTECHNICA1.TIPSSUPP1.EMENT!ThesetipsandtricksweresubmittedbyprofessionaldevelopersusingVisualBasic3.0,VisualBasic4.0,VisualBasic5.0,VisualBasicforApplications(VBA),andVisualBasicScript(VBS).VB416/321.evel:IntermediateUSEBOO1.EANVARIAB1.ESFORCHECK-BOXVA1.UESVisualBasi

2、cspecifiesaBooleansdefaultvaluesaszeroforFalseand-1forTrue.Youmaysaveandsetthevalueofacheckbox,basedontheabsolutevalueofaBooleanvariable,asthesecorrespondtotheintrinsicconstantsVbUncheckedandVbChecked:DimbBoolasBooleanbBool=True/IfbBool=0thecheckboxwillbe/unchecked,ifitisanythingelseitwill,/bechecke

3、d.Checkl.Value=Abs(bBool)-JeremyBoschen,Branchburg,NewJerseyVB416/321.evel:IntermediateDISP1.AYHORIZONTA1.SCRO1.1.BARUnliketheWindows95commoncontrols,thestandardlistboxdoesnthaveahorizontalscrollbarwhenlistitemsaretoowidetofitwithinthelistbox.Fortunately,itsnothardtodirectalist-boxcontroltodisplayah

4、orizontalscrollbar.Addthiscodetoaforms1.oadevent.Itfillsalistboxwith100longstringsandcallsSetHScroIItoshowahorizontalscrollbarinthelistbox:PrivateSubForm_1.oad()DimiAsIntegerFori=1To1001.istl.AddItemCStr(i)&_ubottle(三)ofbeeronthewall.uNextiSetHScrollMe,1.istl,1.istl.1.ist(0)EndSubAddthiscode,whichin

5、cludestherequiredAPIdeclarationsandtheSetHScroIIroutine,toaBASmodule.TheSetHScroIIroutineusestheSendMessageAPIfunctiontosendthe1.B_SETHORIZONTA1.EXTENTmessagetoalistbox.Thelastargumentisanitemfromthelist,preferablyoneofthelongestitems.SetHScroIIdeterminesthestringswidthinpixelsandpassesthisvaluetoth

6、elistboxalongwiththe1.B_SETHORIZONTA1.EXTENTmessage.Thelistboxsetsitshorizontalextenttothisvalue,andifitiswiderthanthelist-boxcontrol,thelistboxdisplaysahorizontalscrollbar:#IfWin32ThenDeclareFunctionSendMessage1.ib11user3211_AliasnSendMessageAn(_ByValhwndAs1.ong,ByValwMsgAs1.ong,ByValwParamAs1.ong,

7、IParamAs1.ong)As1.ong#ElseDeclareFunctionSendMessage1.ib,user3211_AliasSendMessageAn(_ByValhwndAsInteger,ByValwMsgAsInteger,ByValwParamAsInteger,IParamAs1.ong)As1.ong#EndIf,Defineconstantformessagetolist-boxcontrolConst1.B_SETHORIZONTA1.EXTENT=&H194PublicSubSetHScroll(FrmAsForm,CtrlAs_Control,StrTex

8、tAsString)DimnScaleModeAsIntegerDimnTextWidthAsInteger,ScaleinpixelsforwindowmessagenScaleMode=Frm.ScaleModeFrm-ScaleMode=3,Getthewidth,inpixels,ofthetextstringnTextWidth=Frm.TextWidth(StrText),SendamessagetothelistboxSendMessageCtrl.hwnd,1.B_SETHORIZONTA1.EXTENT,nTextWidth,O,Restorepreviousscalemod

9、eFrm.ScaleMode=nScaleModeEndSub-PeterGomis,Shelton,ConnecticutVB416/32,VB51.evel:BeginningGETTHETRUEMEMBEROFANOPTIONARRAYSettinganelementinanarrayofoptionbuttonstoTrueiseasy.Clickontheoptionbutton,orusethiscode:OptionArray(ThisOne)=TrueThisOneistheIndexofthememberyouwanttobeselected.GettingtheTrueme

10、mberofanoptionarrayisnotsosimple.Becauseyouneedtoperformthiskindoftaskinalmostanyreasonablycomplexprogram,addingthisfunctiontoyourcodelibraryorgenericmodulesimplifiesthetask.Youdon,tneedtoknowthearraysizeinadvance:FunctionOptionTrueIs(OptionArrayNameAs_Variant)AsInteger,ReturnstheindexoftheTrue,memb

11、erofanoptionarrayDimCtlasControlForEachCtlinOptionArrayNameIfCtl.Value=TrueThenOptionTruels=Ctl.IndexExitForEndIfNextEndFunctionYoucanusetheroutinetosetaPublicvariablefromaPropertiessheetusingthisformat:SomePublicVariable=OptionTrueIs(SomeOptionArray()Orusethiscodetosaveaprogramvariablebetweenruns:S

12、aveSetting(uMyAppu,uOptionSettingsu,_OptionKeyn,OptionTrueIs(SomeOptionArray()1.oadtheroutineusingthiscode:SomeOptionArray(GetSetting(uMyAppu,uuzOptionsettings,OptionKeyn,O)j=TrueOryoucanloadtheroutineusingthiscode:SomePublicVariable=GetSetting(uMyAppu,11zOptionSettings,nOptionKeyn,O)Usethiscodetoco

13、ntrolaSelectCasestructure:SelectCaseOptionTrueIs(SomeOptionArray()CaseO:,ThiscodewillexecuteifelementO,ofSomeOptionArray()isselected.EndSelectUsethiscodetotestacondition:IfOptionTrueIs(SomeOptionArray()=SomeValueThen,Thiscodewillexecuteifelement,SomeValueofSomeOptionArray()is,selected.EndIf-RogerGil

14、christ,Ourimbah,NewSouthWales,AustraliaVB416/32,VB51.evel:IntermediateDEBUGERRORHAND1.ERSVisualBasicgivesyoutheoptiontoturnofferrortrappinginyourprojects.Thisisusefulwhenyoususpectthatyourerrorhandlerscontainerrorsthemselves.Toturnofferrorhandlingglobally,chooseOptionsfromtheToolsmenu.SelecttheGener

15、altab,andselectBreakonAllErrors.Thenexttimeyourunyourprojectinthedevelopmentenvironment,VisualBasicwillbreakwheneveranerroroccursinyourcode,whethertheerroristrappedornot.-JeffreyP.McManus,SanFrancisco,CaliforniaVB3,VB416/32,VB51.evel:BeginningPROTECTDATAWITHINMODU1.ESUsePrivatevariablesinBASmodulest

16、oprotectdatathatthemodulesroutinesmustaccess,butwhichshouldbehiddenfromtherestoftheapplication:Dimhidden_dataAsIntegerFunctionGetData()AsIntegerGetData=hidden_data*2EndFunction-RodStephens,Boulder,ColoradoVB3,VB416/32,VB5,VBA1.evel:IntermediateCONVERTATEXTFI1.EINTOACCESSMDBItcanbetroublesometoconver

17、tatextfileintoanAccessdatabase.IttakesalotoftimetoopenthefileforsequentialaccessandcreatenewrecordsusingtheAddNewmethod.Instead,usetheTextISAMdriverandSQ1.todothejobforyou.First,createaSCHEMA.INIfileforthetextfileandplaceitinthesamedirectoryasthetextfile.Usethiscodetoconvertthedatabase:DimdbAsDataba

18、se,tblasTableDefSetdb=DBEngine.CreateDatabase(App.Path&_mymdb.mdb,Cib1.angGeneral,dbVersion_0)Settbl=db.CreateTableDef(11Tem11)tbl.Connect=uTextzdatabase=C:vbpjdatautbl.SourceTableName=HCustomer#txtndb.TableDefs.Appendtbldb.ExecuteSelectTemp.*intoNewTablefromTempudb.TableDefs.Deletetbl.Namedb.CloseS

19、ettbl=NothingSetdb=NothingNow,youonlyneedtocreateindexes.Youcanusethismethodtoconverttextfilesinexcessof100,000recordsinafewseconds.-RichardMageau,Warren,RhodeIslandVB3,VB416/32,VB5,VBA1.evel:IntermediateQUICKANDEASYSCHEMAJNiTocreateaSCHEMA.INIfileforatextfilequicklyandeasily,lettheODBCsetupanddrive

20、rsdoitforyou.GototheControlPanelandstartODBC.ClickontheAddbuttonandselecttheTextdriver.ClickontheOptionsbuttonanddescribehowtoarrangethetextfile.Ifyourtextfilehasaheaderrecord,clickontheGuessbutton,andtheCoIumnNameswillbefilledoutforyou.Onthelastscreen,chooseCanceltoavoidsettingupthedatasource.Check

21、thedirectorywherethetextfileresides,andyoullfindanewSCHEMA.INIfile.-RichardMageau,Warren,RhodeIslandVB416/32,VB51.evel:IntermediateCONTRO1.ARRAYSARECO1.1.ECTIONSMostVB4programmersknowtheycanaccessaformscontrolcollectionusingaForEachloop.Many,however,arenotawarethatindividualcontrolarraysareactuallyc

22、ollections.Thisknowledgecanbehelpfulwhencheckingthepropertiesofseveralcontrols,especiallywhennewcontrolsareloadedatruntime.Youmightwishtocreateaforminwhichalltextboxesmustbefilledout.Insteadofassigningauniquenametoeachtextbox,createacontrolarraywitheachtextboxnamedttFields.Youcanusethisnameasyouuset

23、henameofanycollectioninaForEachloop:DimvForEachvIntxtFieldsIfv.Text=ThenMsgBoxuAllfieldsmustbe_,filledout.,VbExclamation+_VbOKOnlyExitSubEndIfNextBecausetxtFieldsisacollection,youcanalsodeterminehowmanytextboxesareinthearraybycheckingthevalueoftxtFields.Count.Formoreinformation,seeKarlE.Peterson1SQ&

24、Acolumn,TheKeystoYourControlsVBPJAugust1997.-DanielBuskirk,TheBronx,NewYorkVB3,VB416/32,VB5,VBA1.evel:BeginningSETAF1.AGTOTRUE/FA1.SEWhenyouwanttosetaflagtoTrueorFalse,dependingontheresultsofacomparison,youdon,tneedtouseanIfstatementlikethis:Ifx3thenGreater=TrueElseGreater=FalseEndIf1.ogicaloperator

25、sreturnavaluelikeanyotheroperator.Instead,usethissyntax:Greater=x3Thisway,youmovedirectlytotheresultofthecomparisoninyourflag.Itisshorterandfasterthantheformexample.-MartinGirard,Chicoutimi,Quebec,CanadaVB3,VB41632,VB5,VBA1.evel:IntermediateSUPPORTAFONTTHEPRINTERDOESNTOftenusersprintfromapplications

26、thatsupportafonttheprinterdoesn,t.AnerroroccursifanapplicationusesastatementsuchasPrinter.PrintSomethingToPrintfollowingaPrinterTontName=FontNamestatement,andtheprinterdoesntsupporttheFontName.Youcanusethisfunctionprocedureasacorrectivemeasureaftertheerroristrapped.Thisfunctionprocedureusesonlyonepa

27、rameter-thefontnamesspecifiedbytheapplication.Iftheprinterdoesntsupportthefont,thefunctionprocedurereturnsafontontheprintermostsimilartothefontintheapplication:FunctionFindFont(SpecifiedFontAsString),findthefontontheprinterwhichisthe,closesttothefontnamepassedtothisprocedure:Dimi%,tempfont%Fori%=1To

28、Printer.FontCountter11pfont=InStr(Printer.Fonts(i%),SpecifiedFont),Getfont,sposition.Iftempfont0ThenExitForEndIfNextIftempfont0ThenFindFont=Printer.Fonts(i%)Else,takeanactionifnosimilarfontsare,foundonthisprinterEndIfEndFunctionInyourerrorhandler,usethisfunctioninconjunctionwiththeFontNamepropertyof

29、thePrinterobject.Afteryoutakethiscorrectivemeasure,resumetheexecutionofyourprogram:Printer.FontName=FindFont(SpecifiedFont)ResumeNext-BrianHunter,Brooklyn,NewYorkVB432,VB5,VBA1.evel:IntermediateCENTERFORMSWITHTASKBARVISIB1.EJustabouteveryVBdeveloperusestheMove(Screen.Width-Width)2,(Screen.Height-Hei

30、ght)2methodtocentertheformsonscreen.However,whentheuserhastheWindows95orNT4.0taskbarvisible,yourformcentersonscreenbutdoesnttakeintoaccountthepositionofthetaskbaritself.TheCenterForm32routinecentersaforminavailablescreenarea,takingintoaccountthetaskbar.AddthiscodetotheDeclarationssectionofamodule,an

31、dputthecodeCenterForm32MeontheForm_1.oadeventoftheformsyouwanttocenter:OptionExplicitPrivateConstSPI_GETWORKAREA=48PrivateDeclareFunction_SystemParametersInfoS1.ib,User32,_AliasSysternParametersInfoA(_ByValuActionAs1.ong,ByValuParamAs1.ong,IpvParamAsAny,ByValfuWinlniAs1.ong)PrivateTypeRECT1.eftAs1.o

32、ngTopAs1.ongRightAs1.ongBottomAs1.ongEndTypePublicFunctionCenterForm32(frmAsForm)DimScreenWidthS,ScreenHeightS,Screen1.eftSzScreenTop&DimDesktopAreaAsRECTCallSystemParametersInfo(_SPI_GETWORKAREA,0,DesktopAreazO)ScreenHeight=(DesktopArea.Bottom-_DesktopArea.Top)*Screen.TwipsPerPixelYScreenWidth=(Des

33、ktopArea.Right-_DesktopArea.1.eft)*Screen.TwipsPerPixelXScreen1.eft=DesktopArea.1.eft*Screen.TwipsPerPixelXScreenTop=DesktopArea.Top*Screen.TwipsPerPixelYfrm.Move(ScreenWidth-frm.Width)2+Screen1.eft,(ScreenHeight-_frm.Height)2+ScreenTopEndFunction-MigueISantos,Aveiro,PortugalVB3,VB416/321.evel:Inter

34、mediateDISP1.AYTOO1.TIPSYoucaneasilyduplicatethetooltipsthatappearwhenyoufloatthemouseoverabuttoninMicrosoftsproducts.Thiscodedisplaysthetooltipinthelowerright-handcornerofthecontrol(normallyabutton):,xTip:stringtodisplayasthetip,xCtrl:controlyouwantthetiptoshowfor.,XTipControl:controlbeingusedtodis

35、play,thetip(anSSPanel)PublicSubShowTip(xTipAsString,xCtrlAs_Control,XTipControlAsControl)XTipControl.1.eft=xCtrl.1.eft+xCtrl.WidthXTipControl.Top=xCtrl.Top+xCtrl.HeightXTipControl.Caption=xTipXTipControl.Visible=TrueEndSubThiscodehidesthetooltip:XTipControl:controlwhichisbeingusedto,displaythetip.Pu

36、blicSubHideTip(XTipControlAsControl)XTipControl.Visible=FalseEndSubPlacetheShowTipfunctionintheMouseMoveeventofthecontrol(三)forwhichyouwanttodisplayatip.PlacetheHideTipfunctionintheothercontrol(三)forwhichyoudontwanttodisplayatip:SubCommandl_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingl

37、e)ShowTipnCommandl,Commandl,SSPanellEndSubSubCommand2_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ShowTip,Comr11and2,Command2,SSPanellEndSubSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)NotooltipforformHideTipTextlEndSub-AndyMclnturff,Erwin,TennesseeVB51.evel:

38、IntermediateUSESUBSCRIPTSANDSUPERSCRIPTSYoucanusesubscriptsandsuperscriptsinaRichTextBoxcontrol.Topreventthecontrolfromtruncatingtextthatisraisedorloweredtoofar,reducethecharacterssizeaccordingly:PrivateSubForm_1.oad()RichTextBoxl.Font-Name=TimesNewRoman,RichTextBoxl.Font.Size=10RichTextBoxl.Text=,H

39、2SO4,Movethenumbersdown2points.MakeSubscriptRichTextBoxl,1,1,-2MakeSubscriptRichTextBoxl,4,1,-2EndSubPrivateSubOffsetRichText(boxAs_RichTextBox,startAsInteger,lengthAsInteger,offsetAsInteger)box.SelStart=startbox.Sel1.ength=lengthbox.SelFontSize=box.Font.Size+offsetbox.SelCharOffset=-ScaleY(offset,v

40、bPoints,vbTwips)box.SelStart=Obox.Sel1.ength=OEndSub-RodStephens,Boulder,ColoradoVB4321.evel:AdvancedP1.AYWAVSOUNDSFROMRESOURCEFI1.ESEveryonelovesagoodsoundbite.YoucanusethePIaySoundOfunctionintheWindowsMultimediaD1.1.(WINMM.D1.1.)toplayawave(WAV)filethatisstoredasaresource.Althoughyoucandothisusing

41、theSndPIaySoundfunction,SndPIaySoundrequiresyoutofind,load,lock,unlock,andfreetheresource.PIaySoundachievesallofthiswithasinglelineofcode.Addthislineofcodetoyourresourcefile(RC)designatinganameforthesoundanditslocation:MySoundWAVEc:musicvanhalen.wavThenameMySoundisaplaceholderforanameyousupplytorefe

42、rtothisWAVresourceincode.Compiletheresourcefileusingtheresourcecompiler(RC.EXE)tocreateaRESfile.IncludethisfileinyourVBproject.Usethiscodetoplaythesound:PrivateDeclareFunctionPlaySound1.ib_,winmm.dll,AliasnPlaySoundAn(_ByValIpszNameAsString,ByValhModuleAs1.ong,ByValdwFlagsAs1.ong)As1.ongPrivateConst

43、SND_ASYNC&=&H1,PlayasynchronouslyPrivateConstSND_NODEFAU1.T&=&H2,SilenceifsoundnotfoundPrivateConstSND_RESOURCE&=&H40004,NameisresourcenameoratomDimhlnstAs1.ong,HandletoApplicationInstanceDimSSoundNameAsStringStringtoholdsoundresourcenameDimIFlagsAs1.ongPlaySound()flagsDimIRetAs1.ongReturnvaluePriva

44、teSubCommandl_Click()hlnst=App.hlnstanceSSoundName=nMySoundnIFlags=SND_RESOURCE+SND_ASYNC+_SND_NODEFAU1.TIRet=PlaySound(SSoundName,hlnst,IFlags)EndSubNotethatyoumustcompilethisapplicationandruntheresultingEXEdirectlyforthiscodetoworkbecauseitreliesontheapplicationinstancehandle.WhileintheVBdevelopme

45、ntenvironment,AppJnstancereturnsaninstancehandletotherunningVB32.EXEprocess,nottheapplicationunderdevelopment.ForacompletedescriptionofPlaySound(),refertotheMultimediasectionoftheWin32SDK.-SteveDavis,Gaithersburg,MarylandVB3,VB416/32,VB51.evel:IntermediateABETTERWAYTOSWAPTWOINTEGERVARIAB1.ESThealgor

46、ithmshowninthetip,SwapValuesUsingOnlyTwoVariables101TechTipsforVBDevelopers,SupplementtotheFebruary1997issueofVBPJ5page25,crashesnotonlyif(a+b)=32K,butif(a+b)-32Kalso.Iusuallyusethisalgorithminstead:a=aXorb:b=aXorb:a=aXorb.Thisworksforalmostanyprogramminglanguage.-AIexBootman,FosterCity,CaliforniaVB

47、432,VB51.evel:IntermediateWRITE1.ESSCPU-BOUNDANIMATIONSWhendoinganimation,suchasscrollingalabelorusingpictureboxes,IfirstusedthemethoddescribedbyEricBernatchez(SmootherControlAnimation,101TechTipsforVBDevelopers,SupplementtotheFebruary1997issueofVBPJ,page21).However,IfoundthatwhileintheDo1.oop,theCP

48、Uusageis100percent!WindowsNT,Windows95,andWin32haveanAPIcallnamedS1.EEP.Thiscallsuspendsthecalledapplicationforthesuppliedamountofmilliseconds.Whenyouchangethecode,theCPUusageonaPentium100dropsto10percent:DeclareSubSleep1.ib11kernel3211(_ByValdwMiIlisecondsAs1.ong)PublicSubScrolling()1.abell.1.eft=Me.WidthDoS