تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التالي والسابق في PictureBox
#1
السلام عليكم  ورحمة الله وبركاته..
اخوتى لدى كود عرض صورة داخل اداه PictureBox بحيث اضع مسار الصورة فى التكست بوكس
ومن ثم أضغط على الزر ليعرضها لى داخل الاداه وما اريده هو اضافة زر التالى وزر السابق بحيث
لما اضغط مثلا على زر التالى يعرض الصورة التالية الموجودة بنفس المسار اللى فى التكست بوكس بدون
وضع المسار داخل التكست بوكس.. فهل هناك كود يقوم بهذا ؟
وجزاكم الله كل خير.


كود :
PictureBox1.ImageLocation = TextBox1.Text
وقد قمت بمشاهدة هذا الموضوع لكن لم تنجح الطريقة معى
الرد }}}
تم الشكر بواسطة: سعود , asemshahen5
#2
السلام عليكم اخي الغالي ابو روضة
تفضل هذه اكواد زر التحميل وزر سابق  وتالي
كود :
' تعريف لائحة لنضع فيها اسماء الصور الموجودة في المجلد الذي سنختاره
   Dim Filenames As List(Of String) = New List(Of String)
   Dim Counter As Integer = 0 ' تعريف متغير رقمي

   Private Sub Btn_LoadPicture_Click(sender As Object, e As EventArgs) Handles Btn_LoadPicture.Click
       Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = DialogResult.OK Then
           Filenames.AddRange(System.IO.Directory.GetFiles(fbd.SelectedPath, "*.jpg")) ' اضافة الصور من نوع جيبك
           If Filenames.Count > 1 Then PictureBox1.Load(Filenames(Counter)) ' تحميل الصورة رقم الكونتر صفر
       End If
   End Sub

   Private Sub Btn_Next_Click(sender As Object, e As EventArgs) Handles Btn_Next.Click
       If Counter < Filenames.Count - 1 Then
           Counter += 1
       Else
           Counter = 0
       End If
       PictureBox1.Load(Filenames(Counter))
   End Sub

   Private Sub Btn_Previous_Click(sender As Object, e As EventArgs) Handles Btn_Previous.Click
       If Counter > 0 Then
           Counter -= 1
       Else
           Counter = Filenames.Count - 1
       End If
       PictureBox1.Load(Filenames(Counter))
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
(05-03-20, 11:17 PM)ابو روضة كتب :
السلام عليكم  ورحمة الله وبركاته..
اخوتى لدى كود عرض صورة داخل اداه PictureBox بحيث اضع مسار الصورة فى التكست بوكس
ومن ثم أضغط على الزر ليعرضها لى داخل الاداه وما اريده هو اضافة زر التالى وزر السابق بحيث
لما اضغط مثلا على زر التالى يعرض الصورة التالية الموجودة بنفس المسار اللى فى التكست بوكس بود
وضع المسار داخل التكست بوكس.. فهل هناك كود يقوم بهذا ؟
وجزاكم الله كل خير.


كود :
PictureBox1.ImageLocation = TextBox1.Text
وقد قمت بمشاهدة هذا الموضوع لكن لم تنجح الطريقة معى


كود :
Public Class Form1

    'Images list
    Dim images As New List(Of String)
    'Current index
    Dim index As Integer = -1

    'GetFiles
    Private Sub ButtonGetFiles_Click(sender As Object, e As EventArgs) Handles ButtonGetFiles.Click
        Dim dir As String = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) '"C:\....."
        'Using FolderBrowserDialog1 As New FolderBrowserDialog
        '    If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
        '        dir = FolderBrowserDialog1.SelectedPath
        '    End If
        'End Using
        images.Clear()
        index = -1
        images.AddRange(IO.Directory.GetFiles(dir, "*.png"))
        images.AddRange(IO.Directory.GetFiles(dir, "*.jpg"))
        ButtonNext.PerformClick()
    End Sub

    'Prev
    Private Sub ButtonPrev_Click(sender As Object, e As EventArgs) Handles ButtonPrev.Click
        If index > 0 Then
            index -= 1
            PictureBox1.ImageLocation = images(index)
        End If
    End Sub

    'Next
    Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
        If index < images.Count - 1 Then
            index += 1
            PictureBox1.ImageLocation = images(index)
        End If
    End Sub

End Class

