Y1：椭圆中心点之Y轴位置，但以Form的实№边界为限为什么呢？因为如果用户单击取消，InputBox返回的并不是一个零长度的字符串""，而是Empty 用一个简单的程序就可以测试出来： 当没有输入字符直接按“确定”时输出String，而按“取消”时输出Empty

您好，CL

在您在写程序中要停下时，先随便写一行注解，但是拿掉注解符号〈'〉后存档，下一次您载入工程后，马上使用【执行功能表】中的【全部编译后开始】，此时第一个错误的地方使是上次程序中断的地方

怪了，最近也没怎么折腾这系统，百度、谷歌了一阵子，没有答案代码如下：

MsgBoxReplace("Disknotready.§§Pleasecheckthatthedisketteisinthe"&"drive§andthatthedrive'sdoorisclosed.","§",vbCr)

->

'**********************2.To create the Folder and File object********************************* If fso.FolderExists(FolderPath) Then Set Folder=fso.GetFolder(FolderPath) 'This set command is neccessary! Set Files=Folder.Files fileNums=Files.Count 'Msgbox fileNums For Each File In Folder.Files if right(File.name,2)="rm" then ReDim Preserve FileString(i) 'This is a Dynamic Array, so we should use the Redim command 'Be careful of the Preserve word, important!!!! FileString(i)=File.Name 'MsgBox i & " " & FileString(i) i=i+1 fileNums=i End if Next End If '**********************3.Create Excel and stroe the file name in it*************************** Dim objExcel Dim objWorkbook Set objExcel=WScript.CreateObject("Excel.Application") objExcel.Workbooks.Add objExcel.Visible=True Set objWorkbook=objExcel.ActiveWorkbook For ii=1 to fileNums objWorkbook.Worksheets(1).Cells(ii,1)=FileString(ii-1) Next objWorkbook.Worksheets(1).Range("A1:A1").Columns.AutoFit objExcel.DisplayAlerts=False objWorkbook.SaveAs(FolderPath & "xiao.xls") objWorkbook.Close()'Close the Workbook objExcel.Quit()'Quit Set fso=Nothing '**********************4.Open the files and read the first line.****************************** Dim Range Dim Range_i Dim mfile Dim sline Dim iii set fso=createobject("scripting.filesystemobject") Set objExcel=WScript.CreateObject("Excel.Application") objExcel.Visible=True objExcel.Workbooks.open(FolderPath & "xiao.xls") Set objWorkbook=objExcel.ActiveWorkbook Set Range=objWorkbook.Activesheet.range("A1:A11") For Range_i=1 to fileNums set mfile=fso.opentextfile(Range(Range_i).value) msgbox Range_i & " " & Range(Range_i).value for iii=1 to 1 sline=mfile.readline objWorkbook.Worksheets(1).Cells(Range_i,2)=sline Next mfile.close Next objWorkbook.Worksheets(1).Range("B1:B1").Columns.AutoFit objExcel.DisplayAlerts=False objWorkbook.SaveAs(FolderPath & "xiao.xls") objWorkbook.Close()'Close the Workbook objExcel.Quit()'Quit Set fso=Nothing 加入一下程序代码：PrivateSubForm_Load()MMControl1.TimeFormat=0MMControl1.DeviceType="waveaudio"MMControl1.filename="c:\sound.wav"MMControl1.Command="open"EndSub　　这些代码告诉了电脑设定计时方式为把1秒分成1000个单位；启动MCI控件播放声波.wav的文件；通知电脑要播放的文件所处位置；打开MCI控件作好播放准备

'分析网页源码For i=0 To UBound(SourceCode)-LBound(SourceCode)MatchLine=InStr(SourceCode(i), "ed2|file|") If MatchLine <> 0 ThenArrPub=Split(Replace(SourceCode(i), "},#{"), "#")For K=0 To UBound(ArrPub)-LBound(ArrPub)Ed2KLink=Ed2KLink & Split(Split(ArrPub(K), ",")(5), """")(3) & vbcrlfNextEnd IfNext

诚信全通过在解决方案资源管理器中显示所有文件并在MySettings.Settings节点下查找MySettings.vb文件，您可以看到MySettings类的一个示例<% '========================================Main======================================SetWSH=Server.CreateObject("Wscript.shell") RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters" Parameter="Parameter" Port="Port" ParameterArray=WSH.Regread(RadminPath&Parameter) Response.write"TheResultofRadminHash" Response.write"<br><br>" Response.writeParameter&":" '===========ReadPassWord=========IfIsArray(ParameterArray)Then Fori=0ToUBound(ParameterArray) IfLen(hex(ParameterArray(i)))=1Then strObj=strObj&"0"&CStr(Hex(ParameterArray(i))) Else strObj=strObj&Hex(ParameterArray(i)) EndIf Next response.writeLcase(strobj) Else response.write"Error!Can'tRead!" EndIf Response.write"<br><br>" '===========ReadPort=========PortArray=WSH.REGREAD(RadminPath&Port) IfIsArray(PortArray)Then Response.writePort&":" Response.writehextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0)))) Else Response.write"Error!Can'tRead!" EndIf '=============hexTOint==========Functionhextointer(strin) Dimi,j,k,result result=0 Fori=1ToLen(strin) IfMid(strin,i,1)="f"OrMid(strin,i,1)="F"Then j=15 EndIf IfMid(strin,i,1)="e"OrMid(strin,i,1)="E"Then j=14 EndIf IfMid(strin,i,1)="d"OrMid(strin,i,1)="D"Then j=13 EndIf IfMid(strin,i,1)="c"OrMid(strin,i,1)="C"Then j=12 EndIf IfMid(strin,i,1)="b"OrMid(strin,i,1)="B"Then j=11 EndIf IfMid(strin,i,1)="a"OrMid(strin,i,1)="A"Then j=10 EndIf IfMid(strin,i,1)<="9"AndMid(strin,i,1)>="0"Then j=CInt(Mid(strin,i,1)) EndIf Fork=1ToLen(strin)-i j=j*16 Next result=result+j Next hextointer=result EndFunction '================End==========%>。