Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tùy biến gọi hàm theo giá trị
#1
Modules: Use variables to call functions
Author(s)
Dev Ashish

Q) How can I call a Function by using a variable instead of Function Name?

(A) Use the Eval Function. If you pass to the Eval function a string that contains the name of a function, the Eval function returns the return value of the function. For example, Eval("Chr$(65)") returns "A".

So for example, in the following code, if you call fEval with "A" as parameter, you should get the result "Test That", else "Test This".

Mã:
    '*******Code Start*******
'This code was originally written by Dev Ashish
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code Courtesy of
'Dev Ashish
'
Function fEval(status As String)
Dim strFunctionName As String
Dim x
    If status = "A" Then
        strFunctionName = "TestThat()"
    Else
        strFunctionName = "TestThis()"
    End If

    fEval = Eval(strFunctionName)
End Function

Function TestThis()
    Debug.Print "Test This"
End Function

Function testThat()
    Debug.Print "Test That"
End Function
'*******Code End**********
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng , haquocquan , mrchau911 , maidinhdan
#2
Ta có thể ứng dụng hàm này trong phần phân quyền, nếu gặp user này thì chạy hàm này,user kia thì chạy hàm kia. Hoặc các chương trình tính lương có phân biệt theo cấp bậc, phụ cấp...

Nói chung chỉ là lấy ý tưởng rồi chế biến sao cho phù hợp!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Code số thứ tự tăng theo điều kiện thanhtruong 1 592 30-03-15, 11:08 PM
Bài mới nhất: maidinhdan
  Tùy biến Hàm làm tròn-round thành roundup-rounddown. Các hàm Int, Fix Noname 5 9,733 28-09-11, 11:31 PM
Bài mới nhất: boynhatrang

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