بسم الله الرحمن الرحيم
بعد احر التحيات ...
لقد واجهني امر غريب جدا ، يخالف منطق البرمجة ، حيث ان معامل جمع النصوص(&) لا يعمل !!!
و المثال التالي خير دليل :
لاحظ ان حرف Z لا يظهر في الرسالة ،، فهل يتعلق هذا بسرعة اجراء الحاسوب للعمليات ؟؟؟ ام ماذا ، و ما هو الحل لتلافي هذه المشكلة ؟
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function ReadStr(ByVal Key As String, Optional ByVal Before$, Optional ByVal After$) As String
mStr$ = (Before$ & Readini("String", Key) & After$)
ReadStr = mStr$
End Function
Public Function Readini(ByVal FormName As String, ByVal Key As String, Optional ByVal Default = "") As String
FileName$ = App.Path & "\Lng-English.ini"
Dim retval As Long, xt As String
xt = Space(256)
retval = GetPrivateProfileString(FormName, Key, Default, xt, 256, FileName)
Readini = xt
End Function
Private Sub Form_Load()
MsgBox ReadStr("Page", " A ", " Z ")
End Subفهل من تفسير لهذه الظاهرة ؟؟؟