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


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 494.32 ك ب / التحميلات : 73)
الرد }}}
تم الشكر بواسطة:
#3
اللي بالمثال واجهة تصفح سجلات
الرد }}}
تم الشكر بواسطة:
#4
شكرا للرد اخي الكريم ولكن يةجد به 10 صور بالداتا كيفية تعديل بانشاء فورم وتطبيق الفكرة
شكرا للرد ملرة ثانية
الرد }}}
تم الشكر بواسطة:
#5
ممتاز انتظرني ان لم يسبقني احد بتجهيز مثال جديد ...
الرد }}}
تم الشكر بواسطة:
#6
لان المشروع اللي عندي 2012 اكتب لك الكلاس:
كود :
Imports System.Data.OleDb
Imports System.IO

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ofd As New OpenFileDialog
        'ofd.Filter = "Jpg (*.jpg)|*.jpg"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim b() As Byte = My.Computer.FileSystem.ReadAllBytes(ofd.FileName)
            Dim cm As New OleDbCommand("insert into tb (pic) values(@pic)", con)
            cm.Parameters.AddWithValue("@pic", b)
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Try
                cm.ExecuteNonQuery()
                gd()
                pos()
                If con.State = ConnectionState.Open Then
                    con.Close()
                End If
            Catch ex As Exception
                If con.State = ConnectionState.Open Then
                    con.Close()
                End If
                MsgBox(Err.Description, MsgBoxStyle.Critical)
            End Try
        End If
    End Sub



    Dim ds As New DataSet


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
        pos()
    End Sub

    Private Sub gd()
        ds.Clear()
        PictureBox1.DataBindings.Clear()
        Dim da As New OleDbDataAdapter("select * from tb", con)
        da.Fill(ds, "tb")
        PictureBox1.DataBindings.Add("image", ds, "tb.pic", True)
    End Sub
    Private Sub pos()
        Label1.Text = " السجل رقم: " & Me.BindingContext(ds, "tb").Position & " من " & Me.BindingContext(ds, "tb").Count

    End Sub

  
    Dim norm As Boolean = True
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If norm Then
            Me.BindingContext(ds, "tb").Position += 1
            pos()
        Else
            Me.BindingContext(ds, "tb").Position -= 1
            pos()
        End If

        If Me.BindingContext(ds, "tb").Position = Me.BindingContext(ds, "tb").Count - 1 Then
            ' Me.BindingContext(ds, "tb").Position = 0

            norm = False
            pos()
        ElseIf Me.BindingContext(ds, "tb").Position = 0 Then
            norm = True
            pos()
        End If

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If Timer1.Enabled Then
            Label2.Text = "التصفح التلقائي يعمل"
        Else
            Label2.Text = "التصفح التلقائي لا يعمل"

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Timer1.Enabled = False Then
            Timer1.Enabled = True
        Else
            Timer1.Enabled = False
        End If

    End Sub

  
  
End Class
الرد }}}
تم الشكر بواسطة: a_almisery


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل لرساله Database Users Limit Exceeded kimosabry 0 914 05-03-21, 09:45 PM
آخر رد: kimosabry
  ممكن طلاب استعلام بدون تكرار لبيانات بسام محمدغانم 0 1,433 26-12-19, 07:06 AM
آخر رد: بسام محمدغانم
  [SQL] هل ممكن المساعده في هذا الكود php mysql fadisat 0 1,428 07-08-19, 11:30 PM
آخر رد: fadisat
  ممكن يا اخوانى كود التعديل والحذغ على فواتير المبيعات والمشتريات خالد كامل1 1 2,210 05-05-19, 02:10 PM
آخر رد: حريف برمجة
  ممكن مساعدتي في datagridview .. Ahmed jroup 2 2,134 23-10-17, 06:02 AM
آخر رد: حريف برمجة
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 3,950 07-08-17, 11:26 PM
آخر رد: أبو نوره
Rainbow [نقاش] ممكن مساعد في الدتا ضروري محمود حسن 1 1,530 24-06-17, 03:44 PM
آخر رد: سعود
  ممكن شرح هذه المفاهيم ابراهيم كركوكي 2 2,332 22-09-16, 01:00 PM
آخر رد: ابراهيم كركوكي
Lightbulb [SQL] لو سمحتم ممكن فكرة عمل جرد الاصناف #A-H.c 1 1,959 13-03-16, 11:44 AM
آخر رد: khodor1985
  [سؤال] ممكن كود ادخال قيمة الجيك بوكس الى قاعدةبيانات sql عمار عيثاوي 0 1,657 30-01-16, 01:15 PM
آخر رد: عمار عيثاوي

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


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