can you help me
i want code that show a picture and another code to save picture
finaly how can add flash on my programme
give me answer quickly
oh my god
no one help me
You can use the PictureBox control to show pictures (however there are other methods).
Likewise, you can change the picture that is being displayed during runtime with the picturebox properties. If you want to change the picture that is being displayed and make the program remember that picture, you could save the path of the picture in a text document and load the picture from that path.
As far as running flash in your program. I'm not too knowledgeable in flash, and don't know what it would take to get flash into a VB program.
You might be able to use the WebBrowser control for this purpose? I know the webbrowser control is pretty powerful, but I don't know what it's fully capable of.
but how can tack path picture that find in picture box
try this to open file image :
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click With OpenFileDialog1 '.InitialDirectory = "C:\" .Filter = "All Files|*.*|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg" .FilterIndex = 2 End With If OpenFileDialog1.ShowDialog() = DialogResult.OK Then PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName) PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage PictureBox1.BorderStyle = BorderStyle.Fixed3D lblFilePath.Text = OpenFileDialog1.FileName() End If End Sub
thank you jx_Man
thank you diyerxa
to play flash file u can use shockwave flash from com component.
To get this component you can see link from manal post.:)
this following code modified to open flash file :
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click With OpenFileDialog1 '.InitialDirectory = "C:\" .Filter = "swf File|*.swf" .FilterIndex = 2 End With If OpenFileDialog1.ShowDialog() = DialogResult.OK Then AxShockwaveFlash1.Stop() AxShockwaveFlash1.Movie = OpenFileDialog1.FileName AxShockwaveFlash1.Play() lblFilePath.Text = OpenFileDialog1.FileName() End If End Sub
all For the best.