读书人

vbs 转 js,该怎么解决

发布时间: 2012-04-02 19:58:59 作者: rapoo

vbs 转 js
<OBJECT id="PIS20041" style="LEFT: 0px; TOP: 0px" height=197 width=212
classid="clsid:EAE8E84F-F40D-49EA-A9AF-07E7FEA64B0B" name=PIS20041>
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="5609">
<PARAM NAME="_ExtentY" VALUE="5212">
<PARAM NAME="_StockProps" VALUE="0">
<PARAM NAME="EnrollPlayMode" VALUE="0">
<PARAM NAME="VerifyPlayMode" VALUE="0">
<PARAM NAME="VerifyThreshold" VALUE="0">
</OBJECT>
<script language="VBScript">
Sub PIS20041_PressFinger(ByVal ImageType, ByVal PressCount)
Dim vstr
Dim vstrTemp

If ImageType = 1 Then
'' message to requires that has finger put on.
If PressCount < 0 Then
txtMsg.Value = "Put your finger !"
ElseIf PressCount = 0 Then
txtMsg.Value = "Retry, put your finger !"
Else
txtMsg.Value = "Put your finger " & "(" & PressCount & ") !"
End If

ElseIf ImageType = 2 Then
'' message to select the Paper fp image file.
If PressCount < 0 Then
txtMsg.Value = "Select Paper-Fp file !"
ElseIf PressCount = 0 Then
txtMsg.Value = "Retry, select Paper-Fp file !"
Else
txtMsg.Value = "Select Paper-Fp file " & "(" & PressCount & ") !"
End If
LoadFpBMPFile

If vstrBMPFileName <> "" Then
PIS20041.PaperFileName = vstrBMPFileName
Else
cmdCancel_OnClick
End If


ElseIf ImageType = 3 Then
'' message to select the Paper fp image file.
If PressCount < 0 Then
txtMsg.Value = "Select Remote-Fp file !"
ElseIf PressCount = 0 Then
txtMsg.Value = "Retry, select Remote-Fp file !"
Else
txtMsg.Value = "Select Remote-Fp file " & "(" & PressCount & ") !"
End If
LoadFpBMPFile()
If vstrBMPFileName <> "" Then
PIS20041.RLiveFileName = vstrBMPFileName
Else
cmdCancel_OnClick
End If

End If

End Sub
</script>

请问这是什么意思啊? 怎么转成 js ?

[解决办法]
最上面是一个控件,一个没有见过的控件。下面是事件处理程序,大概是处理触摸屏的手指点击事件。

事件处理中,根据手指所按的图片类别,分别作出不同回应。点击1类图片仅只是进行信息提示,点击2类图片用于从本地加载其它图片,似乎是什么滤纸图片,而点击3类图片则用于加载远程图片。
[解决办法]
试下:

HTML code
<script for="PIS20041" event="PressFinger(imageType, pressCount)">    alert(imageType);    alert(pressCount);</script>
[解决办法]
从没有见过这玩意儿。怪不得classid那么怪异,根本查不到。长见识。希望有机会多见识见识。
[解决办法]
直译,参考^_^
HTML code
<script language="javascript">function  PIS20041_PressFinger(ImageType,PressCount){    var vstr     var vstrTemp         if (ImageType == 1){    //message to requires that has finger put on.         if(PressCount < 0)txtMsg.Value = "Put your finger !"         else if (PressCount == 0)txtMsg.Value = "Retry, put your finger !"         else txtMsg.Value = "Put your finger (" + PressCount + ") !"     }        else if (ImageType == 2){     //message to select the Paper fp image file.         if (PressCount < 0)txtMsg.Value = "Select Paper-Fp file !"         else if (PressCount == 0)txtMsg.Value = "Retry, select Paper-Fp file !"         else txtMsg.Value = "Select Paper-Fp file (" + PressCount + ") !"         LoadFpBMPFile()        if (vstrBMPFileName != "")PIS20041.PaperFileName = vstrBMPFileName         else cmdCancel_OnClick()     }        else if (ImageType == 3){     //message to select the Paper fp image file.        if (PressCount < 0)txtMsg.Value = "Select Remote-Fp file !"         else if (PressCount == 0) txtMsg.Value = "Retry, select Remote-Fp file !"         else txtMsg.Value = "Select Remote-Fp file (" + PressCount + ") !"         LoadFpBMPFile()         if (vstrBMPFileName != "")PIS20041.RLiveFileName = vstrBMPFileName         else cmdCancel_OnClick ()    }}</script> 

读书人网 >vbScript

热点推荐