الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ازاي ازود خاصية على التيكست بوكس؟

بدأه MohamedAliSalim في 22 يناير 2009 · 7 رد · 920 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اريد ان اضيف خاصيتين على التيكست بوكس

الاخاصية الأولى وهي بإسم مثلا priority

فيها قميتين فقط

True and False

انا اختار مابينهم

لو اخترت True يبقى التيكست بوكس ده ماينفعش مايتكتبش فيه

يعني لازم المستخدم يكتب فيه بيانات

اما لو انا اخترت False

يبقى لازم المستخدم يكتب فيه ومايسبهوش فاضي

اما الخاصية التانية

فهي اسمها DataTypes

وفيها كومبو بوكس مكتوب به انواع البيانات المدخل لهذا التيكست بوكس

لو اخترت Integer يبقى المستخدم مايعرفش يكتب فيه حاجة غير ارقام من 0 الى 9

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

وهاكذا بإختلاف انوا البيانات

احنا طبعا هانعمل كلاس جديد اسمه MyTextBox على سبيل المثال

وهانقول ان الكلاس ده بينهيرت من كلاس التيكست بوكس

بس ما بعرف ازاي اخلي الخاصية تصير كومبو بوكس واملئ هذا الكومبوا بوكس واحس بلإختيار وكل اللي انا شرحه في السؤال

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#2

مرحباً أخي الكريم .

الرجاء إعادة التدقيق في ماتريده بالضبط أي ( TextBox أو ComboBox ) ؟

بالنسبة لصلاحيات وصول المستخدم والمقصود بهذه الصلاحيات ( إمكانية, أشكال المدخلات, أشكال العرض بالنسبة للكتابة ) .

عدم السماح للمستخدم بإدخال أي رمز , أضف التالي للحدث KeyPress :

E.Handle = True

عدم السماح بإدخال غير أرقام, استخدم التالي تحت الحدث KeyPress :

If Not IsNumeric( E.KeyChar.ToString ) Then

E.Handle = True

End If

السماح بأي شيء ( لاتحتاج لعمل أو كتابة أي شيء ) .

إذا أردت مفرفة أو الحصول على TextBox يدعم المذكور في سؤالك عدا الخاصية التي تمنع المستخدم من الكتابة ابحث عن موضوع ( تنسق الحقل ) للأخ ( المدلهم ) .

بالتوفيق .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#3

شكرا اخي الكريم على ردك

اقتباس
الرجاء إعادة التدقيق في ماتريده بالضبط أي ( TextBox أو ComboBox ) ؟

انا اقصد التيكست بوكس

انظر الى خواص التيكست بوكس هاتلاقي خواص تحتوي على اختيارات كتيرة

هذه الإختيارات موضوعة في كومبو بوكس

يستطيع المبرمج اختيار الإختيار المناسب له

فهمتني انا اقصد ايه ؟

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#4

أخي الفاضل

كا تعلم عليك استخدام الوراثة وعليك أيضا أن تستخدم Enum

والكود سيكون بالشكل التالي لكن عليك أن تكتب دخل الكود الغرض من كل ماتريد

كل ما عليك ان تفتح كلاس بإسم ما ثم تستخدم الوراثة وتضيف له تكست بوكس ثم تقوم بتعريف بعض Enums وهكذا

والفكرة ستكون كالتالي


Inherits TextBox

Public Enum XXX
Egypt
Cairo
Alex
End Enum

Public Enum YYY

KSA
Qatar
Lebanon

End Enum

Private x As XXX
Private y As YYY

Public Property XX() As XXX
Get
Return x
End Get
Set(ByVal value As XXX)
x = value
End Set
End Property

Public Property YY() As YYY
Get
Return y
End Get
Set(ByVal value As YYY)
y = value
End Set
End Property
End Class
Public Class MyTextbox

بالتوفيق

أخوك عمر

#5

شكراااااااااااااااااااا ياعمر

هو ده بالضبط اللي انا عاوزه

بس انتظر مني الأسئلة

وشكرااااااااااااااااااااا مرة اخرى

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#6
MohamedAliSalim كتب:
السلام عليكم

اريد ان اضيف خاصيتين على التيكست بوكس

الاخاصية الأولى وهي بإسم مثلا priority

فيها قميتين فقط

True and False

هل يحتاج استخدام مرقمات ( Enumerators ) مع شيء من هذا القبيل ^^

MohamedAliSalim كتب:
فهي اسمها DataTypes

وفيها كومبو بوكس مكتوب به انواع البيانات المدخل لهذا التيكست بوكس

