جعل الريتش تكست من اليمين !؟

UP :blink:

اممممـ وبمعنا أخر هل هناك خاصية ضبط المحاذاة لهذه الأداة!

جربى هذا الكود واتمنى ان يفيدك وهو من برنامج مكتبة الاكواد للاستاذ هيثم القلاف

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)

Sub SetRtoL(Ctl As Control)
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL
Ctl.Refresh
End Sub

:rolleyes: :rolleyes: :rolleyes: :rolleyes:

اشكرك :lol: GHOST2010 على الكود العجيب :blink: لكن لم يحقق المطلوب...

امممـ.. من الواضح ان الريتش تكست لا يملك خاصيه تحديد محاذاة النص..

هل هناك امكانيه او فكره لعمل ذلك برمجيا!!!!!!!!!!!!!!!!!!!!!!

انا اسف لانى لم استطع المساعدة :(

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

أختي الطيبة,

جربي هذا الكود :

لليمين: richtext.SelAlignment = 1

لليسار: richtext.SelAlignment = 0

للسنتر: richtext.SelAlignment = 2

و إن شاء الله يكون هذا جواب لمطلبك.

أخوك ميثم كمال

السلام عليكم

يا Powerrrrr

الكود الذى أدرجه ghost يؤدى الغرض وذلك اذا أضفتى السطر التالى

Private Sub Form_Load()

SetRtoL RichTextBox1

End Sub

حيث يتم تمرير اسم الكنترول المراد تحويله من اليسار لليمين الى ال SetRtoL

ولكن ..... ما الفائدة من استخدام كود يقلب من اليمين الى اليسار فى حين

انك قد تستخدمى مفتاحى الشيفت الأيمن مع الكنترول الأيمن لجعل الاداة تكتب

من اليمين الى اليسار بدون كودو انت فى زمن التشغيل Run Time :wacko:

أما عن الكود العجيب الذى كتبه الأخ ghost فهو ليس سحرا ولكنه استخدم ال دالة

API الشهيرة SetWindowLong ووظيفتها التحكم فى خصائص أى نافذة أو كنترول له مقبض hwnd

و اليك شرح لمعاملات هذه الدالة :

---------------------------------

1- hwnd :

و هو مقبض النافذة المراد التحكم بها

2- nIndex : وهو نوع التحكم فى النافذة أو الجزأ المطلوب التحكم به وقد يأخذ القيم التالية:

Const GWL_WNDPROC = (-4)
Const GWL_HINSTANCE = (-6)
Const GWL_HWNDPARENT = (-8)
Const GWL_STYLE = (-16)
Const GWL_EXSTYLE = (-20)
Const GWL_USERDATA = (-21)
Const GWL_ID = (-12)

وقد اخترنا هنا العنصر GWL_EXSTYLE وهو اختصار Extended style أى خصائص إضافية لشكل النافذة أو الكنترول

3- dwNewLong :

وهى ثمثل القيمة التى ستأخذها النافذة وذلك حسب نوع التحكم الذى اخترناه فى nIndex

فمثلا لو اخترنا GWL_EXSTYLE فأن dwNewLong قدتأخذ القيم التالية :

Const WS_EX_DLGMODALFRAME = &H1&
Const WS_EX_NOPARENTNOTIFY = &H4&
Const WS_EX_TOPMOST = &H8&
Const WS_EX_ACCEPTFILES = &H10&
Const WS_EX_LAYOUTRTL = &H400000 ' وهى الخاصية الخاصة بال RightToLEft
Const WS_EX_TRANSPARENT = &H20&

أما لو اخترنا GWL_STYLE (العناصر الاساسية فى مظهر الفورم) فأن dwNewLong قد تأخذ القيم التالية :

Const WS_MINIMIZE = &H20000000
Const WS_VISIBLE = &H10000000
Const WS_MAXIMIZE = &H1000000
Const WS_DISABLED = &H8000000

مثال أخير ..... نحن نريد أن نجعل النافذة Form1 : disabled

إذا خاصية WS_disabled موجودة تحت GWL_STYLE فإن الكود سيكون كالتالى :

SetWindowLong Form1.hwnd , GWL_STYLE , WS_DISABLED

أتمنى أن أكون أوصلت المعلومة و سوف أدرج هذا الشرح فى موضوع دوال الAPI للأخ ghost

حتى يستفيد الجميع :)

شكراً جزيلاً لك على المعلومات القيمة وانت هاتنور الموضوع بتاعى :rolleyes:

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

أختى العزيزة وأخوانى الأعزاء

مش عارف بصراحة الأكواد دى كتير كده ليه؟

أنا بكتب الكود ده وشغال معايا كويس بس بعد ما أضع فيها الكلام مش قبل

RichTextBox1.SelAlignment = rtfRight
RichTextBox1.Refresh

يا رب يكون ينفع معاكم

اشكرك أخي الطيب Maythem Kamal

على الساعدة :lol: حصلت على المطلوب..

جعله الله في ميزان حسناتك :lol: ..أخي ميثم كمال

أخي :lol: abulyaman

فعلا كودك نفع :lol: و نفذ المطلوب ..

أشكركم :rolleyes: على الحلول المتعددة ياموهوبين..

أما بالنسبة لكم إخواني VB6-Rocket GHOST2010

