PDA

View Full Version : یک کلید و دو Messagebox



abi_sarab
یک شنبه 24 آذر 1387, 10:01 صبح
سلام!
خوبید؟
من یه برنامه دارم که دو تا لیبل داره، یه picturebox داره و یه button.
وقتی روی لیبل اول کلیک می کنم عکس شماره 1 رو نشون می ده و وقتی روی لیبل دوم کلیک می کنم عکس شماره 2 رو نشون میده.
حالا می خوام وقتی که عکس شماره 1 نشون داده شد وقتی کلیک می کنم روی button به من پیغام عکس اول نشان داده شد رو بده و وقتی عکس شماره دو نشون داده شد به من پیغام عکس دوم نشان داده شد رو بده.
می شه کمک کنید؟
فایلش هم ضمیمه می کنم.

samispeed
یک شنبه 24 آذر 1387, 12:50 عصر
اگه منظورت این بوده که بگی عکس اول یا دوم می تونی از این استفاده کنی ولی اگر منظور دیگه ای بوده بیشتر باید توضیح بدی



Public Class Form1
Public str As String
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
PictureBox1.BackgroundImage = My.Resources.Resource1.Blue_hills
PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
Str = "اول"
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
PictureBox1.BackgroundImage = My.Resources.Resource1.Sunset
PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
str = "دوم"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim str1 As String
If str = "" Then
MessageBox.Show("عکسی موجود نیست")
Else
str1 = "عکس " + str + " نشان داده شد "
MessageBox.Show(str1)
End If

End Sub
End Class