لو اخترت Integer يبقى المستخدم مايعرفش يكتب فيه حاجة غير ارقام من 0 الى 9

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

وهاكذا بإختلاف انوا البيانات

هل المرقمات ( Enumerators ) تعد DataTypes ?

MohamedAliSalim كتب:
احنا طبعا هانعمل كلاس جديد اسمه MyTextBox على سبيل المثال

وهانقول ان الكلاس ده بينهيرت من كلاس التيكست بوكس

بس ما بعرف ازاي اخلي الخاصية تصير كومبو بوكس واملئ هذا الكومبوا بوكس واحس بلإختيار وكل اللي انا شرحه في السؤال

هل الـ ComboBox هو أفضل خيار لأمور ممائلة ؟

_____________________________

An enumeration is a named constant whose underlying type is any integral type except Char. If no underlying type is explicitly declared, [int32 is used. Programming languages typically provide syntax to declare an enumeration that consists of a set of named constants and their values.

_____________________________

[Enum provides methods to compare instances of this class, convert the value of an instance to its string representation :

Private Enum Colors As Integer
Red = 1
Yellow = 2
Green = 4
Sky = 8
Blue = 16
Orange = 32
End Enum

Private Sub ShowSupportedColor()
For I As Integer = 0 To 5
Msgbox( [Enum].GetName( GetType( Colors), CInt( 2 ^ I )) )
Next I
End Sub

' Or 
Private Sub ShowSupportedColorV()
For Each Nam As String In [Enum].GetNames( GetType( Colors ) )
MsgBox( Nam )
Next Nam
End Sub

_____________________________

Convert the string representation of a number to an instance of this class :

Private Enum Colors As Integer
Red = 1
Yellow = 2
Green = 4
Sky = 8
Blue = 16
Orange = 32
End Enum


Private Sub ShowSupportedColors()
Dim CColor As Colors
For Each Value As Integer In [Enum].GetValues( GetType( Colors ) )
Color = Value
MsgBox( String.Format( "Enum '{0}' = {1}", Color.ToString, Value ) )
Next Value
End Sub

___________________

بالنسبة للخصائص فهذا ماعليك استخدامه, لاحظ اشكال تصريح الخصائص :

Imports System.Windows.Forms

Public Class MyTextBox
Inherits TextBox

Private _Secret As String = "I'll tell you later :P"
Public ReadOnly Property Items() As String()
Get
Return Lines
End Get
End Property

Public WriteOnly Property Secret() As String
Set (Byval ASecret As String )
_Secret = ASecret 
End Set
End Property

Public Property PItems() As String()
Get
Return Lines
End Get
Set ( Byval _Items As String() )
Text.Clear()
Text = _Items( 0 )
If UBound( _Items ) > 1 Then
For I As Integer = 1 To UBound( _Items )
Text &= ( Chr(13) & Chr(10) ) & _Items( I )
Next I
End If
End Set
End Property

End Class

أول شكل من الأشكال المعرضة للخصائص هو شكل القراءة فقط, أي لا يمكنك التعديل عبر تلك خاصية .

ثاني شكل من الأشكال المعرضة للخصائص هو شكل الكتابة فقط, يمكنك تعديلها لكن لايمكنك قرائتها .

الشكل الثالث, قراءة و تعديل ( كتابة ), لاحظ الفائدة التي يمكنك عملها ؟, يمكنك الأن تعديل أي من سطور النص المدخل .

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

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

بالتوفيق .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 23 يناير 2009 في 12:39

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#7

كما قال لك عمر

إستخدم الوراثة وأضف ما تريد إلى أداتك الجديدة التى ترث من الأداة الأصلية .

أصفق أو لا أصفق فخلفي كتلة شحم تصفق وبعض المساحيق كانت تصفق وجاري يصفق وأسأل .. هل أعجبته الرواية؟ يبحلق ثم يلكز جنبي ويمضي يصفق أصفق أو لا أصفق أمامي كل الرؤوس تصفق وخلفي كل الصفوف تصفق أتى مارد شدني من يدي وتساءل لم لا تصفق تصايح كل الحضور اطردوه تحسست عقلي اطردوه أفقت لنفسي طريداً طريد فصفقت حتى انقطاع الوريد حتى انقطاع الوريد أصفق من أجل ذاك الذي لايصفق

#8

مشكور اخواني الكرماء

وجاري فهم ما كتبه الأخ Bashar Rabat

وشكرا جزيلا لك على اهتمامك بالموضوع

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

مواضيع مشابهة