求一段vb.net代码

一共有三张picture，单击第二张picture后，与第一张图片对换，单击第三章图片后，第三张图片与第一张对换

答案：Public Class Form1
  Private Path As String = CurDir() '本程序目录
  Private TP1, TP2, TP3 As String
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '加载图片
    TP1 = Path & "\图片1.jpg"
    TP2 = Path & "\图片2.jpg"
    TP3 = Path & "\图片3.jpg"
    PictureBox1.BackgroundImage = Image.FromFile(TP1)
    PictureBox2.BackgroundImage = Image.FromFile(TP2)
    PictureBox3.BackgroundImage = Image.FromFile(TP3)
  End Sub
  Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    Dim TPZH As String '图片中转
    TPZH = TP2
    TP2 = TP1
    TP1 = TPZH
    PictureBox1.BackgroundImage = Image.FromFile(TP1)
    PictureBox2.BackgroundImage = Image.FromFile(TP2)
    PictureBox3.BackgroundImage = Image.FromFile(TP3)
  End Sub
  Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
    Dim TPZH As String '图片中转
    TPZH = TP3
    TP3 = TP1
    TP1 = TPZH
    PictureBox1.BackgroundImage = Image.FromFile(TP1)
    PictureBox2.BackgroundImage = Image.FromFile(TP2)
    PictureBox3.BackgroundImage = Image.FromFile(TP3)
  End Sub
End Class

上一个：在asp.net(vb.net) 中 我使用gridview控件中的删除时，没有报错，但是删除不了数据
下一个：vb.net中如何把textbox里的内容填充到datagridview中？