اضافه کردن Function و Sub به ActiveX
فرق بین Function و Sub:
Sub و Function هر دو - بوسیله یک سری متغییر که از کاربر میگیرند – دستوراتی را انجام میدهند. با این تفاوت که Sub فقط انجام میدهد. اما Function علاوه بر آن که دستورات را انجام میدهد نقش متغیر را نیز دارد و به خود یک متغیر نسبت میدهد.
برای اضافه کردن Function به کنترل:
در قسمت General Declaration کد زیر را اضافه کنید:
[align=left]
کد PHP:
Public Function FuncName(ByVal Var1 As String, ByVal Var2 As Integer) As String
End Function
[/align]
به جاي FuncName نام Function را بنويسيد. به جاي Var1 و Var2 نام متغير دلخواه را تايپ کنید. برای اضافه کردن متغیر هایی دیگر مانند نمونه کد بالا عمل کنید.
در صورتی که متغیر اختیاری باشد و نسبت دادن به آن اجباری نباشد از نمونه زیر استفاده کنید.
[align=left]
کد PHP:
Public Function FuncName(ByVal Optional Var1 As String = "Text", ByVal Var2 As Integer) _ As String
End Function
[/align]
در نمونه بالا Var1 اختیاری است و در صورت وارد نکردن به Text تبدیل میشود.
در بین Public Function … و End Function میتوان دستورات را نوشت.
نمونه زیر از کاربر دو متغیر را میگیرد و سپس جمع آن دو را به خود نسبت میدهد.
[align=left]
کد PHP:
Public Function Add(ByVal Number1 As String, ByVal Number2 As Integer) As Integer
Dim Addition As Integer
Addition = Number1 + Number2
Add = Addition
End Function
[/align]
در اجرای این Function این چنین مینویسیم:
[align=left]
کد PHP:
MsgBox UserControl1.Add(12, 11)
[/align]
برای ایجاد یک Sub دقیقا مانند Function عمل میکنیم. با این تفاوت که دیگر بعد از بستن پرانتز آخر نمیتوان نوع متغیر را مشخص نمود. مانند:
[align=left]
کد PHP:
Public Sub Add(ByVal Number1 As String, ByVal Number2 As Integer)
Dim Addition As Integer
Addition = Number1 + Number2
MsgBox Addition
End Sub
[/align]
علاقه مندی ها (Bookmarks)