التقريب العشري+ التكست بوكس textbox

ولدي سؤال اخررررر

انا ComboBox اريد ان اقفل هذا الخيار بحيث ان المستخدم لايستطيع ان يدخل اي كتاب او مدخل غير الموجود

بالاصح ان لا اسمح له بشيء الا بالخياارات الموجوده في القائمه فقط

تحياتي

هل سؤالي صعب ؟؟؟؟؟؟؟؟؟؟؟؟؟

للرفع

مثلا

dim a as double

a=2.444444

للتقريب الى خانتين اكتب

textbox1.text=math.round(a,2)

الشيء الثاني اذل المستخدم كتب عبارة خطا في مربع النص

textbox1.clear

textbox1.focus

هذة العبارات راح تمسح محتوى مربع النص وراح ينتقل المؤشر الى مربع النص ليستعد لادخال جديد

السلام عليكم

الأخت nada جاوبت مشكورة و أنا قمت بتطبيق المشروع وفقاً لِجوابها وهو عبارة عن Console Application

السؤال الثاني : الجواب إستخدمي الحدث Validating للتحقق من القيمة المدخلة قبل أن يترك الخانة المستخدم

على سبيل المثال هذا الكود يتحقق من البريد الإلكتروني هل هو صحيح أم لا (مع إستخدام الـ Regex ) بهذا الشكل

 Private Sub txtEmail_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtEmail.Validating
        If Me.txtEmail.Text = "" Then Exit Sub
        If Not RX.ValidateEmail(txtEmail.Text) Then
            e.Cancel = True
            ShowIcons(Signs.Wrong)
            ErrP.Icon = ico
            ErrP.SetError(txtEmail, _
            "القيم المدخلة لا تتوافق مع تركيبة البرد الإلكترونية")
            Me.txtMilitryNumber.Text = ""
            Me.Invalidate()
            Me.SBInfo.Text = " البريد الإلكتروني يكون بهذا الشكل " & " myEmail@AnyService.com "
        Else
            ErrP.SetError(txtEmail, "")
        End If
    End Sub

السؤال الثالث : الجواب فقط بهذا الكود

  Me.cboxEmirates.DropDownStyle = ComboBoxStyle.DropDownList

وهي مرئية في الـ Design mode يعني تستطيع تغيرها بدون كتابة هذا الكود بأن تختارين الـ combo box ثم تذهبين للخاصية

DropDownStyle وتجعلينها تساوي DropDownList

والله أعلم

RoundNumber.zip

اختي ندى

مشكوووووووووووووووووووره فعلا حليتي مشكلتي ونورتينيي بالفجوال

الله يرحم والديك و يوفقك

اخي العزيز الغملاسي

مشكووووووووووووور اخوي

وفعلا قدرت اثبت الكمبو بوكس

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

هل ValidateEmail

في If Not RX.ValidateEmail(txtEmail.Text) Then

ثابته اقصد انا ما اصممها >>>> طبعا انا مبتدى

اذكر بالجافا نقسمها بالسترنف توكنايزر ونحط @ فاصله بين الايميل

اقصد

هل هناك دوال او فالدتي غير ValidateEmail وكيف الحصول عليها

مع الشكر لكل من مر على موضوعي وشكررررررررررررررررررر خاص لمن قامووو بالرد

وما اقول

الا ما اجمل روح الفريق والعمل الواحد

تحياتي لكم

لدي سؤال اخر ان سمحتم احبتي

كيف يتم تعطيل تكبير الاطار maximize

اي ان البرنامج سيعمل فقط بالشاشه التي حددتها انا

تحياتي للجميع

السلام عليكم

بالنسبة للـ Validation التي نوّهت عليه هو قالب Custom Class وضعت فيه وظائف كثيرة منها تراقب اللغة العربية

ومنها الإنجليزية والبريد الإلكتروني والكثير الكثير لإنجاز العمل بشكل اسرع ستجد دروسها في اعلى المنتدى باسم

سلسلة تعلم الـ Regular Expressions

بالنسبة لمنع عمل Resize على النموذج فبهذا الكود فقط

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.FormBorderStyle = FormBorderStyle.Fixed3D
    End Sub

والله الموفق

اخي العزيز الغملاسي شمعة المنتدى

مواضيع رائعه وشيقه سا قوم بقرائتها

وشكرا للتكرم بحل سؤالي الذي افدتني فيه كثيرا

شكرااا من القلب اخي

تحياتي لك

وسا قوم باضافة برنامجي الاول اليوم ان شاء الله

تحياتي