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