Question

我正在使用的功能是：

sub sin_onclick()
Dim a,b,r
a=document.f.field.value
b=document.f.sin.value
r=a+b
document.f.field.value=r
end sub

sub cos_onclick()
Dim a,b,r
a=document.f.field.value
b=document.f.cos.value
r=a+b
document.f.field.value=r
end sub

sub clear_onclick()
Dim a,b,r
r=""
document.f.field.value=r
end sub

在html中我有以下按钮：

<input type="button" name="clear" value="clear" />
<input type="button" name="cos" value="cos" >
<input type="button" name="sin" value="sin" >

我所做的实际上是一个科学计算器。如果使用函数来表示很多代码。因此，我需要一个通用函数，该函数在调用所有按钮时运行并获取被调用按钮的值。可能吗？如果是的话怎么样？

Answer 1

您可以将常规子例程附加到按钮的onclick事件，如下所示：

Sub GeneralButton_Click()
    Dim sender
    Set sender = window.event.srcElement

    'Common Operations

    MsgBox "A button clicked"

    'Dim a,b,r
    'a=document.f.field.value
    'b=document.f.sin.value
    'r=a+b
    'document.f.field.value=r

    'Isolated operations by element name

    Select Case sender.Name
        Case "clear"
            MsgBox "It was 'clear'!"
        Case "cos"
            MsgBox "It was 'cos'!"
        Case "sin"
            MsgBox "It was 'sin'!"
    End Select
End Sub

Sub Window_OnLoad
    Dim Elm
    For Each Elm In Document.getElementsByTagName("input")
        If Elm.Type = "button" Then
            Elm.Onclick = GetRef("GeneralButton_Click")
        End If
    Next
End Sub

如何使用VBScript中所有按钮的常用功能？

1 个答案: