مشكل در نوشتن OCX ؟

[saeedvir]

سلام دوستان.

من سعي دارم چند تا ocx بسازم.

حالا اين كد ها را براي مثال نوشتم.



Public Function kill(ByVal Number1 As String, ByVal Number2 As String) As Integer
؟
End Function


خب ببينيد حالا اگه من بخواهم با اين OCX يك فايل را پاك كنم بايد چه دستوراتي بين Function اضافه كنم ؟

[IamOverlord]

سلام دوست عزیز!
Function چیزیه که به شما یه مقداری رو بر می گردونه. شما باید از یه SUB استفاده کنید تا مقداری رو بگیره(می تونه در بعضی موارد حتی نگیره) و کاری رو انجام بده، مثل پاک کردن فایل:

Public Event Error()

Public Sub KillFile(PathName As String)
On Error GoTo lblCheckError
Kill (PathName)
Exit Sub
lblCheckError:
RaiseEvent Error
End Sub