189 8069 5689
因为你双击里面写的代码，双击VS默认添加到Form_Load事件。
创新互联专注于企业成都全网营销、网站重做改版、南开网站定制设计、自适应品牌网站建设、HTML5、成都做商城网站、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为南开等各大城市提供网站开发制作服务。
如果你想自动生成，然后选择“闪电符号（事件），然后双击里面的油漆在表格属性里面。这时VS会自动帮你添加一个
实现代码如下：
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.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。
不用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
在窗体上建立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
引号前面怎么自动给加了个“\”？用的时候请手动把那几个“\”去掉
没试过。也许这样能行：画新图时强制使前一秒的屏幕不刷新重画。具体怎么实现继续探索。
定义一个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