|
الرجاء تعديل الدالة التالية
|
04-11-17, 07:43 PM
Private Sub Command1_Click()
Text1 = f(Text1) Text2 = f(Text2) Text3 = f(Text3) End Sub Function f(p As String) f = Mid$(p, 5, 2) & Mid$(p, 3, 2) & Mid$(p, 1, 2) End Function تم الشكر بواسطة: Amir_Alzubidy , wolf1120 , Ahmed_Mansoor , Ahmed_Mansoor , السيد الغالي
|
|
|
| الردود في هذا الموضوع |
|
الرجاء تعديل الدالة التالية - بواسطة wolf1120 - 04-11-17, 05:13 PM
RE: الرجاء تعديل الدالة التالية - بواسطة eiocm - 04-11-17, 06:38 PM
RE: الرجاء تعديل الدالة التالية - بواسطة wolf1120 - 04-11-17, 06:46 PM
RE: الرجاء تعديل الدالة التالية - بواسطة eiocm - 04-11-17, 07:43 PM
RE: الرجاء تعديل الدالة التالية - بواسطة wolf1120 - 04-11-17, 08:05 PM
|
