Imports System.Drawing.Imaging
创新互联-专业网站定制、快速模板网站建设、高性价比望城网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式望城网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖望城地区。费用合理售后完善,10多年实体公司更值得信赖。
Public Class Form1
Dim imageName As String = "C:\Documents and Settings\...\1126.jpg "
Dim i As Image = Image.FromFile(imageName)
Dim g As Graphics = Graphics.FromImage(i) '此处从背景图创建Greaphics
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'划线
Dim BluePen As New Pen(Color.Blue, 5)
BluePen.DashStyle = Drawing2D.DashStyle.Solid
g.DrawLine(BluePen, 100.0F, 170, 500.0F, 170)
g.Dispose()
PictureBox1.Image = i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'退出
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'存盘
i.Save( "C:\testimage.jpg ", ImageFormat.Jpeg)
i.Dispose()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
PictureBox1.Image = i
End Sub
End Class
在文件catalina.bat文件中的第一行添加如下:
setJAVA_OPTS=-Xms512m-Xmx512m-XX:MaxNewSize=256m-XX:MaxPermSize=256m
这个应该可以试试spy++,检测下鼠标移动到的device,然后做出文件操作!