实验参考VBNET.docx

1、实验参考VBNETVB.NET实验指导教材（说明：下面是VB源码，要求学生做到向VB.NET的“迁移”）安徽冶金科技职业学院计算机系金秋乐实验1：VB入门基本练习实验目的：掌握标签、按钮属性的设置，理解VB编程中对象、属性、方法、事件的概念及应用实验要求：设计如右边窗体，要求单击“显示”按钮显示图中红色标签；单击“隐藏”按钮隐藏红色标签。“退出”按钮则退出整个程序。实验步骤：（1）：通过相应对象的属性设置，达到右图所示的视觉效果。（2）：通过相应对象事件代码实现动态变化：Private Sub Command1_Click()Label1.Visible = TrueEnd SubPrivat

2、e Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Label1.Visible = FalseEnd Sub实验2：VB编制图形化计算程序实验目的：将以前学习的基本程序设计思想应用于VB，理解VB编程的基本特点。实验要求：实现右图所示窗体，要求在文本框中输入数字，按“求累加和”按钮，即在下面用红色数字显示累加和结果。若文本框中输入了非法数据，要求提示用户。实验步骤：（1）：设置各对象的属性，以达到右图视觉效果。（2）编制相应的程序代码：Option ExplicitDim i As Long, x1 As Lon

3、g, x2 As Long, y As DoublePrivate Sub Command1_Click()y = 0Label3.AutoSize = TrueOn Error GoTo error_1If IsNumeric(Text2.Text) And IsNumeric(Text1.Text) Then x1 = Val(Text1.Text) x2 = Val(Text2.Text) If x1 0即可)（2）：参考事件代码：Option ExplicitDim arrow1 As Integer, arrow2 As IntegerPrivate Sub Timer1_Timer

4、()控制左右方向Label1.Caption = TimeIf arrow1 = 0 Then If Label1.Left Form1.ScaleLeft + Form1.ScaleWidth Then arrow1 = 0 Else Label1.Left = Label1.Left + 50 End IfEnd If控制上下方向If arrow2 = 0 Then If Label1.Top Form1.ScaleTop + Form1.ScaleHeight Then arrow2 = 0 Else Label1.Top = Label1.Top + 50 End IfEnd IfEn

5、d Sub实验4：高级控件的应用实验目的：掌握imagelist，treeview，listview的用法实验要求：实现右图效果，并可以在右边图标框内可以通过弹出菜单实现图标的排列。下面状态栏根据不同的选择给出相应的提示实验步骤：（1）：添加imagelist，treeview，listview控件并进行相应的属性设置（2）：参考事件代码Option ExplicitPrivate Sub bpl_Click()ListView1.Arrange = lvwNoneEnd SubPrivate Sub dddq_Click()ListView1.Arrange = lvwAutoTopEnd

6、SubPrivate Sub Form_Resize()ListView1.Left = Form1.ScaleLeft + TreeView1.Width + Label1.WidthIf Form1.Width - TreeView1.Width - Label1.Width * 2 0 Then ListView1.Width = Form1.Width - TreeView1.Width - Label1.Width * 2End IfIf Form1.Height - StatusBar1.Height * 2 0 Then ListView1.Height = Form1.Heig

7、ht - StatusBar1.Height * 2 TreeView1.Height = ListView1.Height Label1.Height = ListView1.HeightEnd IfEnd SubPrivate Sub Form_Load()Dim mynod As NodeSet mynod = TreeView1.Nodes.Add(, , sports, 体育)Set mynod = TreeView1.Nodes.Add(sports, tvwChild, ball, 球类)Set mynod = TreeView1.Nodes.Add(ball, tvwChild

8、, basketball, 篮球)Set mynod = TreeView1.Nodes.Add(ball, tvwChild, football, 足球)Set mynod = TreeView1.Nodes.Add(ball, tvwChild, pingpang, 乒乓球)Set mynod = TreeView1.Nodes.Add(ball, tvwChild, shuttlecock , 羽毛球)Set mynod = TreeView1.Nodes.Add(sports, tvwChild, swim, 游泳)Set mynod = TreeView1.Nodes.Add(swi

9、m, tvwChild, free, 自由泳)Set mynod = TreeView1.Nodes.Add(swim, tvwChild, butterfly, 蝶泳)Set mynod = TreeView1.Nodes.Add(swim, tvwChild, backstroke , 仰泳)End SubPrivate Sub Label1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)Label1.Left = Label1.Left + xTreeView1.Width = TreeView