قبل كل شي أخي VB6-Rocket

اقتباس

ما الفائدة من استخدام كود يقلب من اليمين الى اليسار فى حين

انك قد تستخدمى مفتاحى الشيفت الأيمن مع الكنترول الأيمن لجعل الاداة تكتب

من اليمين الى اليسار

انا كمبرمج حأريح المستخدم دي واحد

اتنين ولو كان الريتش تكست يعرض فقط بيانات وماعندك امكانيه التعامل معاها!

حاصرتك :D .. إذن نحتاج للكود B)

اما عن ال دالة

API الشهيرة والتعامل مع معاملاتها....

اقتباس

أتمنى أن أكون أوصلت المعلومة و سوف أدرج هذا الشرح فى موضوع دوال الAPI للأخ ghost

حتى يستفيد الجميع

أشكرك :lol: :lol: :lol: جـــــــــــدا فهمت شرحك وأنا ما اخرني عن الرد على المشاركات الا شرحك

فالبدايه مافهمت :unsure: بس بعد عده قراأت وتدريب وضحت الصوره تماما ويعطيك الف عافية يامعلم B)

ولكن :blink: اتمنى ان ترى المثال لأن المؤشر انتقل لليمين لكن مايظهر المكتوب :blink: ....!

وانا جدا جدااا اشكرك أخي GHOST2010 على مساعدتي

وانت اوضحت لي طريقة اخرى يمكن استخدامها

ولكن جاري التنفيذ الى ان يتم النظر فالمثال..

ولدي سؤال ايضا عن القيم

-20...

&H8&... :unsure: ارجوا ان توضحها مع موضوع دوال API :lol: او هنا

تحيـــــــــــــــــــــــاتي :lol:

PG_TH.rar

السلام عليكم :)

أولا :

لا شكر على واجب يا POWERRRR لكن ادعيلى دائما :)

ثانيا :

اقتباس

انا كمبرمج حأريح المستخدم دي واحد

اتنين ولو كان الريتش تكست يعرض فقط بيانات وماعندك امكانيه التعامل معاها!

حاصرتك  .. إذن نحتاج للكود

أنا لم أتدارك هذا الموضوع الا بعد ما كتبت الرد عندما تذكرت أزرار برنامج الwin word و التى تعمل على محاذاة النصوص ---------- عند حق لقد حاصرتينى :) :D لانى لم أفكر جيدا قبل الرد

ثالثا :

اقتباس

اتمنى ان ترى المثال لأن المؤشر انتقل لليمين لكن مايظهر المكتوب  ....!

ان هذا الكود يعمل عندى كما هو بدون هذه المشكلة .....!

جربى ان تضعى أمر القلب من اليسار الى اليمين عند الضغط على command button بدلا من form Load

وإن شاء الله خير

قمت بإستدعاء الاجراء :blink: على حدث النقر على الزر ولكن نفس النتيجه!!

:rolleyes: دعائي لك بالتوفيق والنجاح والسعادة فالدارين

أرجو منك ان ترفقى الكود و سوف اتحقق منه بنفسى

تفضل :wacko:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)




Sub SetRtoL(Ctl As Control)
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL
Ctl.Refresh
End Sub



Private Sub Command1_Click()
SetRtoL RichTextBox1
End Sub

Private Sub Command1_Click()
SetRtoL RichTextBox1
RichTextBox1.SetFocus
End Sub

وهكذا هل يعمل ؟ :)

طيب لو بدنا نطبع الكلام اللي بداخل الRich Textbox

مع الأخذ بعين الأعتبار التوسيط

علما أنني استخدم جمل الPrinter ؟؟؟

فكيف ممكن اعمل توسيط ..ارجوا ان تفيدوني

طيب لو بدنا نطبع الكلام اللي بداخل الRich Textbox

مع الأخذ بعين الأعتبار التوسيط

علما أنني استخدم جمل الPrinter ؟؟؟

فكيف ممكن اعمل توسيط ..ارجوا ان تفيدوني

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

الأخت الفاضلة رزان

لو عندك جملة وتريدين توسيطها فى الطباعة على الورق هى نفس الفكرة لو تريدين توسيطها على النموذج مثلا

فأنت تريبدين بعض الخصائص لتساعدك على ذلك مثل:

Printer.ScaleWidth منها تحصلين على عرض مساحة الطباعة

TextWidth("Your Text") منها تحصلين على عرض النص المراد طباعته

Printer.CurrentX موقع المؤشر فى السطر

Printer.Left الحافة اليسرى للورقة ويمكن تكون Printer.ScaleLeft لست أتذكر

وببساطة عند طباعة الجملة تقولين (اجعل Printer.CurrentX = (عرض مساحة الطباعة ناقصا عرض النص) / 2 )

بذلك ستطبع فى منتصف الورقة

ولكن تذكرى أن يكون حجم الخط ونوعه للطابعة هو نفسه للنموذج الذى تعملين عليه لكى تحصلى على قيمة دقيقة من TextWidth

هذه مجرد فكرة ويمكن تساعدك

أما لو كان غرضك طباعة الريتش تيكست على بعضه مرة واحدة - للأسف لم أحاول مع هذا ولا أستطيع إجابتك عليه

وربنا يزيدنا من العلم ويجعلنا أهلا له