سلام دوستان اگه ممکنه این خط هایی رو که متوجه نشدم رو برام توضیح بدید آخه باید برم این برنامه رو برای بچه ها توضیح بدم (استادمون کلی حال کرد آخه هیچ کی یه خط هم ننوشته بود ، عصبانی شده بود به بچه ها فوش می داد می گفت گاگول ها از این یاد بگیرید...
)
اول از همه این خط
ByVal چیه؟؟ یادم قبلنا توی کتاب سوم دبیرستان داشتیم اما فراموش کردم.
کد:
Function NewUser(ByVal Name As String, ByVal Reshte As String, ByVal PostalCode As String, ByVal *** As String, Address As String, ByVal Phone As String)
و این قسمت
این Optional هم جدیده تا حالا ندیده بودم.
بقیه خط ها هم یه توضیح میدید مثلا اونجا اون 0 یا اون 1 برای چیه؟
ببخشید من اینقدر سوال می کنم
کد:
Function FindItem(ByVal PostalCode As String, Optional Name As String, Optional Reshte As String, Optional Address As String, Optional *** As String, Optional Phone As String) As Boolean
Dim mData As String, DBData As String
Dim Nam As String, Resh As String, uID As String
DBData = OpenFile
Do While InStr(DBData, "<item>") > 0
mData = Split(Split(DBData, "<item>")(1), "</item>")(0)
uID = Split(Split(mData, "<id>")(1), "</id>")(0)
If uID = PostalCode Then
Name = Split(Split(mData, "<nam>")(1), "</nam>")(0)
Reshte = Split(Split(mData, "<Resh>")(1), "</Resh>")(0)
Address = Split(Split(mData, "<adr>")(1), "</adr>")(0)
*** = Split(Split(mData, "<sx>")(1), "</sx>")(0)
Phone = Split(Split(mData, "<tel>")(1), "</tel>")(0)
FindItem = True
Exit Function
End If
DBData = Right(DBData, Len(DBData) - InStr(DBData, "</item>"))
DoEvents
Loop
End Function
راستی یه چیزی با اینکه من همه فونت ها رو روی Tahoma تنظیم کرده بودم اما فونت این برنامه روی بعضی از سیستم ها درست نشون نمی داد!!!!!
اون سیستم ها فونت Tahoma هم داشتن!؟