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

تم تحميل الصفحة في 1,2041298 ثانية
دمز دليل المواقع العربية والاجنبية
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
10 أبريل 2017
المشاركات
26
الإعجابات
15
النقاط
3
العمر
21

برعاية نقطة التطوير

مسااءوووووووووووو
طلبي هووو
كود نقل كل ما هو موجود على PictureBox1
الى فروم رقم 2 بس
كما في الصورة

يوجد لدي form1
وفيهها = بكجر بوكس 1 وبكجر بوكس 2 وليبل 1

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


وشكراً
 
إنضم
10 أبريل 2017
المشاركات
26
الإعجابات
15
النقاط
3
العمر
21
يعنى نقل كل ما داخل فورم 1 الى فورم 2
بس لما يتنقل يبقا على شكل صورة ؟؟
لكن ليس الفورم بأكملة .. لا لا لا اخي

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

DarkneS's

ExpErt DeveloPer
rankrankrank
إنضم
9 مايو 2016
المشاركات
975
الإعجابات
838
النقاط
93
الإقامة
Dark World
مسااءوووووووووووو
طلبي هووو
كود نقل كل ما هو موجود على PictureBox1
الى فروم رقم 2 بس
كما في الصورة

يوجد لدي form1
وفيهها = بكجر بوكس 1 وبكجر بوكس 2 وليبل 1

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


وشكراً
أولا يمكنك إنشاء picturebox في الفورم 2 برمجيا ثم تنقل القيم له
أو يمكن إضافة بيكتر بوكس وليبل من الأدوات ونقل القيم لا غير
عملتلك مشروع وإن كان فهمي خاطىء للموضوع أسف بالتوفيق
المشروع : pic box.rar (2.17MB) - SendSpace.com
 
إنضم
10 أبريل 2017
المشاركات
26
الإعجابات
15
النقاط
3
العمر
21
إنضم
10 أبريل 2017
المشاركات
26
الإعجابات
15
النقاط
3
العمر
21
اهلا اخى اسف على التأخير
كونت بعملك مثال لطلبك
صورة من المشروع


تحميل المشروع
نقل الصورة | تحميل
موفق لك
للأسف قريب على طلبي ولكن المشروع ... لم ينفع
لان فيه فقط Label واحد المشروع الذي اقصدة ربما يكون فيه 10 ليبل و5 بكجر بوكس .؟.
اخي لو في عملية حفظ كل ما هو موجود على البكجر بوكس .. وحفظها بالذاكرة ونقلها للفورم 2 على هيئة بكجر بوكس
 
إنضم
10 أبريل 2017
المشاركات
26
الإعجابات
15
النقاط
3
العمر
21
لم اجد الحل ...

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

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

فقط
 
الإعجابات: CorrM

CorrM

Just a Programmer
rankrankrankrankrankrank
إنضم
27 ديسمبر 2013
المشاركات
3,453
الإعجابات
6,667
النقاط
113
الإقامة
Egypt
استخدمى هذا الكود
كود 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 فى الكود
 
إنضم
10 أبريل 2017
المشاركات
26
الإعجابات
15
النقاط
3
العمر
21
استخدمى هذا الكود
كود 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 فى الكود
كيف ارسلها وانت مسوي عليها حفظ اذا امكن كود ارسال لصورة الى فورم 2
 
الإعجابات: CorrM

CorrM

Just a Programmer
rankrankrankrankrankrank
إنضم
27 ديسمبر 2013
المشاركات
3,453
الإعجابات
6,667
النقاط
113
الإقامة
Egypt
هذا هو الـ 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
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل