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


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 494.32 ك ب / التحميلات : 37)
الرد }}}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح هذه المفاهيم ابراهيم كركوكي 2 101 22-09-16, 01:00 PM
آخر رد: ابراهيم كركوكي
Lightbulb [SQL] لو سمحتم ممكن فكرة عمل جرد الاصناف #A-H.c 1 146 13-03-16, 11:44 AM
آخر رد: khodor1985
  [سؤال] ممكن كود ادخال قيمة الجيك بوكس الى قاعدةبيانات sql عمار عيثاوي 0 152 30-01-16, 01:15 PM
آخر رد: عمار عيثاوي
  [سؤال] هل ممكن اضافة ملف اكسل الى الفيجوال دوت نت 2010 محمد مسافر 2 1,632 25-10-15, 10:46 AM
آخر رد: WAEL ABED
  ممكن شرح الوراثة وكيفية استخدامها مع قواعد البيانات محاسب يوسف 2 981 11-03-15, 09:54 AM
آخر رد: محاسب يوسف
  ممكن مساعدة عمار عيثاوي 1 308 22-01-15, 09:19 PM
آخر رد: aftfm
  [كود] ممكن كود إعادة ترقيم عمود بعد حذف صف من داتاجريد فيو benomar 6 1,180 20-12-14, 10:27 PM
آخر رد: benomar
  ممكن حل للاستعلام هذا محاسب يوسف 3 365 09-09-14, 10:20 AM
آخر رد: محاسب يوسف
  ممكن مثال شرح حفظ فيديو في داتا اكسس محاسب يوسف 3 622 06-08-14, 04:29 PM
آخر رد: محاسب يوسف
  ممكن كود عمار عيثاوي 0 267 23-06-14, 08:36 PM
آخر رد: عمار عيثاوي

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


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