第页共NUMPAGES5页目录()1.文本的写入2.文本的读取3.限定text里面只能输入数字4.text文本的全选5.控件位置可拖动6.延时(启动)7.删除指定位置的文件夹8.显示年月日,时分秒,以及分开显示9.窗体上的控件随窗体的大小变化而变化10.如何使用进度条11.点击label标签,进入指定网站1.文本的写入OptionExplicitPrivateSubCommand1_Click()DimaAsStringDimaaAsStringa="D:\001.txt"'路径aa="1234"+vbCrLf+"6+89"+vbCrLf+"saf"'要写入的文本OpenaForOutputAs#1Print#1,aaClose#1'写入完成之后记得关闭,不然下次打开文件时就会产生问题MsgBox"存储完成"EndSub2.文本的读取OptionExplicitPrivateSubCommand1_Click()DimaAsStringDimaaAsStringDimaaaAsStringa="D:\001.txt"'路径aa=""aaa=""OpenaForInputAs#1DoWhileNotEOF(1)LineInput#1,aa'读入一行aaa=aaa+aa+vbCrLf'存入变量(记得换行)LoopClose#1Text1.Text=aaaEndSub3.限定text里面只能输入数字PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")ThenKeyAscii=0EndIfEndSub4.text文本的全选PrivateSubText1_GotFocus()'设定起始位置Text1.SelStart=0'设定长度Text1.SelLength=Len(Text1.Text)EndSub5.控件位置可拖动OptionExplicitDimX_currentAsSingle,Y_currentAsSinglePrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)X_current=Left+XY_current=Top+YCommand1.Drag1EndSubPrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MoveX+Left-X_current,Y+Top-Y_currentEndSub6.延时(启动)OptionExplicitPublicDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)PrivateSubForm_Load()Sleep500'延时半秒启动EndSub删除指定位置的文件夹'首先工程--引用--MicrosoftScriptingRuntimeOptionExplicitPrivateSubCommand1_Click()DimaAsNewFileSystemObjecta.DeleteFolder"D:\001"MsgBox"完成"EndSub显示年月日时分秒,以及分开显示PrivateSubForm_Activate()FontSize=14PrintNowPrintDatePrintTimePrintPrint"公元";PrintVal(Format(Now,"yyyy"));"年";Print(Format(Now,"m"));"月";Print(Format(Now,"m"));"日";PrintFormat(Now,"h");"时";PrintFormat(Now,"m");"分";PrintFormat(Now,"s");"秒"EndSub窗体上的控件随窗体的大小变化而变化OptionExplicitDimw_BeforeAsLong'存储原来的宽度Dimh_BeforeAsLong'存储原来的长度PrivateSubForm_Load()w_Before=Me.ScaleWidthh_Before=Me.ScaleHeightEndSubPrivateSubForm_Resize()DimiAsControlForEac