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


الملفات المرفقة
.rar   BackGround.rar (الحجم : 284.25 ك ب / التحميلات : 18)
الرد
تم الشكر بواسطة: sendbad100 , sendbad100
#2
شاهد هذا الموضوع
برنامج تغيـر صوره الخلفـيه كل 6 ثوانـي بصوره اخـرى
الرد
تم الشكر بواسطة: أحمد فتح الرحمن , sendbad100
#3
(13-12-17, 08:40 PM)طالب برمجة كتب : شاهد هذا الموضوع
برنامج تغيـر صوره الخلفـيه كل 6 ثوانـي بصوره اخـرى

السلام عليكم
بارك الله اخي طالب برمجة على رابط الموضوع المفيد و المحقق للغرض ربنا يجازيك كل خير
ساحاول اضافة التايمر لملفي ان شاء الله
بقيت اشكالية اخيرة لو سمحت بالنظر بالملف و هو زر الحذف .عند اختيار الصورة بالضغظ على الداتا غريد يحذف الصورة بقاعدة البيانات و بمجلد الصور بنفس الوقت
بارك الله فيك


الملفات المرفقة
.rar   BackGround.rar (الحجم : 271.14 ك ب / التحميلات : 33)
الرد
تم الشكر بواسطة: sendbad100
#4
لا يمكن حذف صورة من أداة PictureBox1 تم عرضها بواسطة الخاصية Image أو Load حتى لو أفرغت الأداة من الصورة
لهذا الأفضل استخدام الخاصية ImageLocation للأداة PictureBox1

هذا تعديل للكود
PHP كود :
Imports System.Data.OleDb
Imports System
.IO
'Add Background
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Public Class Form1
    ''' 
<summary>
 
   ''' ''''''''''''''''
    ''' 
</summary>
 
   ''' <param name="uAction"></param>
    ''' 
<param name="uParam"></param>
 
   ''' <param name="lpvParam"></param>
    ''' 
<param name="fuWinIni"></param>
 
   ''' <returns></returns>
    ''' 
<remarks></remarks>
 
   Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As IntegerByVal uParam As IntegerByVal lpvParam As StringByVal fuWinIni As Integer) As Integer
    Private 
Const SPI_SETDESKWALLPAPER 20
    Private 
Const SPIF_UPDATEINIFILE = &H1
    
''' <summary>
    ''' ''''''''''''''''''''''''
 
   ''' </summary>
    ''' 
