16,553
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a, b As Integer
a = 2
b = a
a = 3
MsgBox(b)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim BMP1, BMP2 As New Bitmap(255, 208)
Dim G1 As Graphics = Graphics.FromImage(BMP1)
G1.DrawLine(New Pen(Color.Black, 3), 0, 0, 200, 200)
BMP2 = BMP1
Me.PictureBox2.Image = BMP2
G1.DrawLine(New Pen(Color.Red, 3), 0, 200, 200, 0)
Me.PictureBox1.Image = BMP1
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim BMP1, BMP2 As New Bitmap(255, 208)
Dim G1 As Graphics = Graphics.FromImage(BMP1)
G1.DrawLine(New Pen(Color.Black, 3), 0, 0, 200, 200)
G1.DrawLine(New Pen(Color.Red, 3), 0, 200, 200, 0)
Me.PictureBox1.Image = BMP1
BMP2 = BMP1
Me.PictureBox2.Image = BMP2
End Sub