10、1.Width + xListView1.Left = ListView1.Left + xListView1.Width = ListView1.Width - xEnd SubPrivate Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 2 Then PopupMenu paixuEnd IfEnd SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)Select C

11、ase Node.Key Case ball ListView1.ListItems.Clear StatusBar1.SimpleText = 中国球类项目全面腾飞 ListView1.ListItems.Add , basketball, 篮球, 1 ListView1.ListItems.Add , football, 足球, 2 ListView1.ListItems.Add , pingpang, 乒乓球, 3 ListView1.ListItems.Add , shuttlecock, 羽毛球, 4 Case swim ListView1.ListItems.Clear Statu

12、sBar1.SimpleText = 中国游泳全面突破历史 ListView1.ListItems.Add , free, 自由泳, 5 ListView1.ListItems.Add , butterfly, 蝶泳, 6 ListView1.ListItems.Add , backstroke, 蝶泳, 7End SelectListView1.Arrange = lvwAutoTopEnd SubPrivate Sub zbdq_Click()ListView1.Arrange = lvwAutoLeftEnd Sub实验5：简单计算机绘图程序实验目的：了解VB中绘图的基本方法实验要求：用

13、“更新数组”按钮产生一随机数组（0-100），然后用“绘图”按钮实现其柱形图的表示，用“排序”按钮实现由小到大排序，且可再用“绘图”按钮绘制新的柱形图，结果如图所示。实验步骤：（1）：添加控件，并设置相应属性。（2）：编写代码：Option ExplicitDim i As IntegerDim shuzu(10) As IntegerPrivate Sub Command1_Click()Dim k As DoublePicture1.Scale (0, 110)-(100, 0)Picture1.ClsFor i = 0 To 90 Step 10 Label1(i / 10).Top =