<remarks></remarks>
 
   Dim myImageFolder As String Application.StartupPath "\Pic\"
    Public cn As New OleDbConnection("
Provider=Microsoft.Jet.OLEDB.4.0" & " Data Source " & Application.StartupPath & "\Database1.mdb")
    Dim dt As New DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DataGridView1.AllowUserToAddRows = False
        Me.DataGridView1.AllowUserToDeleteRows = False
        Me.DataGridView1.ReadOnly = True
        Me.DataGridView1.MultiSelect = False
        Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        Me.DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        Loaddt()
    End Sub
    Private Sub Loaddt()
        dt.Clear()
        Dim da As New OleDbDataAdapter("
SELECT FROM [Table1]", cn)
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "
imge|*.img;*.bmp;*.png;*.jpg"
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            ''''''''''''''''
            TextBox1.Text = OpenFileDialog1.FileName


            Dim PicName As String = System.IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
            Dim Picimge As String = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
            If IO.File.Exists(myImageFolder & Picimge) Then
                MsgBox("
الصورة موجود سابقاً")
            Else
                My.Computer.FileSystem.CopyFile(OpenFileDialog1.FileName, myImageFolder & Picimge)
                Savedt(PicName, Picimge)
            End If
        End If
    End Sub
    Private Sub Savedt(ByVal namefirst As String, ByVal imagelast As String)
        Dim cm As New OleDbCommand("
INSERT INTO [Table1] ([Nameimage], [imagepath]) VALUES (@Nameimage, @imagepath)", cn)
        cm.Parameters.AddWithValue("
@Nameimage", namefirst)
        cm.Parameters.AddWithValue("
@imagepath", imagelast)
        If cn.State <> ConnectionState.Open Then cn.Open()
        cm.ExecuteNonQuery()
        cn.Close()
        Loaddt()
        MsgBox("
تم حفظ الصورة")
    End Sub
    Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
        If BindingContext(dt).Position <> -1 Then
            Dim Position As Integer = Me.BindingContext(dt).Position
            PictureBox1.ImageLocation = (myImageFolder & dt.Rows(Position).Item("
imagepath"))
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click     ''''''''''''
        Dim imagePath As String = Application.StartupPath & "
\myNewWallpaper.bmp"
        PictureBox1.Image.Save(imagePath, ImageFormat.Bmp)
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE)
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim dlg As OpenFileDialog = New OpenFileDialog
        dlg.Filter = "
Image Files (*.bmp, *.gif, *.jpg)|*.bmp;*.gif;*.jpg"
        dlg.Title = "
Select the image to load."
        dlg.ShowDialog()
        PictureBox1.ImageLocation = (dlg.FileName)
        dlg.Dispose()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            Dim imagePath As String = myImageFolder & Me.DataGridView1.CurrentRow.Cells(2).Value
            My.Computer.FileSystem.DeleteFile(imagePath)
            Dim cm As New OleDbCommand("
DELETE FROM [Table1WHERE ([ID]=@id)", cn)
            cm.Parameters.AddWithValue("
@id", Val(Me.DataGridView1.CurrentRow.Cells(0).Value))
            If cn.State <> ConnectionState.Open Then cn.Open()
            cm.ExecuteNonQuery()
            Loaddt()
            MsgBox("
تم حذف الصورة")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cn.Close()
        End Try
    End Sub

End Class 
تبقى نقطة وهي التأكد من عدم حذف الصورة التي تم اختيارها كخلفية لسطح المكتب
الرد
تم الشكر بواسطة: أحمد فتح الرحمن , sendbad100 , sendbad100
#5
السلام عليكم
كلو تمام و هو المطلوب بالضبط .. أخي الكريم ربنا يزيدك من علمه و فضله و يبسط عليك من نعمه و خيراته
ما قصرت بارك الله فيك بالدنيا و بالآخرة ان شاء الله .
الرد
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير نص التكست بوكس في كريستال ريبورت Mohammed Nafa 1 24 منذ 9 ساعة مضت
آخر رد: lafi
  [سؤال] تغيير خط ليبال من داخل مجلد السورس عبد الهادي بهاب 9 516 28-08-20, 08:50 AM
آخر رد: Anas Mahmoud
  [سؤال] كيف اجعل ليبال ذو خلفية شفافة مع صورة عبد الهادي بهاب 2 236 25-08-20, 02:31 PM
آخر رد: عبد الهادي بهاب
  طلب مساعدة في تغيير كلمة المرور resali 6 406 12-08-20, 02:33 AM
آخر رد: resali
  سؤال : هل من الممكن تفريغ الفورم حول صورة لتظهر الصورة فقط بدون خلفية او ظهور الفورم xprogrammer 2 374 28-07-20, 11:17 AM
آخر رد: Anas Mahmoud
  [كود] كود تغيير حجم النص في التكست بوكس hassan 7 4,082 29-04-20, 06:00 AM
آخر رد: WaeLx
  [سؤال] تغيير لون خلفية textbox عند انتقال المؤشر داخل الاداة سمير1404 5 524 26-04-20, 11:25 PM
آخر رد: سامي محمد
Lightbulb [VB.NET] تغيير لون بعض Items فى Combobox بناء على اختيارات Combobox آخر Doctor GME 4 729 17-04-20, 01:48 AM
آخر رد: Doctor GME
Thumbs Up [VB.NET] التعامل مع خلفية الصورة DOX.1 7 558 03-04-20, 11:17 PM
آخر رد: ابراهيم ايبو
  كيف يمكن تغيير القيمة Albgaly99 1 317 01-03-20, 09:41 PM
آخر رد: ابو ليلى

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


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