[ تمت الإجابة ]كيف يشير الماوس الى Line معين؟

اخي الفاضل

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

خاصية SetFocus تستخدم فقط مع مربعات النص Text و أزرة الأوامر Command وعناصر التحكم سواء كان نموذج FORM او نموذج فرعي SubForm ولا تستخدم مع التسميات او الخطوط المرسومه في النماذج والسبب ان هذه العناصر لا تستطيع الإدراج من خلالها مثل مربعات النص او هي بنفسها تقوم بعمل احداث معينه مثل ازرة الأوامر ولكن يمكن التغلب على ذلك بتحويل الخطوط Lines الى مربعات نص ومن ثم التحكم بها سواء باللون او بالسُمك او بالطول او بالعرض لتبدو مثل الخط تماما .

لاحظ في الصوره ان المشيرة تشير الى مربع النص رقم 4 الذي يبدو كأنه Line عريض

اضغط على اي زر امر بجانب مربعات النص وسوف يتم التركيز عليه مباشرة

Line.rar

ألف شكر على ردك يا أخت /زهرة

وكان لك رد على موضوع قديم بعنوان(كيف يتم الترقيم التلقائي في نموذج ؟

فأرجووووك ردى على سؤالى فيه

اقتباس

ولكن يمكن التغلب على ذلك بتحويل الخطوط Lines الى مربعات نص ومن ثم التحكم بها سواء باللون او بالسُمك او بالطول او بالعرض لتبدو مثل الخط تماما .

تلآحظ يا أخت زهرة حين طبقت ذلك أن هناك مشكلتان

أولا:مربعات النص لايمكن تقليل سمكها عن قيمة معينة وكلما حاولت فى الPROPERTIES فى خاصية الHEIGHT وضعها بقيمة صغيرة رفض ذلك

ثانيا: مربعات النص لايمكن جعلها خطوطآ مائلة

ولك ألف شكر

اقتباس

وكان لك رد على موضوع قديم بعنوان(كيف يتم الترقيم التلقائي في نموذج ؟

فأرجووووك ردى على سؤالى فيه

أنت تقول موضوع قديم

هل تصدق انني لا أتذكر ماذا أكلت البارحة ( صرنا عجايز ) الذاكره عندي اصبحت 2KB

عموما سأحاول البحث عن الموضوع

اقتباس

تلآحظ يا أخت زهرة حين طبقت ذلك أن هناك مشكلتان

أولا:مربعات النص لايمكن تقليل سمكها عن قيمة معينة وكلما حاولت فى الPROPERTIES فى خاصية الHEIGHT وضعها بقيمة صغيرة رفض ذلك

ثانيا: مربعات النص لايمكن جعلها خطوطآ مائلة

طيب هل من الممكن تضع مثالك او اي شيء قريب منه وتشرح ماذا تريد بالضبط فقد نجد لك مخرج او حل لهذه الموضوع

الموضوع القديم هذا رابطه

/index.php?showtopic=141043&st=0&p=753688entry753688

أما مثالى الحالى فما هو الا FORM تحتوى على خطين مائلين(LINE1,LLINE2) وعلىزرين أمر(COMMAND1,COMMAND2)

وأريد أن يشير الماوس الى LINE1 اذا ضغطت على الCOMMAND1

و أن يشير الماوس الى LINE2 اذا ضغطت على الCOMMAND2

وأكرر شكرى وأسفى على ازعاجك

اقتباس

أما مثالى الحالى فما هو الا FORM تحتوى على خطين مائلين(LINE1,LLINE2) وعلىزرين أمر(COMMAND1,COMMAND2)

وأريد أن يشير الماوس الى LINE1 اذا ضغطت على الCOMMAND1

و أن يشير الماوس الى LINE2 اذا ضغطت على الCOMMAND2

وما هو الغرض من هذه الحركه بالذات ان الماوس يشير الى الخطين المائلين

فهل تقصد ان يكون التركيز بمشيرة الماوس على هذا الخطين او تقصد انه عند ضغط زر الأمر ان يتم الإشارة الى هذا الخط سواء بخط جديد يظهر ويختفي لفتره معينه ثم بعدها يختفي التاشير او ان الخط نفسه يعمل فلاش ( يظهر ويختفي ) .

لا اعلم ما هو المقصود او الفكره من وضع التركيز على الخطوط المائلة لأنه ليس من خواص الخطوط ان يتم التركيز عليها .

فلو توضح الفكرة بشكل واضح بارك الله فيك كان افضل .

أقصد ان يكون التركيز بمشيرة الماوس على أحد الخطوط او ان يتم الإشارة الى هذا الخط ليعمل فلاش ( يظهر ويختفي ) .

تفضل اخي الكريم

انظر هل الوضع الآن مناسب أم لا

za_Line_up.rar

الوضع الآن مناسب وجميل

ولكنى كنت أتمنى ألا يتغير لون الخط أو سمكه

فقط يتم الإشارة الى الخط ليعمل فلاش ( يظهر ويختفي ) .

وما يكون خاطرك إلا طيب

خلينا الخط يعمل فلاش بدون ان يتغير فيه اي شيء

za_Line_up2.rar

فعلآ أختى العزيزة هذا هو المطلوب

ولك ألف شكر على تعبك الكثيييييير يا أخت /زهرة

وأرجووووك أن تكتبى لى الكود بلغة ال VB6 الذى جعل هذا الزر يفعل ذلك

لأنى وجدت المرفق عبارة عن ملف ACCES وحاولت فتحه بالبيزك فلم أستطع

وأكرر شكرى وأسفى على ازعاجك

اخي الفاضل

الأكواد التي تم استخدامها في النموذج هي بالشكل التالي

Private Sub Form_Timer()
Me.TimerInterval = 300
Me.Line1.Visible = Not Me.Line1.Visible
End Sub

Private Sub SetFocus1_Click()
If Me.SetFocus1.Caption = "SetFocus" Then
Call Form_Timer
Me.SetFocus1.Caption = "Stop"
Else
Me.TimerInterval = 0
Me.Line1.Visible = True
Me.SetFocus1.Caption = "SetFocus"
End If
End Sub

طبعا في الفيجول بيسك ستحتاج الى كائن Timer وتقوم بربطه مع الخط Line1

فعلآ أختى العزيزة نفذت ما أريده

ولك مليوووووووون شكر على تعبك الكثيييييير يا أخت /زهرة

</SPAN></SPAN>

وأكرر شكرى وأسفى على ازعاجك

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

اخوانى الأعزاء

أرجوكم توضحوا لى ما الخطأ فى هذا الكود المرفق

كنت أظن أنه بهذا الكود ستتم الإشارة الى الخط المطلوب ادخال طوله ليعمل فلاش ( يظهر ويختفي ) .

ولكنى حين عملت RUN للبرنامج وجدت أن هذا الخط مختفى تمامآ

أرجوكم توضحوا لى ما الخطأ فى هذا الكود ؟ وكيف اصلاحه؟

ولكم ألف شكر

________________.rar

اخي الفاضل

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

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

/index.php?showforum=1

وستجد جميع الأخوة هناك سوف يجيبون عليك

بالتوفيق