14、 shuzu(i / 10) + 5 Label1(i / 10).BackStyle = 0 Label1(i / 10).AutoSize = True Label1(i / 10).Left = Picture1.ScaleLeft + i + 1 Label1(i / 10).Caption = shuzu(i / 10) Picture1.Line (i, 0)-(i, shuzu(i / 10), QBColor(i / 10) For k = 0 To 5 Step 0.2 Picture1.Line (i + k, 0)-(i + k, shuzu(i / 10), QBCol

15、or(i / 10) Next kNext iEnd SubPrivate Sub Command2_Click()Dim i As IntegerDim k As IntegerDim x As IntegerFor i = 0 To 8 For k = i To 9 If shuzu(i) shuzu(k) Then x = shuzu(i) shuzu(i) = shuzu(k) shuzu(k) = x End If Next kNext iEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Command4_Click(

16、)For i = 0 To 9 shuzu(i) = Int(Rnd * 100)Next iEnd Sub实验6：简单的记事本程序实验目的：通过记事本程序的实现掌握多种控件的综合运用，以及使用FSO进行文件的操作实验要求：基本等同于WINDOWS中的记事本程序，实验步骤：（1）：控件的添加及相应属性的设置，注意：由于用到FSO对象，所以必须引用：Microsofe Scripting Runtime（2）：代码实现Option ExplicitDim check1 As Boolean, check2 As Boolean, check3 As BooleanDim myfilename A

17、s String, my1 As StringPrivate Sub Combo1_Click()Text1.FontSize = Combo1.ListIndexEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub bianji1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)bianji2.Enabled = Truebianji3.Enabled = TrueEnd SubPrivate Sub bianji2_Click()Clipboard.S

18、etText Text1.SelTextEnd SubPrivate Sub bianji3_Click()Clipboard.SetText Text1.SelTextText1.SelText = End SubPrivate Sub bianji4_Click()Text1.SelText = Clipboard.GetTextEnd SubPrivate Sub dahao_Click()Text1.FontSize = 20End SubPrivate Sub Form_Load() 可以在这里设置密码Dim password As Stringpassword = InputBox

19、(请输入密码, 密码框)Do While password 12345 password = InputBox(请输入密码, 密码框)LoopEnd SubPrivate Sub Form_Resize()Text1.Top = Form1.ScaleTop + Toolbar1.HeightText1.Left = Form1.ScaleLeftText1.Width = Form1.ScaleLeft + Form1.Width - 100Text1.Height = Form1.ScaleTop + Form1.Height - 650 - Toolbar1.HeightEnd SubP

20、rivate Sub heiti_Click()Text1.Font = 黑体heiti.Enabled = Falsesongti.Enabled = Truekaiti.Enabled = Truelishu.Enabled = TrueEnd SubPrivate Sub jiacu_Click() If check1 = False Then Text1.FontBold = True jiacu.Checked = True check1 = Not check1 Else Text1.FontBold = False jiacu.Checked = False check1 = N

21、ot check1 End IfEnd SubPrivate Sub kaiti_Click()Text1.Font = 楷体heiti.Enabled = Truesongti.Enabled = Truekaiti.Enabled = Falselishu.Enabled = TrueEnd SubPrivate Sub lishu_Click()Text1.Font = 隶书heiti.Enabled = Truesongti.Enabled = Truekaiti.Enabled = Truelishu.Enabled = FalseEnd SubPrivate Sub myabout

22、_Click()MsgBox 这是一个简单的菜单事例,其中包括输入、输出框的使用, vbOKOnly + vbInformation, 帮助End SubPrivate Sub myblack_Click()Text1.ForeColor = RGB(0, 0, 0)End SubPrivate Sub myblue_Click()Text1.ForeColor = RGB(0, 0, 255)End SubPrivate Sub myclear_Click()Text1.Text = End SubPrivate Sub myexit_Click() my1 = MsgBox(是否保存文件?

23、, vbYesNoCancel + vbQuestion, 提示) If my1 = vbYes Then Call mysave_Click End Else If my1 = vbNo Then End End If End IfEnd SubPrivate Sub mygreen_Click()Text1.ForeColor = RGB(0, 255, 0)End SubPrivate Sub mynew_Click()Static lDocumentCount As LongDim frmD As Form1lDocumentCount = lDocumentCount + 1Form

24、1.Caption = 文档 & lDocumentCountForm1.ShowText1.Text = End SubPrivate Sub myopen_Click()Dim fso As FileSystemObject, fil As File, ts As TextStreamOn Error GoTo errhandlerCommonDialog1.Filter = all files(*.*)|*.*|text files(*.txt)|*.txt|batch files(*.bat)CommonDialog1.ShowOpenSet fso = CreateObject(Sc

25、ripting.FileSystemObject)Set fil = fso.GetFile(CommonDialog1.FileName)Set ts = fil.OpenAsTextStream(ForReading)Text1.Text = ts.ReadAllts.CloseForm1.Caption = CommonDialog1.FileNameerrhandler:Exit SubEnd SubPrivate Sub myred_Click()Text1.ForeColor = RGB(255, 0, 0)End SubPrivate Sub mysave_Click()Dim

26、fso As FileSystemObject, fil As TextStreamIf myfilename = Then On Error GoTo errhandler CommonDialog1.Filter = all files(*.*)|*.*|text files(*.txt)|*.txt|batch files(*.bat) CommonDialog1.ShowSave Set fso = CreateObject(Scripting.FileSystemObject) myfilename = CommonDialog1.FileName Set fil = fso.Cre

27、ateTextFile(CommonDialog1.FileName, ForWriting) fil.Write (Text1.Text) fil.CloseElse Set fso = CreateObject(Scripting.FileSystemObject) Set fil = fso.CreateTextFile(myfilename, ForWriting) fil.Write (Text1.Text) fil.CloseEnd IfForm1.Caption = myfilenameerrhandler: Exit SubEnd SubPrivate Sub mysaveas

28、_Click()Dim fso As FileSystemObject, fil As TextStreamOn Error GoTo errhandlerCommonDialog1.Filter = all files(*.*)|*.*|text files(*.txt)|*.txt|batch files(*.bat)CommonDialog1.ShowSaveSet fso = CreateObject(Scripting.FileSystemObject)myfilename = CommonDialog1.FileNameSet fil = fso.CreateTextFile(CommonDialog1.FileName, ForWriting)fil.Write (