بسم الله الرحمن الرحيم
DIM STR1 AS STRING = "الفريق العربي للبرمجة"
DIM LEN_STR1 AS INTEGER = LEN(STR1)F
MSGBOX (LEN_STR1)
الجواب هو 19
السؤال هو كيف احصل على طول السلسلة بالبكيسل
طول السلسلة بالبيكسل وليس بعدد الحروف
مغلق
الوضوع معقد لنه يتوقف علي نوع الخط وحجمه وهذا نص وليس صوره وهو في الذاكره ليس معروض
ممكن توضح فكرتك اه يمكن نجد حل افضل
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); Make it run, make it right, make it fast, make it small
normalize your data and don't make it look like excel sheet
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
أخي أرجو منك ذكر ما تريد الوصول إليه عسى نجد حل أفضل من معرفة طول السلسلة بالبيكسل
أظن ان حل هذا الأمر هو كالتالي :
Dim Size As SizeF
Size = CreateGraphics.MeasureString("AYOUB JAMAL EL IDRISSI", Me.Font)جربه و أخبرني في حال كان هناك مشكل :)
بسم الله الرحمن الرحيم
اخواني انا لا استخدم الكرستال ريبورت وانما استخدم printdocument
عندما اقراء من datareader
وابدأ بطباعة الحقول العربية من اليمين الى اليسار لا استطيع ضبط هوامش الحقول العربية لذلك اريد اعرف ما هو
طول كل حقل عربي بالبيكسل واضبط الهوامش عن طريق طرح طول الحقل وعرض الصفحة الي تساوي بالبيكسل 850
مثال كيف تظهر الطباعة عندي
-----------------------------------------------------------------
الرقم اسم الحســــــــــــــــــــــــــــــــــــــــــاب المبلغ
-----------------------------------------------------------------
101010 حساب الصندوق
010102 حساب المشتريات المحلية
010103 حساب المصاريف النثرية
010105 حساب الدائنون
وهكذا
إذا يمكنك استخدام أوامر الـ GDI لرسم النص في الصفحة وذلك من ضمن المجال system.drawing
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو
هل جربت يا أخي الكود الذي اعطيتك أعلاه ؟
بسم الله الرحمن الرحيم
مشكورين اخواني على الرد وان شاء الله غدا ساحاول باستخدام GDI
الاخ crazy-man
حاولت بنفس الطريقة التي اخبرتني عنها لكن لم تنجح
جزاكم الله كل خير
بسم الله الرحمن الرحيم
مشكورين اخواني انتهت المشكلة واخ بالشكر الاخ carzy_man
هذا الكود يطبع اسم الحقل العربي بالنقطة المطلوبة من موقع في الصفحة
Dim l_item As SizeF
l_item = CreateGraphics.MeasureString(DR2(7), font1)
e.Graphics.DrawString(DR2(7), font1, Brushes.Black, 690 - l_item.Width, pos1)
وهذا الكون من الاخ carzy_man
Dim Size As SizeF
Size = CreateGraphics.MeasureString("AYOUB JAMAL EL IDRISSI", Me.Font)
فقط نضيف
msgbox size.width
يظهر طول السلسلة العربية بالبيكسل
جزاكم الله كل خير
هذا الموضوع مغلق.