بسم الله الرحمن الرحيم
بعد عناء كبير في البحث في الانترنت وجت دالة للتحويل من النغمات الخاصة بالجوال بمتداد MID الى نظام MEX
كود:
Function HexConvert(ByVal strFileName As String) As String
Dim s As String
Dim hx As String
Open strFileName For Binary Access Read As 1
hx = ""
While (Not EOF(1))
c = Input$(1, 1)
If (c <> "") Then
s = Hex(Asc(c))
If (Len(s) = 1) Then
hx = hx + "0" + s
Else
hx = hx + s
End If
End If
Wend
HexConvert = hx
End Function
وحاولت اطبق عليها ماقدرت ارجو المساعدة
كلما بان هذه الدالة تقبل التحويل لملفات الصور والاصوات