unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Tue Mar 15, 2005 9:17 am Post subject: توابع داخلی ویژوال بیسیک |
|
|
توابع داخلی ویژوال بیسیک
در vb یکسری از توابع برای راحتی کار برنامه نویسان آن تعبیه شده است. من تا حد امکان این توابع را با یک مثال برای هر کدام می نویسم. سعی می شود مثال ها قابل اجرا باشند یعنی به راحتی می توانید آنها را در vb کپی کنید و نتیجه را ببینید.
البته این درس به عنوان مرجع ارائه می شود. برای اینکه بدانید هر تابع چه کاری انجام میدهد.
توابع ریاضی:
مثال این توابع در پایان یکجا ذکر می شود.
1. Abs
این تابع قدر مطلق عدد را به دست می آورد.
2. Atn
این تابع آرک تانژانت یک عدد را به دست می آورد.
|
Function Atn(Number As Double) As Double |
3. Cos
این تابع کسینوس یک زاویه را به دست می آورد.
|
Function Cos(Number As Double) As Double |
4. Exp
این تابع e به توان x را محاسبه می کند.
|
Function Exp(Number As Double) As Double |
5. Log
این تابع لگاریتم یک عدد را در مبنای e محاسبه می کند.
|
Function Log(Number As Double) As Double |
6. Randomize
این رویه مولد عدد تصادفی را Initialize می کند.
7. Rnd
این تابع یک عدد تصادفی را برمی گرداند.
|
Function Rnd([Number]) As Single |
8. Round
یک عدد اعشاری را گرد می کند.
|
Function Round(Number, [NumDigitsAfterDecimal As Long]) |
9. Sgn
عددی را مبنی بر علامت یک عدد داده شده بر می گرداند.
1 برای اعداد مثبت ، 1- برای اعداد منفی و صفر برای عد صفر
10. Sin
این تابع سینوس یک زاویه را بر می گرداند.
|
Function Sin(Number As Double) As Double |
11. Sqr
این تابع جذر یک تابع را بر می گرداند.
|
Function Sqr(Number As Double) As Double |
12. Tan
این تابع تانژانت یک زاویه را بر می گرداند.
|
Function Tan(Number As Double) As Double |
مثال:
فقط کافی است این چند خط را در vb کپی کنید و نتیجه را ببینید:
|
Private Sub Form_Load()
Dim Msg As String
Msg = "Abs(-1.2) : " & Abs(-1.2) & vbCrLf & _
"Atn(90) : " & Atn(90) & vbCrLf & _
"Cos(90) : " & Cos(90) & vbCrLf & _
"Exp(2) : " & Exp(2) & vbCrLf & _
"Log(10) : " & Log(10) & vbCrLf & _
"Rnd : " & Rnd & vbCrLf & _
"Round(1.3) : " & Round(1.3) & vbCrLf & _
"Sgn(-5) : " & Sgn(-5) & vbCrLf & _
"Sin(90) : " & Sin(90) & vbCrLf & _
"Sqr(25) : " & Sqr(25) & vbCrLf & _
"Tan(90) : " & Tan(90)
MsgBox Msg
End
End Sub |
تابع App:
این تابع حاوی اطلاعات مهمی در بارهء برنامه تان می باشد.
13. App.Comments
توضیح فایل اجرائی برنامه را در صورت وجود بر می گرداند.
14. App.CompanyName
اسم برنامه نویس فایل را در صورت وجود بر می گرداند.
15. App.EXEName
اسم فایل اجرائی برنامه را برمی گرداند. اگر در IDE باشید اسم پروژهء فعلی را بر می گرداند.
16. App.FileDescription
Description فایل را در صورت وجود برمی گرداند.
17. App.HelpFile
می توان آدرس فایل Help برنامه را هم تنظیم و هم دریافت کرد.
18. App.hInstance
Handle نمونهء برنامه را برمی گرداند.
19. App.LegalCopyright
اطلاعات Copyright برنامه را در صورت وجود بر می گرداند.
20. App.LegalTrademarks
اطلاعات Trademark برنامه را در صورت وجود بر می گرداند.
21. App.LogMode
مقداری را مبنی بر محل فایل Log برنامه و دیگر صفات بر می گرداند.
22. App.LogPath
آدرس فایل Log برنامه را در صورت وجود بر می گرداند.
23. App.Major
شمارهء Major نسخهء برنامه را بر می گرداند.
24. App.Minor
شمارهء Minor نسخهء برنامه را بر می گرداند.
25. App.NonModalAllowed
مقداری منطقی مبنی بر اینکه آیا فرم می تواند به صورت modeless نمایش یابد یا خیر.
26. App.Path
مسیر فایل پروژه (VBP) را در محیط IDE و مسیر فایل اجرائی (EXE) را اگر فایل اجرائی در حال اجرا باشد بر می گرداند.
27. App.PrevInstance
مقداری منطقی مبنی بر اینکه آیا یک نمونهء قبلی از برنامه در حال اجرا است یا نه را بر می گرداند. از این تابع برای جلوگیری از اجرای برنامه بیش از یک بار استفاده می شود.
28. App.ProductName
ProductName فایل را در صورت وجود بر می گرداند.
29. App.RetainedProject
مقداری منطقی مبنی بر اینکه آیا مقداری از پروژه در حافظه مانده است یا نه را برمی گرداند.
30. App.Revision
شمارهء نسخهء تجدید نظر برنامه را برمیگرداند.
31. App.StartMode
مقداری را مبنی بر اینکه آیا پروژه به صورت stand-alone یا ActiveX component اجرا شده است برمیگرداند.
32. App.TaskVisible
مقداری منطقی مبنی بر اینکه آیا برنامه در لیست Windows Task Manager نمایش می یابد یا خیر را نشان می دهد. همچنین می توان آن را تنظیم کرد که نمایش نیاید.
33. App.ThreadID
شمارهء thread فایل اجرائی را بر میگرداند.
34. App.Title
اسمی را که در لیست Microsoft Windows Task می آید را برمی گرداند. همچنین می توان آن را تنظیم کرد.
35. App.UnattendedApp
مقداری منطقی مبنی بر اینکه آیا برنامه می تواند بدون user interface اجرا شود یا خیر را برمی گرداند.
خواص تابع App در برنامه نویسی vb بسیار پر کاربرد می باشد. پس آنها را خوب یاد بگیرید.
تابع Clipboard
این تابع دسترسی را به Clipboard سیستم آسان می کند.
Clipboard جائی است که وقتی در ویندوز چیزی را کپی می کنید در آن قرار می گیرد.
36. Clear
این رویه محتویات Clipboard را پاک می کند.
37. GetData
برای گرفتن یک گرافیک از Clipboard
|
Function GetData([Format]) As IPictureDisp |
38. GetFormat
مقداری منطقی مبنی بر اینکه آیا فرمت محتویات Clipboard با آنچه که برایش مشخص می کنیم یکی است یا نه را بر می گرداند.
|
Function GetFormat(Format As Integer) As Boolean |
39. GetText
یک رشتهء متنی را از Clipboard می گیرد.
|
Function GetText([Format]) As String |
40. SetData
یک عکس را با فرمت مشخص شده در Clipboard می گذارد.
|
Sub SetData(Picture As IPictureDisp, [Format]) |
41. SetText
یک رشتهء متنی را با استفاده از فرمت مشخص شده درون Clipboard می گذارد.
|
Sub SetText(Str As String, [Format]) |
مثال:
برنامه ای که طرز Copy,Cut,Paste را با استفاده از Clipboard نشان می دهد. همان کاری که NotePad انجام می دهد. برای استفاده از این کد به یک TextBox به نام Text1 و سه CommandButton به نام های CmdCopy,CmdCut,CmdPaste احتیاج دارید. لازم به ذکر است که متنی را که می خواهید کپی یا کات کنید باید انتخاب شده باشد. به همین دلیل از خاصیت SelText استفاده شده است.
|
Private Sub CmdCopy_Click()
If Text1.SelText = "" Then
Exit Sub
Else
Clipboard.Clear
Clipboard.SetText Text1.SelText
End If
End Sub
Private Sub CmdCut_Click()
If Text1.SelText = "" Then
Exit Sub
Else
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End If
End Sub
Private Sub CmdPaste_Click()
Text1.SelText = Clipboard.GetText
End Sub |
کلاس Printer
اجازهء ارتباط با Printer سیستم شما را به راحتی فراهم می کند.
به علت حجم زیاد و سنگینی مطلب و امکان نداشتن پرینتر در منزلتان از توضیح تمام خصوصیات پرهیز می شود.
42. Printer.DeviceName
اسم پرینتر موجود را در صورت وجود برمیگرداند.
43. Printer.Port
اسم پورتی که پرینترتان روی آن نصب است را برمی گرداند.
کلاس Screen
امکان دسترسی به محل قرار گیری فرم روی صفحهء نمایش و تنظیمات ماوس و ... را فراهم می کند.
44.ActiveControl
کنترلی که Focus روی آن است را بر می گرداند.
45. ActiveForm
فرمی که active window یا فرم قعال است را بر می گرداند.
46. FontCount
تعداد Font های موجود برای Device نمایش فعلی یا پرینتر را برمی گرداند.
47. Fonts
اسم تمامی Font های موجود را برمی گرداند.
|
Property Fonts(Integer) As String |
48. Height
ارتفاع Screen را نمایش می دهد.
49. MouseIcon
برای انتخاب کرسر دیگری برای ماوس.
50. MousePointer
نوع اشاره گر ماوس را نشان می دهد.
51. TwipsPerPixelX
تعداد پیکسل های افقی را برای یک شئ بر حسب Twip بر می گرداند
Twip: واحد اندازه گیری برای اندازه گیری صنعت پرینت. برابر با 1440/1 اینچ.
52. TwipsPerPixelY
تعداد پیکسل های عمودی را برای یک شئ بر حسب Twip بر می گرداند.
53. Width
عرض Screen را نمایش می دهد.
مثال:
این برنامه اسامی تمام Font های سیستم را در یک لیست نمایش می دهد. برای اجرا کافی است یک ListBox با نام List1 را در فرم قرار دهید.
|
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount
List1.AddItem Screen.Fonts(i)
Next i
End Sub |
پیدا کردن Resolution صفحهء نمایش.(بسیار کاربردی!)
|
Private Sub Form_Load()
MsgBox Screen.Width \ Screen.TwipsPerPixelX _
& " x " & Screen.Height \ Screen.TwipsPerPixelY
End Sub |
ثوابت (Constants) تعریف شده در ویژوال بیسیک:
54. vbBack
ثابتی برای backspace معادل کد 8 اسکی
55. vbCr
ثابتی برای carriage return یعنی به سر سطر رفتن معادل با کد 13 اسکی
56. vbCrLf
ثابتی برای ترکیبی از carriage return و LineFeed معادل با کد 13 اسکی و کد 10 اسکی
57. vbFormFeed
ثابتی برای form feed معادل با کد 12 اسکی
نکته: form feed دستوری است برای خالی کردن ورقه ها در پرینتر.
58. vbLf
ثابتی است برای linefeed معادل با کد 10 اسکی
59. vbNewLine
ثابتی برای رفتن به خط بعدی
60. vbNullChar
ثابتی برای کاراکتر Null معادل با کد 0 اسکی
61. vbNullString
ثابتی برای استفاده وقتی از رویه های API استفاده می کنید که مقدار رشتهء آنها صفر می باشد.
62. vbObjectError
|
Const vbObjectError = -2147221504 (&H80040000) |
ثابتی که نشانهء ایجاد خطا در یک پروژهء vb می باشد.
63. vbTab
ثابتی برای کاراکتر Tab معادل کد 9 اسکی
64. vbVerticalTab
ثابتی برای کاراکتر Tab عمودی معادل کد 11 اسکی
پیشنهاد می شود به جای کدهای اسکی از این ثوابت استفاده کنید.
توابع تبدیل:
65. CBool
|
Function CBool(Expression) As Boolean |
یک عبارت را به نوع Boolean تبدیل می کند.
66. CByte
|
Function CByte(Expression) As Byte |
یک عبارت را به نوع Byte تبدیل می کند.
67. CCur
|
Function CCur(Expression) As Currency |
یک عبارت را به نوع Currency تبدیل می کند.
68. CDate
|
Function CDate(Expression) As Date |
یک عبارت را به نوع Date تبدیل می کند.
69. CDbl
|
Function CDbl(Expression) As Double |
یک عبارت را به نوع Double تبدیل می کند.
70. CDec
|
Function CDec(Expression) |
یک عبارت را به نوع decimal تبدیل می کند.
71. CInt
|
Function CInt(Expression) As Integer |
یک عبارت را به نوع Integer تبدیل می کند.
72. CLng
|
Function CLng(Expression) As Long |
یک عبارت را به نوع Long تبدیل می کند.
73. CSng
|
Function CSng(Expression) As Single |
یک عبارت را به نوع Single تبدیل می کند.
74. CStr
|
Function CStr(Expression) As String |
یک عبارت را به نوع String تبدیل می کند.
75. CVar
|
Function CVar(Expression) |
یک عبارت را به نوع Variant تبدیل می کند.
76. CVDate
|
Function CVDate(Expression) |
یک عبارت را به نوع Date تبدیل می کند.
77. CVErr
|
Function CVErr(Expression) |
یک نوع Variant شامل شمارهء Error مشخص شده توسط کاربر را برمی گرداند.
78. Error
|
Function Error([ErrorNumber]) |
پیغام خطا را برای شمارهء Error مشخص شده بر می گرداند.
79. Fix
قسمت صحیح یک عدد را بر می گرداند.
80. Hex
رشته ای را بر می گرداند که نمایش دهندهء عدد در مبنای هگزادسیمال می باشد.
81. Int
قسمت صحیح یک عدد را بر می گرداند.
82. Oct
رشته ای را بر می گرداند که نمایش دهندهء عدد در مبنای اکتال یا هشت می باشد.
83. Str
یک عدد را به صورت رشته نمایش می دهد.
84. Val
اعداد درون یک رشته را بر می گرداند.
توابع تاریخ/زمان:
85. Date
تاریخ فعلی سیستم را برمی گرداند. همچنین می توان با آن تنظیم کرد.
86. Now
زمان و تاریخ سیستم را بر می گرداند.
87. Time
زمان فعلی سیستم را بر می گرداند. همچنین می توان با آن تنظیم کرد.
88. Timer
زمان سپری شده از نیمه شب یا midnight را بر حسب ثانیه بر می گرداند.
89. DateAdd
|
Function DateAdd(Interval As String, Number As Double, Date) |
یک نوع Variant را که شامل تاریخی که مدت زمان مشخص شده اضافه شده است را بر می گرداند.
90. DateDiff
|
Function DateDiff(Interval As String, Date1, Date2, [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1]) |
مدت زمانی که بین دو تاریخ مشخص گذشته است را بر می گرداند.
91. DatePart
|
Function DatePart(Interval As String, Date, [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1]) |
یک قسمت مشخص از تاریخ داده شده را بر می گرداند.
92. DateSerial
|
Function DateSerial(Year As Integer, Month As Integer, Day As Integer) |
تاریخ را برای سال ، ماه و روز مشخص شده بر می گرداند.
93. DateValue
|
Function DateValue(Date As String) |
تاریخ را بر می گرداند.
94. Day
یک عدد صحیح که نشانگر روز هفته می باشد را بر می گرداند.
95. Hour
یک عدد صحیح که نشانگر ساعت یک روز می باشد را بر می گرداند.
96. Minute
یک عدد صحیح که نشانگر دقیقهء یک ساعت می باشد را بر می گرداند.
97. Month
یک عدد صحیح که نشانگر ماه سال می باشد را بر می گرداند.
98. Second
یک عدد صحیح که نشانگر ثانیهء یک دقیقه می باشد را بر می گرداند.
99. TimeSerial
|
Function TimeSerial(Hour As Integer, Minute As Integer, Second As Integer) |
ردیفی از ساعت ، دقیقه و ثانیهء مشخص را بر می گرداند.
100. TimeValue
|
Function TimeValue(Time As String) |
یک زمان را بر می گرداند.
101. Weekday
|
Function Weekday(Date, [FirstDayOfWeek As VbDayOfWeek = vbSunday]) |
یک عدد صحیح که نشانگر روز یک هفته می باشد را بر می گرداند.
102. Year
یک عدد صحیح که نشانگر یک سال می باشد را بر می گرداند.
توابع File System:
103. ChDir
|
Sub ChDir(Path As String) |
پوشهء پیش فرض یا جاری سیستم را تغییر می دهد.
104. ChDrive
|
Sub ChDrive(Drive As String) |
درایو جاری سیستم را تغییر می دهد.
105. CurDir
آدرس جاری را بر می گرداند.
106. Dir
|
Function Dir([PathName], [Attributes As VbFileAttribute = vbNormal]) As String |
اسم فایل ، پوشهء شبیه داده شده را بر می گرداند.
107. EOF
|
Function EOF(FileNumber As Integer) As Boolean |
مقداری منطقی مبنی بر این که به پایان فایل رسیده ایم یا نه را بر می گرداند.
108. FileAttr
|
Function FileAttr(FileNumber As Integer, [ReturnType As Integer = 1]) As Long |
نوع خاصیت را برای فایلی که با جملهء open باز شده است را بر می گرداند.
109. FileDateTime
|
Function FileDateTime(PathName As String) |
زمان و تاریخ فایل را بر میگرداند.
110. GetAttr
|
Function GetAttr(PathName As String) As VbFileAttribute |
Attributes های یک فایل یا پوشه را بر می گرداند.
111. MkDir
|
Sub MkDir(Path As String) |
یک پوشهء جدید را ایجاد می کند.
112. Reset
تمامی فایل های باز دیسک را باز می کند.
113. RmDir
|
Sub RmDir(Path As String) |
پوشهء موجود را پاک می کند.
114. SetAttr
|
Sub SetAttr(PathName As String, Attributes As VbFileAttribute) |
اطلاعات attribute مربوط به یک فایل را تنظیم می کند.
توابع اطلاعات:
115. Err
|
Function Err() As ErrObject |
شمارهء Errorی را که ایجاد شده است بر می گرداند.
116. IsArray
|
Function IsArray(VarName) As Boolean |
اگر VarName یک آرایه است True بر می گرداند.
117. IsDate
|
Function IsDate(Expression) As Boolean |
اگر عبارت بتواند به تاریخ تبدیل شود True بر می گرداند.
118. IsEmpty
|
Function IsEmpty(Expression) As Boolean |
اگر متغییر مقدار دهی اولیه نشده باشد True بر می گرداند.
119. IsError
|
Function IsError(Expression) As Boolean |
اگر عبارت یک مقدار Error باشد True بر می گرداند.
120. IsMissing
|
Function IsMissing(ArgName) As Boolean |
اگر یک آرگومان اختیاری پاس نشده باشد True بر می گرداند.
121. IsNull
|
Function IsNull(Expression) As Boolean |
اگر عبارت شامل اطلاعات معتبر نباشد True بر می گرداند.
122. IsNumeric
|
Function IsNumeric(Expression) As Boolean |
اگر بتوان عبارتی را به صورت عدد ارزیابی کرد True بر میگرداند.
123. IsObject
|
Function IsObject(Expression) As Boolean |
اگر یک شناسه یک متغییر شئ را تعیین کند True بر می گرداند.
124. QBColor
|
Function QBColor(Color As Integer) As Long |
شمارهء رنگ RGB را برای یک عدد رنگ مشخص شده از لیستی از رنگهای استاندارد از قبل تعیین شده بر می گرداند.
125. RGB
|
Function RGB(Red As Integer, Green As Integer, Blue As Integer) As Long |
یک عدد صحیح برای رنگ مشخص شده توسط RGB را بر می گرداند.
نکته: می دانید که هر رنگی را با سه رنگ قرمز ، سبز و آبی می توان به دست آورد.
126. TypeName
|
Function TypeName(VarName) As String |
رشته ای را که اطلاعاتی دربارهء یک متغییر را ذخیره می کند بر می گرداند.
127. VarType
|
Function VarType(VarName) As VbVarType |
مقداری را که نشانهء یک زیر نوع می باشد را بر میگرداند.
توابع Interaction:
128. AppActivate
|
Sub AppActivate(Title, [Wait]) |
پنجرهء یک برنامه را فعال می کند.
129. Beep
یک صدای بیپ را در بلندگوی کامپیوتر ایجاد می کند.
130. Choose
|
Function Choose(Index As Single, ParamArray Choice() As Variant) |
یک مقدار را از لیستی از آرگومان ها انتخاب می کند.
131. Command
قسمت آرگومان برنامه را هنگام اجرا بر می گرداند. Command Line
132. CreateObject
|
Function CreateObject(Class As String, [ServerName As String]) |
یک شئ ActiveX را ایجاد می کند.
133. DeleteSetting
|
Sub DeleteSetting(AppName As String, [Section], [Key]) |
یک Section یا Key برای یک برنامه را از رجیستری ویندوز پاک میکند.
134. DoEvents
|
Function DoEvents() As Integer |
بازدهء اجرا می باشد که سیستم عامل فرصتی برای اجرای دیگر پروسه ها را داشته باشد.
135. Environ
|
Function Environ(Expression) |
رشته ای را که به یک environment variable تخصیص داده شده است را بر می گرداند.
environment variable اطلاعاتی می باشد که در یک محیط داس زیر یک اسم unique و تعیین اطلاعاتی دربارهء محیط کاری را ذخیره می کند.(منبع:Babylon Dictionary)
136. GetAllSettings
|
Function GetAllSettings(AppName As String, Section As String) |
لیستی از settings هایی که برای یک برنامه در رجیستری ذخیره کردی اید را بر می گرداند.
137. GetObject
|
Function GetObject([PathName], [Class]) |
یک مرجع برای یک شئ ActiveX را از یک فایل بر می گرداند.
138. GetSetting
|
Function GetSetting(AppName As String, Section As String, Key As String, [Default]) As String |
یک setting را برای یک Key در رجیستری سیستم بر می گرداند.
139. Partition
|
Function Partition(Number, Start, Stop, Interval) |
یک رشته را که نشان می دهد یک شمارهء خاص در یک سری از اعداد چند بار اتفاق می افتد.
140. SaveSetting
|
Sub SaveSetting(AppName As String, Section As String, Key As String, Setting As String) |
یک Setting را در یک کلید مشخص در رجیستری ذخیره می کند.
141. Shell
|
Function Shell(PathName, [WindowStyle As VbAppWinStyle = vbMinimizedFocus]) As Double |
یک فایل EXE را اجرا می کند.
142. Switch
|
Function Switch(ParamArray VarExpr() As Variant) |
اولین مقدار یا عبارت true را در یک لیست بر می گرداند.
توابع استاندارد:
143. LoadPicture
|
Function LoadPicture([filename], [widthDesired As Long], [heightDesired As Long], [flags As LoadPictureConstants = Default]) As IPictureDisp |
یک عکس را از یک فایل می خواند.
مثال:
یک کنترل Image را روی فرم قرار دهید و آدرس این کد را به یک فایل عکس در کامپیوترتان تغییر دهید.
|
Private Sub Form_Load()
Image1.Picture = LoadPicture("D:\Amir\myself.jpg")
End Sub |
144. SavePicture
|
Sub SavePicture(Picture As IPictureDisp, filename As String) |
یک عکس را در یک فایل ذخیره می کند.
توابع رشته ها:
145. Asc
کاراکتر ANSI را برای اولین کاراکتر درون یک رشته بر می گرداند.
|
ANSI: American National Standards Institute |
موسسهء استاندارد ملی آمریکا
|
U.S. engineering organization that determines procedures for the development and coordination of voluntary American National Standards, ANSI (Babylon Dictionary) |
146. AscB
|
Function AscB(String As String) As Byte |
مقدار اولین بایت در یک رشته را بر می گرداند.
147. AscW
|
Function AscW(String As String) As Integer |
کد native character را برای اولین کاراکتر در یک رشته بر می گرداند. (Unicode or ANSI)
148. Chr
کاراکتر را برای شمارهء کد داده شده نشان می دهد.
149. ChrB
|
Function ChrB(CharCode As Byte) |
رشته ای شامل تنها بایت مشخص شده را بر می گرداند.
150. ChrW
|
Function ChrW(CharCode As Long) |
رشته ای شامل کاراکتر Native مشخص شده بر می گرداند. (Unicode or ANSI)
151. Filter
|
Function Filter(SourceArray, Match As String, [Include As Boolean = True], [Compare As VbCompareMethod = vbBinaryCompare]) |
آرایه های منطبق را بر می گرداند.
152. Format
|
Function Format(Expression, [Format], [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1]) |
فرمت بندی یک عبارت را انجام می دهد.
153. FormatCurrency
|
Function FormatCurrency(Expression, [NumDigitsAfterDecimal As Long = -1], [IncludeLeadingDigit As VbTriState = vbUseDefault], [UseParensForNegativeNumbers As VbTriState = vbUseDefault], [GroupDigits As VbTriState = vbUseDefault]) As String |
فرمت بندی یک عبارت را به صورت currency انجام می دهد.
154. FormatDateTime
|
Function FormatDateTime(Expression, [NamedFormat As VbDateTimeFormat = vbGeneralDate]) As String |
فرمت بندی یک عبارت را به صورت date انجام می دهد.
155. FormatNumber
|
Function FormatNumber(Expression, [NumDigitsAfterDecimal As Long = -1], [IncludeLeadingDigit As VbTriState = vbUseDefault], [UseParensForNegativeNumbers As VbTriState = vbUseDefault], [GroupDigits As VbTriState = vbUseDefault]) As String |
فرمت بندی یک عبارت را به صورت Number انجام می دهد.
156. FormatPercent
|
Function FormatPercent(Expression, [NumDigitsAfterDecimal As Long = -1], [IncludeLeadingDigit As VbTriState = vbUseDefault], [UseParensForNegativeNumbers As VbTriState = vbUseDefault], [GroupDigits As VbTriState = vbUseDefault]) As String |
فرمت بندی یک عبارت را به صورت percent انجام می دهد.
157. InStr
|
Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare]) |
محل اولین وقوع یک رشته را در دیگری نشان می دهد.
158. InStrB
|
Function InStrB([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare]) |
محل بایت اولین وقوع یک رشته را در دیگری نشان می دهد.
159. InStrRev
|
Function InStrRev(StringCheck As String, StringMatch As String, [Start As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As Long |
محل آخرین وقوع یک رشته را در دیگری نشان می دهد.
160. Join
|
Function Join(SourceArray, [Delimiter]) As String |
عناصر یک آرایه را به یک رشته پیوند می دهد.
161. LCase
رشتهء تبدیل شده به حروف کوچک را بر می گرداند.
162. Left
|
Function Left(String, Length As Long) |
تعداد کاراکتر های مشخص را از سمت چپ یک رشته بر می گرداند.
|
Private Sub Form_Load()
MsgBox Left("Amir", 2)
End Sub |
163. LeftB
تعداد بایت های مشخص را از سمت چپ یک رشته بر می گرداند.
164. Len
طول یا بایت یک رشته را برای ذخیره در یک متغییر بر می گرداند.
165. LenB
بایت های لازم برای ذخیره در یک متغییر را بر می گرداند.
166. LTrim
یک کپی از رشته را بدون فاصلهء بین خطوط leading spaces بر می گرداند.
167. Mid
|
Function Mid(String, Start As Long, [Length]) |
تعداد مشخصی از کاراکتر های یک رشته را بر می گرداند. از این تابع می توان برای تک تک خواندن حروف یک رشته استفاده کرد.مثال: فقط یک ListBox روی فرم قرار دهید.
|
Private Sub Form_Load()
Dim i As Integer
Dim Str As String
Str = "Amir"
For i = 1 To Len(Str)
List1.AddItem Mid(Str, i, 1)
Next i
End Sub |
168. MidB
تعداد مشخصی از بایت های یک رشته را بر می گرداند.
169. MonthName
|
Function MonthName(Month As Long, [Abbreviate As Boolean = False]) As String |
اسم یک ماه محلی مشخص شده را بر می گرداند.
170. Replace
|
Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String |
یک زیر رشته را در یک رشته جستجو و جایگزین می کند.
171. Right
|
Function Right(String, Length As Long) |
تعداد کاراکتر های مشخص را از سمت راست یک رشته بر می گرداند.
مثال:
|
Private Sub Form_Load()
MsgBox Right("Amir", 2)
End Sub |
172. RightB
تعداد بایت های مشخص را از سمت راست یک رشته بر می گرداند.
173. RTrim
یک کپی از رشته را بدون فاصلهء قبل از رشته یا Trailing spaces بر می گرداند.
174. Space
یک رشته شامل فضا های خالی با توجه به تعداد مشخص شده بر می گرداند.
175. Split
|
Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) |
یک رشته را به آرایه Split یا تکه می کند.
176. StrComp
|
Function StrComp(String1, String2, [Compare As VbCompareMethod = vbBinaryCompare]) |
نتیجهء مقایسهء دو رشته را بر می گرداند.
177. StrConv
|
Function StrConv(String, Conversion As VbStrConv, [LocaleID As Long]) |
یک رشتهء تبدیل شده را بر می گرداند.
178. String
|
Function String(Number As Long, Character) |
یک رشته از تکرار یک کاراکتر را بر می گرداند.
179. StrReverse
|
Function StrReverse(Expression As String) As String |
معکوس یک رشته را بر می گرداند.
180. Trim
یک کپی از رشته بدون فضاهای leading and trailing بر می گرداند.
181. UCase
رشتهء تبدیل شده به حروف بزرگ را بر می گرداند.
182. WeekdayName
|
Function WeekdayName(Weekday As Long, [Abbreviate As Boolean = False], [FirstDayOfWeek As VbDayOfWeek = vbUseSystemDayOfWeek]) As String |
اسم یک روز هفتهء محلی مشخص شده را بر می گرداند.
به علت حجم زیاد مطالب از آوردن مثال برای تعداد زیادی از توابع صرف نظر شد. در آینده مثال هایی آورده می شود.
مولف:
امیر مرادآبادی (amirmoradabadi@yahoo.com) |
|