vb.net Bitmap Drawing
2024-10-21 03:48:59
Public Class Form1
Dim BMP As New Drawing.Bitmap(640, 480)
Dim GFX As Graphics = Graphics.FromImage(BMP)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FX.FillRectangle(Brushes.White, 0, 0, PictureBox1.Width, PictureBox1.Height)
GFX.DrawLine(Pens.Red, 10, 10, 50, 50)
GFX.DrawString("Robomatics", SystemFonts.DefaultFont, Brushes.Black, 60, 60)
PictureBox1.Image = BMP
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
BMP.SetPixel(MousePosition.X - Me.Location.X - PictureBox1.Location.X - 4, MousePosition.Y - Me.Location.Y - PictureBox1.Location.Y - 30, Color.Black)
GFX.DrawString("Robomatics", SystemFonts.DefaultFont, Brushes.Black, MousePosition.X - Me.Location.X - PictureBox1.Location.X - 4, MousePosition.Y - Me.Location.Y - PictureBox1.Location.Y - 30)
PictureBox1.Image = BMP
End Sub
End Class
最新文章
- [BI项目记]-TFS Express备份和恢复
- [工作中的设计模式]组合模式compnent
- java 写一个";HelloJavaWorld你好世界";输出到操作系统文件Hello.txt文件中
- Android常用功能代码块
- iMac 重装系统
- 跟服务器交互的Web表单(form)
- C语言中strdup函数使用方法
- Softnet_data
- Spring实战——无需一行xml配置实现自动化注入
- 正则表达式中/i,/g,/m的作用
- Java 学习第一天
- oracle 查询表名以及表的列名
- 安装oracle后登录时出现 ERROR: ORA-01031 insufficient privileges
- js 继承的简单易懂小例子
- 设置mysql InnoDB存储引擎下取消自动提交事务
- python3-基础7
- 用户不在sudoers文件中,此事将被报告
- 第三周作业(三)---WordCounter
- JavaScript高级编程———JSON
- TTPRequest 提示#import <;libxml/HTMLparser.h>;找不到 的解决方法