Admin
Admin
المساهمات : 188
تاريخ التسجيل : 03/04/2008
 | موضوع: : Function  الأربعاء يوليو 23, 2008 9:06 am | |
|
ندخل على الفجول بيزك ونجيب label ونخلى ال auto size لية true وال border style لية fixed و ال appearance لية flat مش 3d يعنى لون أبيض مش لون ال form يعنى هناك حذ فى المربع ال label وعمل copy لحد 10 label ونضع
Dim x as string
X = "ahmed"
(Label1.caption = len (x
(Label2.caption = ucase$(x) -------- Label2.caption = uvercase$(x
تحويل الحروف الفى x الى كابيتل
(Label3.caption = lcase$(x) -------- Label3.caption = lowercase$(x
تحويل الحروف الفى x الى صمول
(Label4.caption = ltrim$(x
تلغى المسافة ناحية الشمال
(Label5.caption= rtrim$(x
تلغى المسافة من ناحية اليمين
(Label6.caption = left$(x,3
أول ثلاث حروف من ناحية الشمال
(Label7.caption = right$(x,3
أول ثلاث حروف من ناحية اليمين
(Label8.caption = mid$(x,3,2
أبتداء من الحرف الثالث هات حرفان
(Label9.caption = trim$(x
تلغى المسافات من النحيتين يمين و شمال
((Label10.caption = ucase$(trim$(x
كابيتال وبدون مسافات
| ........................................ | (Label1.caption = len (x |
| تحويل الحروف الفى x الى كابيتل | (Label2.caption = ucase$(x |
| تحويل الحروف الفى x الى صمول | (Label3.caption = lcase$(x |
| تلغى المسافة ناحية الشمال | (Label4.caption = ltrim$(x |
| تلغى المسافة ناحية اليمين | (Label5.caption= rtrim$(x |
| أول ثلاث حروف من ناحية الشمال | (Label6.caption = left$(x,3 |
| أول ثلاث حوف من ناحية اليمين | (Label7.caption = right$(x,3 |
| أبتداء من الحرف الثالث هات حرفان | (Label8.caption = mid$(x,3,2 |
| تلغى المسافات من النحيتين يمين وشمال | (Label9.caption = trim$(x |
| كابيتل و بدون مسافات | ((Label10.caption = ucase$(trim$(x |
| |
|
الرئيسية 