منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ارجو المساعدة فى عمل هذه الدالة

الدالة المرفقة تعمل بشكل جيد :

مثلا : لديا العدد 135000

عندما اقوم بتحويله يعطينى النتيجة 580F0296

لحد الان الفكرة واضحة

المطلوب :

اريد تحويل النيجة 580F0296

الى العدد 135000

اي عمل عكس الدالة

المثال فى المرفقات الرجاء التعديل عليه

السلام عليكم...

ضع الدالة التالية في الـ Module:

كود :

Public Function Revert(ByVal AHexVal As String) As Long

    Dim AValue As String

    AValue = Left$(AHexVal, 6)

    AValue = "&H" & Mid$(AValue, 5, 2) & Mid$(AValue, 3, 2) & Mid$(AValue, 1, 2)

    Revert = CLng(AValue)

End Function

ضع على الـ Form مربع نص آخر (Text3 مثلاً) و زر آخر (Command2 مثلاً) للاستعادة. في كود الزر اكتب:

كود :

Private Sub Command2_Click()

    Text3.Text = CStr(Revert(Text2.Text))

End Sub

نرجو الاستفادة و السلام.

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

wolf1120

ناجي إبراهيم