[ VB.NET ] طلب كود خاص في نقل من PictureBox1 الى PictureBox2

الموضوع في 'طلبات / استفسارات قسم VB.NET - #C' بواسطة < سروشة >, بتاريخ ‏17 ابريل 2017.

تم تحميل الصفحة في 1,9131362 ثانية
  1. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
    مسااءوووووووووووو
    طلبي هووو
    كود نقل كل ما هو موجود على PictureBox1
    الى فروم رقم 2 بس
    كما في الصورة
    [​IMG]
    يوجد لدي form1
    وفيهها = بكجر بوكس 1 وبكجر بوكس 2 وليبل 1

    اريد نقبل كل بكجر بوكس 1 وكل ما عليها على
    form2
    تصبح على شكل بكجر بوكس 1


    وشكراً
     


    أعجب بهذه المشاركة Thaer!
  2. Mohamed Salem مُشرف التواصل الإجتماعي
    rankrankrankrankrank

    Mohamed Salem
      ‏1 مايو 2016
      2,090
      3,424
      113
      ذكر
      مهندس كمبيوتر
      Egypt
      473
    يعنى نقل كل ما داخل فورم 1 الى فورم 2
    بس لما يتنقل يبقا على شكل صورة ؟؟
     
    < سروشة > و ابو روضة معجبون بهذا.
  3. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
    نعم هكذا بالضبط
     
  4. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
    لكن ليس الفورم بأكملة .. لا لا لا اخي

    انا اريد نقل كل ما هو موجود فوق البكجر بوكس1 الخاصه بالفورم 1 الى بكجر بوكس الخاصه بفورم 2
     
  5. fillipo Beginner Developer

    fillipo
      ‏11 مارس 2017
      1
      1
      3
      ذكر
      27
  6. Thaer! Teqani
    rankrankrank

    Thaer!
      ‏19 مايو 2016
      930
      897
      93
      ذكر
      Computer Science
      172
  7. Mohamed Salem مُشرف التواصل الإجتماعي
    rankrankrankrankrank

    Mohamed Salem
      ‏1 مايو 2016
      2,090
      3,424
      113
      ذكر
      مهندس كمبيوتر
      Egypt
      473
    اهلا اخى اسف على التأخير
    كونت بعملك مثال لطلبك
    صورة من المشروع
    [​IMG]

    تحميل المشروع
    نقل الصورة | تحميل
    موفق لك
     
    أعجب بهذه المشاركة < سروشة >
  8. Evil Spirit مُساعد مُشرف أقسام البرمجة
    rankrank

    Evil Spirit
      ‏9 مايو 2016
      415
      303
      63
      ذكر
      Psychopath
      287
    أولا يمكنك إنشاء picturebox في الفورم 2 برمجيا ثم تنقل القيم له
    أو يمكن إضافة بيكتر بوكس وليبل من الأدوات ونقل القيم لا غير
    عملتلك مشروع وإن كان فهمي خاطىء للموضوع أسف بالتوفيق
    المشروع : pic box.rar (2.17MB) - SendSpace.com
     
    ابو روضة و < سروشة > معجبون بهذا.
  9. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
  10. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
  11. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
    راح احمل
    شكرا
     
  12. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
    للأسف قريب على طلبي ولكن المشروع ... لم ينفع
    لان فيه فقط Label واحد المشروع الذي اقصدة ربما يكون فيه 10 ليبل و5 بكجر بوكس .؟.
    اخي لو في عملية حفظ كل ما هو موجود على البكجر بوكس .. وحفظها بالذاكرة ونقلها للفورم 2 على هيئة بكجر بوكس
     
    أعجب بهذه المشاركة CorrM
  13. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
    لم اجد الحل ...

    اريد الحل هو ( تحويل كل ماهو موجود في بكجربوكس 1 في فورم 1 )
    الى صورة واحده

    ويتم نقلها على الفورم 2 في بكجر بوكس

    فقط
     
    أعجب بهذه المشاركة CorrM
  14. CorrM مُراقب أقسام البرمجة
    rankrankrankrankrankrank
    طاقم الإدارة

    CorrM
      ‏27 ديسمبر 2013
      3,327
      6,472
      113
      ذكر
      Programmer
      مصر
      293
    استخدمى هذا الكود
    كود Visual Basic
    <DllImport("user32.dll", SetLastError:=True)>
      Private Shared Function PrintWindow(ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As Boolean
      End Function
    
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      Dim g As Graphics = Me.CreateGraphics()
      Dim bmp As New Bitmap(Panel1.Size.Width, Panel1.Size.Height, g) ' Change Panel1 To You Control
      Dim memoryGraphics As Graphics = Graphics.FromImage(bmp)
      Dim dc As IntPtr = memoryGraphics.GetHdc()
      Dim success As Boolean = PrintWindow(Panel1.Handle, dc, 1) ' Change Panel1 To You Control
      memoryGraphics.ReleaseHdc(dc)
    
      ' bmp Is Pic Of Control
      bmp.Save(Application.StartupPath & "\xx.png", Imaging.ImageFormat.Png)
      Process.Start(Application.StartupPath & "\xx.png")
      End Sub
    


    يمكن حذف اخر سطرين و ارسال الـ BitMap الى Form2 بكل سهوله
    و بالطبع تغير كل ما يخص Panel1 فى الكود
     
    أعجب بهذه المشاركة < سروشة >
  15. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
    كيف ارسلها وانت مسوي عليها حفظ اذا امكن كود ارسال لصورة الى فورم 2
     
    أعجب بهذه المشاركة CorrM
  16. < سروشة > Beginner Developer
    rank

    < سروشة >
      ‏10 ابريل 2017
      24
      12
      3
      أنثى
      7
  17. Evil Spirit مُساعد مُشرف أقسام البرمجة
    rankrank

    Evil Spirit
      ‏9 مايو 2016
      415
      303
      63
      ذكر
      Psychopath
      287
    [​IMG]
    حمل المشروع الدي أرفقته من هنا وخدلك نضرة على المثال اللي عملتو
     
    أعجب بهذه المشاركة ابو روضة
  18. CorrM مُراقب أقسام البرمجة
    rankrankrankrankrankrank
    طاقم الإدارة

    CorrM
      ‏27 ديسمبر 2013
      3,327
      6,472
      113
      ذكر
      Programmer
      مصر
      293
    هذا هو الـ Form 1
    كود Visual Basic
    Imports System.Runtime.InteropServices
    
    Public Class Form1
      <DllImport("user32.dll", SetLastError:=True)>
      Private Shared Function PrintWindow(ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As Boolean
      End Function
      Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      Dim g As Graphics = Me.CreateGraphics()
      Dim bmp As New Bitmap(Panel1.Size.Width, Panel1.Size.Height, g) ' Change Panel1 To You Control
      Dim memoryGraphics As Graphics = Graphics.FromImage(bmp)
      Dim dc As IntPtr = memoryGraphics.GetHdc()
      Dim success As Boolean = PrintWindow(Panel1.Handle, dc, 1) ' Change Panel1 To You Control
      memoryGraphics.ReleaseHdc(dc)
    
      Call New Form2(bmp).Show()
      End Sub
    End Class
    
    


    الفورم الثانى
    كود Visual Basic
    Public Class Form2
    
      Dim xBitMap As Bitmap
    
      Sub New(ByVal Bit As Bitmap)
      ' This call is required by the designer.
      InitializeComponent()
    
      ' Add any initialization after the InitializeComponent() call.
      xBitMap = Bit
      End Sub
    
      Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      PictureBox1.Image = xBitMap
      End Sub
    End Class
    


    فى الفورم الاول استخدمى Panel وليس PicBox
     

مشاركة هذه الصفحة

جاري تحميل الصفحة...