没有合适的资源?快使用搜索试试~ 我知道了~
VB.NET2005程序设计源代码
需积分: 3 38 下载量 71 浏览量
2009-03-28
10:26:16
上传
评论 1
收藏 1.51MB DOC 举报
温馨提示
试读
33页
介绍VBNET的窗体控件的应用,是学生上机实践所用的源程序代码.可以直接复制粘贴就可以应用了.
资源推荐
资源详情
资源评论
VB.NET2005 源代码 B
例 3-1 源代码
例 3-1 的设计界面:
例 3-1 源代码
Public Class Form1
Dim graph As Graphics = Me.CreateGraphics
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim mypen1 As Pen = New Pen(Color.Blue, 5)
Dim mypen2 As Pen = New Pen(Color.Red, 5)
graph.DrawEllipse(mypen1, 50, 50, 100, 100)
graph.DrawEllipse(mypen2, 50, 50, 150, 200)
mypen1.Dispose()
End Sub
1 / 33
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
graph.Clear(Me.BackColor)
End Sub
End Class
例 3-1 运行结果
例 3-2 源代码
例 3-2 的设计界面:
2 / 33
3 / 33
例 3-2 源代码
Public Class Form1
Private Sub 打 开 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 打开 ToolStripMenuItem.Click
Dim str As String
OpenFileDialog1.ShowDialog()
str = OpenFileDialog1.FileName
RichTextBox1.LoadFile(str, RichTextBoxStreamType.PlainText)
End Sub
Private Sub 退 出 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles 退出 ToolStripMenuItem.Click
Me.Close()
End Sub
End Class
例 3-2 运行结果
4 / 33
例 3-3 源代码
例 3-3 的设计界面:
5 / 33
剩余32页未读,继续阅读
资源评论
lh1234561919
- 粉丝: 0
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功