[wolf1120]

السلام عليكم ورحمة الله وبركته

الرجاء تعديل الدالة التالية 

Dim r ,x ,t As String
Dim s ,m ,h As String

s = Text1.Text
m = Text2.Text
h = Text3.Text



r = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
x = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
t = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)

Text1.Text = r
Text2.Text =x

Text3.Text =t

عندى قيمة  في تكست 1   :    0FD1B2



عند وضع الدالة التالية


Dim r As String
Dim s As String

s = Text1.Text

r = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
Text1.Text = r

تنقلب الى B2D10F

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

text1.text=B2D10F
Text2.text=B3D10F
text3.text=B4D10F
وضعت الدالة التالية ولم تفلح


Dim r ,x ,t As String
Dim s ,m ,h As String

s = Text1.Text
m = Text2.Text
h = Text3.Text



r = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
x = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
t = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)

Text1.Text = r
Text2.Text =x
TEXT3.TEXT=t

اريد النتيجة عند التعديل تصبح كالتالي
text1.text=0FD1B2
Text2.text=0FD1B3
text3.text=0FD1B4


وشكرا لكم

[eiocm]

لديا قيمة في تاكست بوكس اريد تحويلها

[wolf1120]

اريد تعديل الدالة

[eiocm]

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

[wolf1120]

برك الله فيك اخي الكريم