【正文】 odeInteger)IfAnd=ThenPlayFalsestopprevplayPlayTrueEndSubPrivateMMControl1_StatusUpdate()EndSub===SubPrivateOption2_Click()TrueTrueEndSubRamp。AA$FalseFalsestopPlayFalseAASpace$(255)RGetShortPathName(,Len(AA))AAMid$(AA,R)RmciSendString(playamp。AAfullscreen0amp。0,)EndSubvbCheckedAdaptPictureEndSubPrivateTimer1_Timer()DimAA$xSelectxCaseAANotOpenCaseAAStopCaseAAPlayCaseAARecordCaseAASeekCaseAAPauseCaseAAReadyEnd=SubPrivateAdaptPicture()Dim,As==_MCI_OVLY_WHERE_SOURCE,Result0(Fehler)Else()15415()15415EndSub*******************************************通用對(duì)話框?qū)］嫞ㄈ┦褂肁PI調(diào)用Winodws各種通用對(duì)話框(CommonSHELLEXECUTEINFOcbSizeLongfMaskLonghwndLonglpVerbStringlpFileStringlpParametersStringlpDirectoryStringnShowLonghInstAppLonglpIDListLong可選參數(shù)lpClassString可選參數(shù)hkeyClassLong可選參數(shù)dwHotKeyLong可選參數(shù)hIconLong可選參數(shù)hProcessLong可選參數(shù)EndSEE_MASK_INVOKEIDLISTamp。SEE_MASK_NOCLOSEPROCESSamp。SEE_MASK_FLAG_NO_UIamp。FunctionLibAlias_(SEISHELLEXECUTEINFO)LongPublicShowProperties(filenameString,AsAs打開指定文件的屬性對(duì)話框,如果返回值=32則出錯(cuò)DimAsrLongWith==OrOr========WithrShellExecuteEX(SEI)ShowPropertiesEnd中DimAsfnameString39。中獲取文件名及路徑fname(Text1)rShowProperties(fname,r32MsgBoxDeclareShellAboutShellAboutAhwndLong,szAppString,szOtherStuffString,hIconLong)Long示例:DimAs=(,Basic_AlpMouseTracker,DeclareWNetConnectionDialoghwndLong,dwTypeLong)Long示例:DimAs=2)PrivateChooseColorlStructSizeLonghwndOwnerLonghInstanceLongrgbResultLonglpCustColorsStringflagsLonglCustDataLonglpfnHookLonglpTemplateNameStringEndDeclareChooseColorChooseColorAAsAsccChooseColorDimAs=====*0)DimxDimc2Dimc4aChooseColor(cc)ClsIfThenMsgBoxchosen:x1Len()4c1Asc(Mid$(,1))c2Asc(Mid$(,+1))c3Asc(Mid$(,+1))c4Asc(Mid$(,+1))CustColor(x4)(c1)(c2256)(c365536)(c416777216)MsgBoxColoramp。Int(x4)=amp。CustColor(x4)NextCancelpressedEndDeclareSHFormatDriveshell32hwndLong,DriveLong,fmtIDLong,optionsLong)LongPrivateFunctionLibAlias(ByValAsAsDriveLetter$,Dim,DriveLetterUCase()DriveNumber(Asc(DriveLetter)65)DriveTypeGetDriveType(DriveLetter)If=ThenFloppies,=,DiskCopyRunDll_amp。DriveNumberamp。DriveNumber,39。space39。JustcaseDiskCopyRunDllRetFromMsgMsgBox(Onlycanamp。_be64,Example)EndDeclareSHFormatDriveshell32hwndLong,DriveLong,fmtIDLong,optionsLong)LongPrivateFunctionLibAlias(ByValAsAs0123360K456789選項(xiàng)0完全234完全678完全示例:要求同上DimDriveNumberamp。DriveTypeamp。RetValamp。RetFromMsg%DriveLetterUCase()DriveNumber(Asc(DriveLetter)65)letterNumber:=DriveType239。etcRetValSHFormatDrive(,0amp。0amp。=driveNOTremoveableamp。_drive!this276,Example)SelectRetFromMsgCase39。toit...39。=DriveNumber,)Case39。nothingEndIf*******************************************使用API調(diào)用Winodws各種通用對(duì)話框(CommonExplicit調(diào)用方式::==Selectfolder...)PublicBrowseInfohwndOwnerLongpIDLRootLongpszDisplayNameLonglpszTitleLongulFlagsLonglpfnCallbackLonglParamLongiImageLongEndConst=Const=DeclareCoTaskMemFreehMemLong)PublicFunctionLibAlias(ByValAsByValAsAsDeclareSHBrowseForFoldershell32AsAsDeclareSHGetPathFromIDListshell32pidListLong,lpBufferString)LongPublicBrowseForFolder(hwndOwnerLong,AsAsiNullIntegerDimAslResultLongDimAsudtBIBrowseInfo39。udtBI.hwndOwnerhwndOwner.lpszTitlelstrcat(sPrompt,=With39。APIlpIDListSHBrowseForFolder(udtBI)IfThensPathString$(MAX_PATH,=sPath)Call=vbNullChar)IfThen=iNull1)End如果選擇取消,==Function映射網(wǎng)絡(luò)驅(qū)動(dòng)器對(duì)話框Private/PublicFunctionLib_(ByValAsByValAsAs=1)打開文件對(duì)話框PrivateOPENFILENAMElStructSizeLonghwndOwnerLonghInstanceLonglpstrFilterStringlpstrCustomFilterStringnMaxCustFilterLongnFilterIndexLonglpstrFileStringnMaxFileLonglpstrFileTitleStringnMaxFileTitleLonglpstrInitialDirStringlpstrTitleStringflagsLongnFileOffsetIntegernFileExtensionIntegerlpstrDefExtStringlCustDataLonglpfnHookLonglpTemplateNameStringEndDeclareGetOpenFileNameGetOpenFileNameAAsAsofnOPENFILENAMELen(ofn)Text(*.txt)Chr$(0)*.txtChr$(0)RichFiles+++======FileTitle0Dim=(a)FileOpen:+CancelpressedEndTypeAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsTypePrivateFunctionLibAlias(pPrintdlgPrintDlg)Long39。tPrintDlgPrintDlgLen(tPrintDlg)hdc000001lpPrintTemplateNamePrintaaPrintDlg(tPrintDlg)IfThenlFromPagelToPagelMinlMaxlCopiesPrintMyPageCustomSubroutineIfWinSock1Winsock名稱為2==strCommandStringDimas=strCommandGET++HTTP/vbCrLf=+*/*vbCrLf=+text/htmlvbCrLf=+Winsock在收到數(shù)據(jù)時(shí)，事件。webDataStringwebData,=+現(xiàn)在大多數(shù)語(yǔ)言都支持客戶－服務(wù)器模式(C/S)編程，其中VB給我們提供了很好的客戶－服務(wù)器編程方式?！　CP／IP協(xié)議是Internet最重要的協(xié)議。當(dāng)兩個(gè)