Private Function GetShortname(FName As String) As String
	Dim Names() As String

	Names() = Split(FName, " ")
	GetShortname =	Left(Names(LBound(Names)), 1) & _
			" " & Left(Trim(Names(UBound(Names))), 1)
End Function

شكراً

تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 15 مارس 2007 في 21:24

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#315 مارس 2007 في 21:47

والله كود جميل أخي أسامة

لعبة فلاشية ،مركبة فضائية ،جميلة خفيفة مشوّقة

أدوات للحماية تهمك للأخ iSergiwa

الأداة العامة لفحص الفيروسات لصاحبها يمان

#415 مارس 2007 في 22:31

Api function to get the short name

والله شئ جميل :lol: :rolleyes:

موقع البرنامج

مبارك لشعب تونس

هذا الموضوع مغلق.

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

كيف استطيع النقر على مكانين بالفأرة فيرسم خط بينهما7 رد · 27 يونيو 2010
دمج مجموعات بينهما مسافة بيضاء فى تقرر4 رد · 30 يوليو 2010
كيف أستطيع عمل خاصية التفاف النص للتكست الموجود في التقرير1 رد · 31 أغسطس 2008
كيف استطيع وضع مسافه بين ال Item في List View2 رد · 12 فبراير 2009
هل استطيع تجزاة التكست الى عدة قيم2 رد · 18 مارس 2008
كيف أستطيع أن أجعل التكست يقوم بعمل انتر بعد كل تلاث كلمات5 رد · 20 أكتوبر 2006

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

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

عدد الزوار حالياً