Các mẹo vặt trong Visual basic 6

Một số hướng dẫn, mẹo, kinh nghiệm sử dụng ngôn ngữ VB 6 giúp nhà lập trình có thể rút ngắn được thời gian và công sức.
Nội dung trích xuất từ tài liệu:
Các mẹo vặt trong Visual basic 6 CácmẹovặttrongVisualbasic6Mẹovặt(tiếngAnhlàTips&Tricks)làtinhhoacủaVBđượccôđộnglạithànhnhữngbàingắnnhắmvàomộtđiểmnàođóđểthựchiệnmộtcôngviệcbằngVB.CácdạngcủaNgàyvàThìgiờDùngFunctionFormatđểlấyngàygiờtheodạngbạnmuốn.Thídụ:strToday=Format(Now(),dddddmmmyyyyhh:nn:ss) • Now()chotahiệngiờ(realtimelấytừđồnghồcủaCPU) • dddchoMon,Tue.vv.. • mmmchoJul,Feb.vv..Nhớdùngnnchophút.HaicáchdùngTimer1.TimercóIntervaltínhbằngmilliseconds.KhiTimer1đượcEnabled(tứclàTimer1.Enabled=True)nósẽchạySubTimer1_TimermỗiIntervalmsecs.ThídụtamuốnLabel1chớptắt(blink):Timer1.Interval=500NữagiâyTimer1.Enabled=TrueBắtđầuchạyTimer1chohếtintervalSubTimer1_Timer()Label1.Visible=NOTLabel1.VisibleEndSubCứmỗinữagiâyhểLabel1đanghiệnrathìchonótànhìnhvàngượclại.Khinàomuốnngưngchớptắtthìdùng:Timer1.Enabled=FalseLabel1.Visible=True2.Ðểlàmmộtviệctrongtươnglai,tacűngdùngTimernhưngngaytrongSubTimer1_TimertađểcâuTimer1.Enabled=FalseđểtắtTimer1saukhilàmxongcôngchuyện.Thídụ:SubTimer1_Timer()Timer1.Enabled=FalseNgưngTimer1ÐểcodelàmcôngchuyệntạiđâyEndSubÐợimộtchútCókhingayởgiừacodebạnmuốnđợi(wait)mộtchút.BạncóthểlàmtheobàimẫucủaMicrosoftnhưsau:DimPauseTime,Start,Finish,TotalTimeCodeđanglàmviệcnữachừngPauseTime=5Setdurationinseconds.Start=TimerSetstarttimeasnowFinish=Start+PauseTimesetfinishtimeDo While timer < Finish DoEvents Yield to other processes.Loop Code tiếp tục công việcTimerdùngởđâylàmộtFunctioncósẵn(inbuilt)củaVBchớkhôngphảiControlTimer.Timerchotasốgiâykểtừnừađêm.TadùngDoEventsđểkhỏidànhhếtCPUtimetrongmộtclosedDoWhileLoop.NónhườngchocácprocesskhácchạytrongkhichờđợiFinish.KhibạnchạymộtClosedLoopgiốngnhưtrênvàassignchoLabel1mộtCaptionvớivaluebiếnđổiđểFeedbackchouserbiếttìnhhìnhdiễntiếnđếnđâu,nếubạnkhôngdùngDoEventsgiốngnhưnóitrên,Label1sẽkhôngcódịprefreshđểdisplayvaluemớicủaLabel1.Caption.Khôngbiếtbạncóđểýthấycáchchờđợinhưtrêncóthểgặptrởngạinếulúcbấygiờlàgầnđếnnừađêmíthơn5giây.KhiđóFinishsẽlớnhơn3600*24giâyvàTimersẽkhôngbaogiờđạtđếnconsốấyđểnhảyrakhỏiLoop.Giốngnhưmìnhlậpgiađìnhvậy,sẽlàmmọisuốtđời,khôngcólốithoát.MộtcáchkhácđểgiảiquyếtlàtanhờmộtTimer1chạyđộclậpđểchobiếtkhinàothờigianđãtrảiqua(elapsed)bằngcáchsetmộtvariabletênblnElapsedraTrue.blnElapsedphảiđượcđểtrongphầnGeneralDeclarationđểcảcodechínhvàSubTimer1_Timerđềuthấynó.DimblnElapsedasBooleanDeclareinGeneralsectionSubTimer1_Timer()Timer1.Enabled=FalseblnElapse=TrueEndSubCodeđanglàmviệcnữachừngblnElapsed=FalseTimer1.Interval=5000Setdurationinmsecs.Timer1.Enabled=TrueStartTimer1DoDoEventsYieldtootherprocesses.LoopUntilblnElapsed Code tiếp tục công việcCáchnầycűngđượcnhưngnóvẫnbắtchẹt(holdup)CPUvàlàmcảntrởcácprocesseskhác(đâylàgiớihạncủaVB).CáchhoànhảonhấtlàtađợibằngcáchdùngTimer1,nhưngđặtphầncodecònlạiđểtiếptụccôngviệcngaytrongSubTimer1_Timer.CodeđanglàmviệcnữachừngTimer1.Interval=5000Setdurationinmilliseconds.Timer1.Enabled=TrueStartTimer1 SubTimer1_Timer()Timer1.Enabled=FalseCodetiếptụccôngviệcEndSubLàmthùngráccháylửanữagiâyTrongkhixửlý,tacóthểbiếnhìnhcủamộtImagebằngcáchchonómộtPicturemớinhư:Image1.Picture=LoadPicture(PictureName.bmp)rồibắtđầumộtTimervớiIntervalbằng500milliseconds.ÐầutiênđặtmộtTimertênTimer1lênForm.VìlúcđầuTimer1.Intervalbằng0nênTimer1chưachạyđược(giốngnhưEnabled=False)ChohìnhthùngráccháylửaImage1.Picture=LoadPicture(TrashBinOnFire.bmp)Timer1.Interval=500Timer1.Enabled=TrueNữagiâysausẽchạyTimer1_TimerSubTimer1_Timer()Timer1.Enabled=FalseNgưngTimer1ChohìnhthùngrácthườngImage1.Picture=LoadPicture(TrashBin.bmp)EndSubLàmsaođọctừmộtTextfileSauđâylàmộtthídụđọcdatatừmộtTextfiletênFriends.txtnằmtrongcùngfoldervớichươngtrìnhđangxửlý.SubForm_Load()DimstrALineasstringDimstrLocalFolderasstringDimstrFullPathFileNameasstringstrLocalFolder=App.pathIfRight(strLocalFolder,1) henstrL ...