Otvaranje slika u zavisnosti od reci koju unesemo u textbox

[ uros2002 @ 21.10.2010. 19:51 ] @

Pozdrav svima

Totalni sam pocetnik pokusavam da napravim nesto ali mi ne polazi za rukom.

Naime koristim Visual Studio 2008 i pravim aplikaciju u Windows forms
Imam dve forme
u prvoj imam textbox i 2 buuton
u drugoj imam Picturebox i 1 buuton

interesuje me sledece dali moze da kada u textbox upisem MIKA i kliknem na buuton otvori se forma2 i u picturebox otvori sliku mike
kada textbox upisem ZIKA i kliknem na buuton otvori se forma2 i u picturebox otvori sliku zike

Pocetak sam uradio ovako
Form1

Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "MIKA" Then
            Me.Hide()
            Form2.Show()
        ElseIf TextBox1.Text = "ZIKA" Then
            Me.Hide()
            Form2.Show()
        ElseIf TextBox1.Text = "" Then
            MsgBox("Greska")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub
End Class

U Form2 treba da napisem code
slocan ovom

Code:
Public Class Form2

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Form1.TextBox1.Text = "MIKA" Then
            Me.PictureBox1.Image = Image.FromFile("C:\Users\Dejan\Pictures\123\imges.jpeg")
        ElseIf Form1.TextBox1.Text = "ZIKA" Then
            Me.PictureBox1.Image = Image.FromFile("C:\Users\Dejan\Pictures\123\verlys.jpg")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End

    End Sub
End Class

samo umesto C:\Users\Dejan\Pictures\123\verlys.jpg
da stavim da mi ubaci sliku sa neke lokacije iz koje mogu kada napravim setup i instaliram na drugi racunar ta putanja do slike nemora da se menja.

Nadam se da ste me razumeli sta mi treba

[ aca andrijevic @ 21.10.2010. 21:03 ] @

Imas klasu Application.StartupPath,to ti je lokacija gde ti se izvrsava program,
pa mozes tu da smestis slike cak i kad pravis setup:

Code:
Public Class Form2

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim StartnaPutanja As String
            StartnaPutanja = Application.StartupPath
        If Form1.TextBox1.Text = "MIKA" Then
            Me.PictureBox1.Image = Image.FromFile(StartnaPutanja & "\imges.jpeg")
        ElseIf Form1.TextBox1.Text = "ZIKA" Then
            Me.PictureBox1.Image = Image.FromFile(StartnaPutanja & "\verlys.jpg")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End

    End Sub
End Class