هذا الكود من احد المشاريع التي اهدانيها احد المبرمجين قديما
الرد }}}
#4
(05-03-20, 11:58 PM)ابراهيم ايبو كتب : السلام عليكم اخي الغالي ابو روضة
تفضل هذه اكواد زر التحميل وزر سابق  وتالي
كود :
' تعريف لائحة لنضع فيها اسماء الصور الموجودة في المجلد الذي سنختاره
   Dim Filenames As List(Of String) = New List(Of String)
   Dim Counter As Integer = 0 ' تعريف متغير رقمي

   Private Sub Btn_LoadPicture_Click(sender As Object, e As EventArgs) Handles Btn_LoadPicture.Click
       Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = DialogResult.OK Then
           Filenames.AddRange(System.IO.Directory.GetFiles(fbd.SelectedPath, "*.jpg")) ' اضافة الصور من نوع جيبك
           If Filenames.Count > 1 Then PictureBox1.Load(Filenames(Counter)) ' تحميل الصورة رقم الكونتر صفر
       End If
   End Sub

   Private Sub Btn_Next_Click(sender As Object, e As EventArgs) Handles Btn_Next.Click
       If Counter < Filenames.Count - 1 Then
           Counter += 1
       Else
           Counter = 0
       End If
       PictureBox1.Load(Filenames(Counter))
   End Sub

   Private Sub Btn_Previous_Click(sender As Object, e As EventArgs) Handles Btn_Previous.Click
       If Counter > 0 Then
           Counter -= 1
       Else
           Counter = Filenames.Count - 1
       End If
       PictureBox1.Load(Filenames(Counter))
   End Sub

(06-03-20, 12:01 AM)alsalamoni كتب :
كود :
Public Class Form1

   'Images list
   Dim images As New List(Of String)
   'Current index
   Dim index As Integer = -1

   'GetFiles
   Private Sub ButtonGetFiles_Click(sender As Object, e As EventArgs) Handles ButtonGetFiles.Click
       Dim dir As String = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) '"C:\....."
       'Using FolderBrowserDialog1 As New FolderBrowserDialog
       '    If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
       '        dir = FolderBrowserDialog1.SelectedPath
       '    End If
       'End Using
       images.Clear()
       index = -1
       images.AddRange(IO.Directory.GetFiles(dir, "*.png"))
       images.AddRange(IO.Directory.GetFiles(dir, "*.jpg"))
       ButtonNext.PerformClick()
   End Sub

   'Prev
   Private Sub ButtonPrev_Click(sender As Object, e As EventArgs) Handles ButtonPrev.Click
       If index > 0 Then
           index -= 1
           PictureBox1.ImageLocation = images(index)
       End If
   End Sub

   'Next
   Private Sub ButtonNext_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
       If index < images.Count - 1 Then
           index += 1
           PictureBox1.ImageLocation = images(index)
       End If
   End Sub

End Class

هذا الكود من احد المشاريع التي اهدانيها احد المبرمجين قديما

جزاكم الله كل خير أخوتى الكرام وربنا يكرمكم ويبارك بوقتكم وعمركم ويزيدهما بركة.
الرد }}}
#5
الحمد لله والشكر لله
ولك اخي ابو روضة مثل دعائك لنا واكثر
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  زر التالي داتاجريدفيور annagui 0 164 31-01-24, 04:53 PM
آخر رد: annagui
Photo Multi Layer On picturebox mom22jo 3 587 23-08-22, 05:46 PM
آخر رد: Taha Okla
Exclamation قراءة بيانات الصورة من قاعدة بيانات أكسس إلى أداة PictureBox أبو خالد الشكري 15 1,846 20-07-22, 05:40 PM
آخر رد: أبو خالد الشكري
  كيفية عرض الصورة علي picturebox cordava 1 1,111 26-12-21, 01:59 AM
آخر رد: DR.YASER
  سؤال : رجاء اريد اتمام كود الجمع التالي .... mh66 1 1,269 18-10-21, 04:40 PM
آخر رد: asemshahen5
  محتاج كود التنقبل بين الاسطر التالي والسابق في TextBox shady2020 1 1,508 22-09-21, 11:10 AM
آخر رد: Kareem2021
  كيف استثني يوم الجمعة في الكود التالي abomo3ath 1 986 07-06-21, 11:51 PM
آخر رد: Fareed2
  [VB.NET] الكود التالي ينفذ كل 10 من الشهر اريد ان ينفذ كل سنة وشكرا للمساعدة alim54 0 1,014 19-02-21, 11:01 PM
آخر رد: alim54
  مساعدة في نقر الماوس على PictureBox YazanOtoum 5 4,032 24-12-20, 04:57 PM
آخر رد: fdhrg

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم