资源描述：
《visual+basic+教程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VisualBasic基础经典教程1．文件的系统控件PrivateSubDrive1_Change()’Dir1Dir1.Path=Drive1.Drive’File1Dir1EndSubPrivateSubCommand1_Click()DimSelectFileAsStringIfRinght[File1.Path,1]<>“”ThenSelectFile=File1.Path&“”&File1.filenameElseSelectFile=File1.Path&File1.filenameEndIfMsgBox“你选择了文件”&SelectFile’
2、显示被选择的文件全名EndSub2．文件访问(1)顺序文件写：AppendOpen“C:TESTFILE.TXT”ForOutputAs#1Print#1,“Visual”,“Basic”’分写两打印区Print#1,“Visual”,“Basic”’紧随写入Write#1,“Data1”,100,“Data2”’加入逗号，省空间，易读Close#1读：DimFileDataAsStringOpen“C:TESTFILE.TXT”ForIutputAs#1DoUntilEOF[1]LineInput#1,FileDataText1.Text=Text1.T
3、ext&FileData&Chr[13]&Chr[10]’Text1.Multiline设为trueLoopClose#1(2)随机型文件适用于读写有固定长度记录结构的文本或二进制文件通用OptionExplictPrivateTypeScoreRecord’定义自定义数据记录类型IDAsIntegerNameAsString*20’Name为长度为20的字符串EndType事件DimMyRecordAsScoreRecord’声明变量DimRecordNumAsIntegerOpen“C:RECFILE.TXT”ForRandamAs#1Len=Len[M
4、yRecord]ForRecordNum=1To5MyRecord.ID=RecordNum’定义IDMyRecord.Name=“Name”&RecordNum写：Put#1,RecordNum,MyRecord’将记录写入文件Next读：Get#1,3,MyRecord’第三个记录Text1.Text=MyRecord.NameClose#1(1)二进制文件能读取任意有结构的文件，比随机文件更为灵活Open“…”ForBinaryAs#1Text1.Text=Input[LOF(1)’文件长度,#1]’读整个文件，中英常用格式：Put#fielname,p
5、osition,variableGet#fielname,position,variable1．多窗口（MDI）程序的设计mnuNew事件click:staticWindowsCountAsInteger’第几个窗口DimfrmDAsForm1’定义子窗口变量WindowsCount=WindowCount+1SetfrmD=NewForm1’标题frmD.Caption=“ChildWindow”&WindowCountfrmD.Show’显示子窗口mnuCascade层叠click:Me.ArragevbCascade’vbTileHorizontal横向
6、平铺vbTileVertical纵向vbArrangeIcons排列子窗口图标WindowState属性:2Max添加模块（好习惯）OptionExplicitPublicfMainFormAsADIForm1’主窗口对象Submain[]SetfmainForm=NewMDIForm1fMainForm.Show’显示主窗口EndSub工程菜单/工程1属性启动对象：SubMain由通用对象模块开始执行2．多媒体公用对话控件属性Filter.AVI.MID.WAVForm.Load:PrivateSubForm.Load()MMControl1.Wait=Fa
7、lse’设置打开设备所需属性EndSubCommand1.Click:CommonDialog1.ShowOpen’显示打开文件对话框IfCommonDialog1.filename<>‘.’Then’判断文件后缀SelectCaseUCase[Right[CommonDialog1.filename,3]]Case“WAV”’波形文件MMControl1.DeviceType=“WaveAudio”…Else’SequencerAviVideoEndSelectMMControl1.filename=CommonDialog1.filenameIfNotMM
8、Control1.Mode=mciMo
