كيف أعمل مستعرض صور ؟؟ وإستفسار آخر :(

مرحباً أخي الكريم .

هذا مثال عن كيفية عمل مستعرضات الصور, أرجو منك فهمه و إكماله :

Private Sub BtnOpen( Byval Sender As System.Object, Byval E As System.EventARgs ) Handles Btn.Click

Dim SupportedExtensions As String() = {"*.jpg", "*.bmp" , "*.png", "*.tiff", "*.gif" {

Dim FBD As New FolderBrowserDialg

If FBD.ShowDialog = 1 Then

For Each FileName As String In My.Computer.FileSYstem.GetFiles( FBD.SelectedPath, 2, SupportedExtensions )

ListBox1.Items.Add( FileName )

Next FileName

End If

End Sub

Private Sub ListBox1_SelectedIndexChanged( Byval Sender As System.Object, Byval E As System.EventArgs ) Handles ListBox1.SelectedIndexChanged

If IO.File.Exists( ListBox1.SelectedItem.ToString )Then

PictureBox1.Image = Image.FromFile( ListBox1.SelectedItem.ToString() )

Else

MsgBox( "The Given FileName Wasn't Found :( ")

End If

End Sub

بالنسبة لـ Front Page مالذي تريد ربطه بالـ Visual Basic, على ماأعتقد أن جميع مستخدمين الـ Front Page يحتاجوه لإنشاء صفحات Web, فإذا كنت تريد عرض الصفحات داخل برنامجك فيمكنك الإستعانة ب WebBrowser Control كالتالي :

Private Sub BtnNavigateSomePage_Click( Byval Sender As System.Object, Byval E As System.EventARgs ) Handles BtnNavigateSomePage.Click

Dim OP As New OpenFileDialg

OP.Filter = "HTML Documents (*.html)|*.html"

If OP.ShowDialog = 1 Then

WebBrowser1.Navigate( OP.FileName )

End If

End Sub

إذا لم يكن هذا ماتعنيه أرجو منك أن توضح بشكل أدق و شكراً .

BasharVS