الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خلل في خلفية الفورم

بدأه قصة شموخ في 24 نوفمبر 2011 · 9 رد · 586 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

شحالكم شخباركم ؟

آممم أنا أصمم برنامج في الفيجوال ستوديو 2008

وحطيت صورة في الخلفية عادي وطلعت

لكن لما أغير خصائص الفورم خاصية (Right ToLeftLayout) وأخليها (True)

يطلع اللون وما تطلع الصورة . . أما لما أردها (False) فتطلع الصورة عادي

دورت المشكله بس ما حصلت حلول تناقش مثل هالأمرَ

فياريت اللي يعرف يفيدنيّ :)

#2

السلام عليكم ورحمه الله وبركاته

اختي قومي بضبط التالي

ٌRightToLeft الى No و RightToLeftLayout الى True

.:: Wish to become better and better ::.

#3

السموحه أخوي نسيت أقول اني مجربة هالطريقه

يعني لما الخاصيتين Right ToLeftLayout و RightToLeft تكون TRUE ما تطلع

أما لما وحدة منهم true والثانية false تطلع الصورة

.

.

بس أنا أحتاج إن الخاصيتين يكونون true يعني الاثنين اريدهم من اليمين فما الحل .؟ّ!

ألا يوجد حل مختلف .؟! والسموحه

#4

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

	Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    	e.Graphics.DrawImage(Image.FromFile("Backgroud Image Path"), New Point(0, 0))
	End Sub

.:: Wish to become better and better ::.

#5

مشكور أخوي على الحل ويزاك الله خير

بس في نقطه وحده . . الصورة أنا عندي حجمها متوسط يعني ما تملأ الفورم كامل وأنا اباها تتكرر بحيث تملأ باقي الفورم

فهل في كود أروم أضيفه عشان هالموضوع

(يعني نحن من خصائص الصورة لما نحطيها للخلفية أختار Tile لخاصية Backgroung Image Layout فتتكرر الصورة لملأ الفورم كامل دون ترك فراغ)

أتمنى تكن فهمت قصدي

وشكراً

#6

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

	Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    	Dim bmp As New Bitmap("d:\hisham.jpg")
    	Dim attr As New ImageAttributes
    	attr.SetWrapMode(WrapMode.Tile)
    	e.Graphics.DrawImage(bmp, New Rectangle(0, 0, Me.Width, Me.Height), 0, 0, Me.Width, Me.Height, GraphicsUnit.Pixel, attr)
	End Sub

.:: Wish to become better and better ::.

#7

أخوي جربت الكود اللي حطيته بسَ يطلع لي خط ازرق تحت ImageAttributes و WrapMode

ف الظاهر ان نسختك vb2010 أما أنا vb2008

ع العموم صورت لك الشاشه وما عندي ضمن خيارات الـ image خيار ImageAttributes

post-251603-025681600 1322235592_thumb.p

والسموحه منكَ

عندي استفسار ثاني [ الصورة عندي في الريسورس / فهل بس تكتب لي مسار الصورة كيف بيكون ]

وشكراً

المرفقات
error.png

تم تعديل هذه المشاركة بواسطة قصة شموخ في 25 نوفمبر 2011 في 18:41

#8

السلام عليكم ورحمة الله وبركاته.

اقتباس

أخوي جربت الكود اللي حطيته بسَ يطلع لي خط ازرق تحت ImageAttributes و WrapMode

ف الظاهر ان نسختك vb2010 أما أنا vb2008

ع العموم صورت لك الشاشه وما عندي ضمن خيارات الـ image خيار ImageAttributes

بعد اذن الاخ في بي هيلبر :)

اختي الكود صحيح ويعمل على الاصدار 2008 كل ما عليكِ هو عمل import للـ Drawing.Imaging و Drawing.Drawing2D

Imports System.Drawing.Imaging
Imports System.Drawing.Drawing2D

اقتباس

عندي استفسار ثاني [ الصورة عندي في الريسورس / فهل بس تكتب لي مسار الصورة كيف بيكون ]

 Dim bmp As New Bitmap(WindowsApplication1.My.Resources.Image1)

((إِنَّ اللَّهَ وَمَلائِكَتَهُ يُصَلُّونَ عَلَى النَّبِيِّ يَا أَيُّهَا الَّذِينَ آمَنُوا صَلُّوا عَلَيْهِ وَسَلِّمُوا تَسْلِيمًا))

#9

السلام عليكم ورحمه الله وبركاته

اختي قومي بالتصريح عن System.Drawing.Imaging اما بالنسبة للصورة في ملف المصدر يمكنك استخدام الفئة My.Resources وبعدها قومي باختيار اسم الصوره

.:: Wish to become better and better ::.

#10

:) مشكورين أخواني وايد ساعدتونيَ

والسموحه تعبتكم وياي

مواضيع مشابهة