- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VBNET第九章实验报告
VB.NET第九章实验报告
姓名:蒋一一 班级:计算机(中澳)122 学号:1120240036
源程序代码与贴图
9.2 创建菜单
创建菜单(贴图)
添加工具栏与控件
9. 2.3 为菜单编写代码
为 File 菜单编写代码
Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated() _
Partial Class Form1
Inherits System.Windows.Forms.Form
System.Diagnostics.DebuggerNonUserCode() _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Private Sub 新建NToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NToolStripMenuItem.Click
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox1.Focus()
新建NToolStripMenuItem_Click(sender, e)
Me.Close()
End Sub
Private Sub 撤消UToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 撤消UToolStripMenuItem.Click
If TypeOf Me.ActiveControl Is TextBox Then
CType(Me.ActiveControl, TextBox).Undo()
End If
End Sub
Private Sub 剪切TToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切TToolStripMenuItem.Click
If TypeOf Me.ActiveControl Is TextBox Then
CType(Me.ActiveControl, TextBox).Cut()
End If
剪切TToolStripMenuItem_Click(sender, e)
End Sub
Private Sub 复制CToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制CToolStripMenuItem.Click
If TypeOf Me.ActiveControl Is TextBox Then
CType(Me.ActiveControl, TextBox).Copy()
复制CToolStripMenuItem_Click(sender, e)
End If
End Sub
Private Sub 粘贴PToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴PToolStripMenuItem.Click
If TypeOf Me.ActiveControl Is TextBox Then
您可能关注的文档
- THQC-2型实验指导书.doc
- TimeQuest分析日志.doc
- TL431应用技术资料.doc
- TOD转换AVI完美解决方案.doc
- TOPCONGTS-312全站仪的使用.doc
- TOP未来128地块项目工程-塔吊安装专项施工方案.doc
- TOT研究.doc
- TP-LINKTL-WR710N路由器的安装方法.doc
- TP-LINKWR700N无线设置手册.doc
- TP-LinkWR700N快速使用指南.doc
- 2024年广西壮族自治区青秀区《一级注册建筑师之建筑设计》资格考试必刷100题题库大全【】.docx
- 2024年浙教版小学美术第六册教学计划(3篇).pdf
- 2024年广西壮族自治区马山县《一级注册建筑师之建筑设计》资格考试必背100题内部题库含答案(达标题.docx
- 2024年执业药师之药事管理与法规通关提分题库及完整答案.pdf
- 2024年广西壮族自治区靖西市《一级注册建筑师之建筑设计》资格考试必刷100题内部题库附参考答案(夺.docx
- 2024年抵押合同范本(合集)(二篇).pdf
- 2024年教师资格之小学教育教学知识与能力综合检测试卷A卷含答案.pdf
- 2024年房屋抵押合同范本(优秀模板4篇)(7).pdf
- 2024年机电部安全工作总结(3篇).pdf
- 2024年广西壮族自治区阳朔县《一级注册建筑师之建筑设计》资格考试题库带答案(轻巧夺冠).docx
文档评论(0)