الكتابة في تكست بوكس عند وضع مؤشر الكتابة عليه

[إبراهيم ابوليله]

الكود بالليبل و بحدث ال TextBox Exit لن يحقق المطلوب لأن حدث ال Exit لا يقع عند دخول اللييبل

الكود التالي أسهل و أقصر و يشتغل بغض النظر عن عدد ال textboxes

Private Sub Label1_Click()
    If TypeName(ActiveControl) = "TextBox" Then
        If Len(ActiveControl) = 0 Then
            ActiveControl = Date
        Else
            MsgBox "Date already entered in TextBox : '" & ActiveControl.Name & "'"
        End If
    Else
        MsgBox "You need to select a TextBox first"
    End If
End Sub

 

اخى واستاذنا جعفر

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

لاننا نحن المستفيدين منها وليس انت

اعمالك القليله

دليل على ان جرابك ماذال به الكثير

نتمنى ان نستفيد من علمك

بارك الله فيك

تقبل تحياتى

[أنس دروبي]

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

أخي وأستاذي جعفر الطريبق بارك الله فيك وجزاكم الله كل خير 

هذا هو المطلوب بكل معنى الكلمة  

النتيجة صحيحة مئة بالمئة ومثل ماقلت أصبحت سريعة في الاداء 

باركم الله فيكم جميعاً اخواني الموضوع أصبح مجاب وكامل 

تقبل تحياتي ومروري

 

[إبراهيم ابوليله]

اخى واستاذى جعفر

سؤال بسيط

كيف سيكون شكل الكود

فى حالة وضع التيكست بوكس

داخل فريم

تقبل تحياتى

[أنس دروبي]

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

فكرة جميلة ومبتكرة أخي وأستاذي ابراهيم أبوليلة

أؤويدك وأقف لصفك بفكرة التكست بوكس الموجودة داخلة الفريم 

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

لإثراء الموضوع وجماليته 

تقبل مروري وتحياتي

[جعفر الطريبق]

في حالة وضع التيكست بوبكس داخل فريم يمكن استعمال الكود التالي :

 

ملف للتحميل : https://app.box.com/s/5ttc2dafv4sj3e1g03r95ppd57ftqqmg

Private Sub Label1_Click()
    Dim oTempObj As Object
    Dim oRealActiveControl As Object
    
    On Error Resume Next
        Set oTempObj = Me
        Do
            Set oRealActiveControl = oTempObj.ActiveControl
            If Err <> 0 Then Exit Do
            Set oTempObj = oRealActiveControl
            DoEvents
        Loop
    On Error GoTo 0
    
    If TypeName(oRealActiveControl) = "TextBox" Then
        If Len(oRealActiveControl) = 0 Then
            oRealActiveControl = Date
        Else
            MsgBox "Date already entered in TextBox : '" & oRealActiveControl.Name & "'"
        End If
    Else
        MsgBox "You need to select a TextBox first"
    End If
End Sub

 

[إبراهيم ابوليله]

اخى واستاذى جعفر

ممكن تشرح كيف تم الاشاره الى الفريم داخل الكود

تقبل تحياتى

 

[جعفر الطريبق]

ليس ضروريا أن يتم الاشارة الى الفرييم داخل الكود ... لو السطر التالي لا ينتج عنه خطأ ابتداء من الدورة الثانية في ال Do .. Loop  :

Set oRealActiveControl = oTempObj.ActiveControl

يعني أننا بصدد Frame Control

[إبراهيم ابوليله]

على ما اعتقد انى فهمت

ان اسطر ده

 Set oRealActiveControl = oTempObj.ActiveControl

يعبر عن الكنترول النشطه فى الفورم بصرف

النظر عن اسمها او نوعها

[جعفر الطريبق]

على ما اعتقد انى فهمت

ان اسطر ده

 Set oRealActiveControl = oTempObj.ActiveControl

يعبر عن الكنترول النشطه فى الفورم بصرف

النظر عن اسمها او نوعها

نعم يا أستادي الفاضل ... بالاضافة الى أن ال ActiveControl Property موجودة عند الفورم و عند الفرييم أيضا

[إبراهيم ابوليله]

ActiveControl Property

دى الى كانت مستخدمه فى الكود الاول

يدون فريم

صح ولا ايه

ياريت لو تتفضل حضرتك بشرح الكود الاخير اى فى وجود فريم

للاستفده اكثر من خبرات حضرتك

تقبل تحياتى