[es] - Otvaranje slika u zavisnosti od reci koju unesemo u textbox

uros2002
Dejan Ranisavljevic
Dobanovci

Član broj: 133852
Poruke: 119
*.dynamic.isp.telekom.rs.

Profil

Otvaranje slika u zavisnosti od reci koju unesemo u textbox

^{21.10.2010. u 19:51 - pre 164 meseci}

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

Dejan Ranisavljevic

Odgovor na temu

aca andrijevic
aka LoGaN
Nis

Član broj: 35450
Poruke: 347
217.16.132.*

ICQ: 325309560

+2 Profil

Re: Otvaranje slika u zavisnosti od reci koju unesemo u textbox

^{21.10.2010. u 21:03 - pre 164 meseci}

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

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Odgovor na temu