Hi,
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
please please
give me answer quickly
best wishes

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.

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

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

OK.
all For the best.

Comments
help me too
This article has been dead for over six months. Start a new discussion instead.