vb.net画面保持的简单介绍
如何可以让vb.net中的DrawImage绘制出的图象持久存在,不用Paint事件。
因为你双击里面写的代码,双击VS默认添加到Form_Load事件。
创新互联专注于企业成都全网营销、网站重做改版、南开网站定制设计、自适应品牌网站建设、HTML5、成都做商城网站、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为南开等各大城市提供网站开发制作服务。
如果你想自动生成,然后选择“闪电符号(事件),然后双击里面的油漆在表格属性里面。这时VS会自动帮你添加一个
在VB.NET下面如何显示和保存缩放图像
实现代码如下:
Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg") 'tstImage是原先的图片
Dim grfx As Graphics = Me.CreateGraphics
grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) '在Form里显示
Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3) '新建一个放大的图片
imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '保存放大后图片
你可以建一个Form,然后在Form里拖进一个Button,把上面的代码放在Button_Click事件里面,执行就行了。
对上面代码的解释:
1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象。
2.加载一个图片用Image类的FromFile或者FromStream方法
3.用DrawImage来显示一个图片,该方法有30多个重载方法,可以查MSDN了解细节。
4.保存时的一个问题:我们必须先建一个对象,用于存缩放图像。
vb.net 画图 如何保持图形
不用PictureBoxTest.Image属性,直接把图形绘制到PictureBoxTest上面就可以了。
Dim button As Integer = 0
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button1.Click
Using g As Graphics = Graphics.FromHwnd(PictureBoxTest.Handle)
Dim penRed As Pen = New Pen(Color.Red, 1) '定义红色画笔
Dim penblue As Pen = New Pen(Color.Blue, 1) '定义蓝色画笔
If button = 0 Then
g.DrawLine(penRed, 0, 0, 100, 100)
button = 1
ElseIf button = 1 Then
g.DrawLine(penblue, 100, 100, 200, 200)
button = 0
End If
End Using
End Sub
如何用VB.NET写一个简单的屏幕保护程序?
在窗体上建立2个文本框text1和text2,一个按钮command1,text1里面输入你要转换的字符串,text2里面显示结果,代码如下:
Dim MyString As String
Dim EveryStr(50) As String
Dim TargetStr As String
Private Sub Command1_Click()
MyString = Text1
For i = 1 To Len(MyString)
EveryStr(i) = Right(Left(MyString, i), 1)
If Asc(EveryStr(i)) 123 And Asc(EveryStr(i)) 96 Then EveryStr(i) = \"_\"
If Asc(EveryStr(i)) 91 And Asc(EveryStr(i)) 64 Then EveryStr(i) = \"_\"
TargetStr = TargetStr EveryStr(i)
Next i
Text2 = TargetStr
TargetStr = \"\"
End Sub
引号前面怎么自动给加了个“\”?用的时候请手动把那几个“\”去掉
vb.net 用timer触发画图时 如何让上一次绘制的图形保留下来
没试过。也许这样能行:画新图时强制使前一秒的屏幕不刷新重画。具体怎么实现继续探索。
vb.net怎么保持图片内容的持久性输出啊
定义一个Bitmap,把图画到Bitmap上,然后 PictureBox1.Image = bm
下面是一个实例
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = Nothing
Dim wid As Integer = PictureBox1.ClientSize.Width
Dim hgt As Integer = PictureBox1.ClientSize.Height
Dim bm As New Bitmap(wid, hgt)
Dim g As Graphics = Graphics.FromImage(bm)
Dim mPen As New Pen(Color.Red)
mPen.Width = 1
g.TranslateTransform(0, 100)
Dim x As Single
Dim y As Single
For i = 0 To 10
For x = i To (360) Step 0.1
y = 100 * Math.Sin(x * Math.PI / 180)
g.FillEllipse(Brushes.Blue, x, y, 3, 3)
My.Application.DoEvents()
Next
g.TranslateTransform(10, 0)
My.Application.DoEvents()
Next
PictureBox1.Image = bm
PictureBox1.Refresh()
g.Dispose()
End Sub
'其根本是定义一个Bitmap,把图画到Bitmap上,然后 PictureBox1.Image = bm
当前文章:vb.net画面保持的简单介绍
文章源于:http://scyanting.com/article/hgdedj.html