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
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
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.
thank you
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
OK.
all For the best.
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.