Picturebox在VB.Net中根据其用途不起作用

时间：2014-04-12 09:38:51

标签： vb.net winforms forms vb.net-2010

我现在对我的程序感到很困惑，因为根据其目的，它的行为确实不同我想要做的是，如果上一个表单中的文本框中的文本与文本框中的文本相同下一个表单它将显示picture1这是一个复选标记，否则它将显示picture2这是一个十字标记，但发生的是相反，如果其中一个文本为空或null，但如果所有文本框都有一个值，是否所有文本框上的文本texboxes满足声明，它将始终显示picture2，这是一个十字标记。我希望你能帮帮我。谢谢你。

Imports System.Convert
Imports System.IO
Imports System.Windows.Forms.PictureBox
Imports System.Drawing.Image

Public Class Form4
Inherits System.Windows.Forms.Form
Private frm1 As Form1
Private frm2 As Form2
Public frm3 As Form3
Private frm4 As Form4
Private frm5 As Form5


Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim lbl3 As Integer
    lbl3 = CInt(lbl3)

    Me.Visible = False


End Sub
Public Sub New1(ByVal callerInstance As Form1)

    ' Call required if you add your constructor manually
    InitializeComponent()

    ' save the instance of the Me variable passed to this constructor
    frm1 = callerInstance
End Sub
Public Sub New5(ByVal callerInstance As Form2)

    ' Call required if you add your constructor manually
    InitializeComponent()

    ' save the instance of the Me variable passed to this constructor
    frm2 = callerInstance
End Sub
Public Sub New4(ByVal callerInstance As Form3)

    ' Call required if you add your constructor manually
    InitializeComponent()

    ' save the instance of the Me variable passed to this constructor
    frm3 = callerInstance
End Sub
Public Sub New3(ByVal callerInstance As Form4)

    ' Call required if you add your constructor manually
    InitializeComponent()

    ' save the instance of the Me variable passed to this constructor
    frm4 = callerInstance
End Sub
Public Sub New5(ByVal callerInstance As Form5)

    ' Call required if you add your constructor manually
    InitializeComponent()

    ' save the instance of the Me variable passed to this constructor
    frm5 = callerInstance
End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim frm1 As Form1 = Form1
    Dim frm2 As Form2 = Form2
    Dim frm3 As Form3 = Form3
    Dim frm5 As Form5 = Form5




        frm5.Label21.Text = frm1.TextBox1.Text
        frm5.Label21.ForeColor = Color.Black



        frm5.Label22.Text = frm1.TextBox2.Text
        frm5.Label22.ForeColor = Color.Black



        frm5.Label23.Text = frm1.TextBox3.Text
        frm5.Label23.ForeColor = Color.Black


        frm5.Label24.Text = frm1.TextBox4.Text
        frm5.Label24.ForeColor = Color.Black



        frm5.Label25.Text = frm1.TextBox5.Text
        frm5.Label25.ForeColor = Color.Black



        frm5.Label26.Text = frm1.TextBox6.Text
        frm5.Label26.ForeColor = Color.Black


        frm5.Label27.Text = frm1.TextBox7.Text
        frm5.Label27.ForeColor = Color.Black



        frm2.Label28.Text = frm1.TextBox8.Text
        frm2.Label28.ForeColor = Color.Black



        frm5.Label29.Text = frm1.TextBox9.Text
        frm5.Label29.ForeColor = Color.Black


        frm5.Label30.Text = frm1.TextBox10.Text
        frm5.Label30.ForeColor = Color.Black



        frm5.Label31.Text = frm1.TextBox11.Text
        frm5.Label31.ForeColor = Color.Black


        frm5.Label32.Text = frm1.TextBox12.Text
        frm5.Label32.ForeColor = Color.Black



        frm5.Label33.Text = frm1.TextBox13.Text
        frm5.Label33.ForeColor = Color.Black



        frm5.Label34.Text = frm1.TextBox14.Text
        frm5.Label34.ForeColor = Color.Black


        frm5.Label35.Text = frm1.TextBox15.Text
        frm5.Label35.ForeColor = Color.Black


        frm5.Label36.Text = frm1.TextBox16.Text
        frm5.Label36.ForeColor = Color.Black



        frm5.Label37.Text = frm1.TextBox17.Text
        frm5.Label37.ForeColor = Color.Black



        frm5.Label38.Text = frm1.TextBox18.Text
        frm5.Label38.ForeColor = Color.Black


        frm5.Label39.Text = frm1.TextBox19.Text
        frm5.Label39.ForeColor = Color.Black



        frm5.Label40.Text = frm1.TextBox20.Text
    frm5.Label40.ForeColor = Color.Black
    Dim tb1 As TextBox = frm3.TextBox1

    Dim tb2 As TextBox = frm3.TextBox2
    Dim tb3 As TextBox = frm3.TextBox3
    Dim tb4 As TextBox = frm3.TextBox4
    Dim tb5 As TextBox = frm3.TextBox5
    Dim tb6 As TextBox = frm3.TextBox6
    Dim tb7 As TextBox = frm3.TextBox7
    Dim tb8 As TextBox = frm3.TextBox8
    Dim tb9 As TextBox = frm3.TextBox9
    Dim tb10 As TextBox = frm3.TextBox10

    If tb1.Text IsNot Nothing Then
        If (frm1.TextBox2.Text.Equals(tb1.Text)) And frm1.TextBox2.Text = tb1.Text Then
            frm5.PictureBox1.Image = Image.FromFile("D:\checkmark.jpg")

        Else
            frm5.PictureBox1.Image = Image.FromFile("D:\crossmark.jpg")

        End If
    Else
        frm5.PictureBox1.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb2.Text IsNot Nothing Then
        If (frm1.TextBox4.Text.Equals(tb2.Text)) And frm1.TextBox4.Text = tb2.Text Then
            frm5.PictureBox2.Image = Image.FromFile("D:\checkmark.jpg")

        Else

            frm5.PictureBox2.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else
        frm5.PictureBox1.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb3.Text IsNot Nothing Then
        If (frm1.TextBox6.Text.Equals(tb3.Text)) And frm1.TextBox6.Text = tb3.Text Then
            frm5.PictureBox3.Image = Image.FromFile("D:\checkmark.jpg")
        Else

            frm5.PictureBox3.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else

        frm5.PictureBox3.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb4.Text IsNot Nothing Then
        If (frm1.TextBox8.Text.Equals(tb4.Text)) And frm1.TextBox8.Text = tb4.Text Then

            frm5.PictureBox4.Image = Image.FromFile("D:\checkmark.jpg")
        Else
            frm5.PictureBox4.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else

        frm5.PictureBox3.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb5.Text IsNot Nothing Then
        If (frm1.TextBox10.Text.Equals(tb5.Text)) And frm1.TextBox10.Text = tb5.Text Then

            frm5.PictureBox5.Image = Image.FromFile("D:\checkmark.jpg")
        Else
            frm5.PictureBox5.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else

        frm5.PictureBox3.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb6.Text IsNot Nothing Then
        If (frm1.TextBox12.Text.Equals(tb6.Text)) And frm1.TextBox12.Text = tb6.Text Then

            frm5.PictureBox6.Image = Image.FromFile("D:\checkmark.jpg")
        Else
            frm5.PictureBox6.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else

        frm5.PictureBox3.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb7.Text IsNot Nothing Then
        If (frm1.TextBox14.Text.Equals(tb7.Text)) And frm1.TextBox14.Text = tb7.Text Then
            frm5.PictureBox7.Image = Image.FromFile("D:\checkmark.jpg")
        Else
            frm5.PictureBox7.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else

        frm5.PictureBox3.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb8.Text IsNot Nothing Then
        If (frm1.TextBox16.Text.Equals(tb8.Text)) And frm1.TextBox16.Text = tb8.Text Then

            frm5.PictureBox8.Image = Image.FromFile("D:\checkmark.jpg")
        Else
            frm5.PictureBox8.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else

        frm5.PictureBox3.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb9.Text IsNot Nothing Then
        If (frm1.TextBox18.Text.Equals(tb9.Text)) And frm1.TextBox18.Text = tb9.Text Then
            frm5.PictureBox9.Image = Image.FromFile("D:\checkmark.jpg")
        Else
            frm5.PictureBox9.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else

        frm5.PictureBox3.Image = Image.FromFile("D:\crossmark.jpg")
    End If
    If tb10.Text IsNot Nothing Then
        If (frm1.TextBox20.Text.Equals(tb10.Text)) And frm1.TextBox20.Text = tb10.Text Then

            frm5.PictureBox10.Image = Image.FromFile("D:\checkmark.jpg")
        Else

            frm5.PictureBox10.Image = Image.FromFile("D:\crossmark.jpg")
        End If
    Else

        frm5.PictureBox10.Image = Image.FromFile("D:\crossmark.jpg")
    End If


    If frm5 IsNot Nothing Then
        frm5.Visible = False

        frm5.Show() 'Show Second Form  

        Me.Hide()
    End If

End Sub

Private Sub Form5HasBeenClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs)
    Throw New NotImplementedException
End Sub

结束班

1 个答案:

答案 0 :(得分：0)

我尝试过你的代码并让它工作我需要改变一些事情。

1e更改如果tb1.Text IsNot Nothing然后：
如果不是tb1.Text =＆＃34;＆＃34;然后＆＃34; ＆＃34;否则，如果我删除了文本框，那么其他方法就不起作用了＃34;

2e我需要将frm1更改为Form1，将frm5更改为Form5＆＃34;它给了我错误＆＃34;

3e如果你使用If（frm1.TextBox2.Text.Equals（tb1.Text））和frm1.TextBox2.Text = tb1.Text那么 ＆＃34;你没有同时检查2次？＆＃34;

所以改成它： 如果（Form1.TextBox2.Text.Equals（tb1.Text））那么

然后代码工作并完成它需要做的事情。

   If Not tb1.Text = "" Then
        If (Form1.TextBox2.Text.Equals(tb1.Text)) Then
            Form5.PictureBox1.Image = Image.FromFile("D:\checkmark.jpg")
        Else
            Form5.PictureBox1.Image = Image.FromFile("D:\crossmark.jpg")

        End If
    Else
        Form5.PictureBox1.Image = Image.FromFile("D:\crossmark.jpg")
    End If
相关问题
最新问题