VB調用JS函數并返回結果
		
          
		

          Private Function Script(code As String) As String
          
          Dim obj As Object
          
          Set obj = CreateObject("MSScriptControl.ScriptControl")
          
obj.AllowUI           = True
          
obj.Language           = "JavaScript"
          
Script           = obj.Eval(code)
          
          End Function
          
          Private Sub Command1_Click()
          
          MsgBox Script(Text1.Text)
          
          End Sub
          

          


          
測試： 
          

          

          function add(s1,s2){
          
          return s1+s2;
          
}
          
add(          10,5);
          

          

          

          
           
  
		
          
			posted on 2010-10-20 22:02 aiaiwoo 閱讀(1084) 評論(0)  編輯  收藏  
		
          
	
          
	
	


	


          
	    
    




          





          


          

	
          
		
          
				
		
	
		
          
		
		
          只有注冊用戶登錄后才能發表評論。
          
		
          
			
		
          
			
		
          
		
		
          
		


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
				

			
          
			
          
				
					
          
	
          
		
          <2025年6月>
          
	
          日一二三四五六
          25262728293031
          1234567
          891011121314
          15161718192021
          22232425262728
          293012345
          

          

					

          導航
          

					

          統計
          
	
					
					

          常用鏈接
          


          留言簿
          


		
          隨筆分類
          
		
				
			
	
		
          文章分類
          
		
				
			
	
		
          文章檔案
          
		
				
			
	



          搜索
          



          最新評論
	
          

          
	
			
		

          


          閱讀排行榜
          

          
	
			
            
		
			
          
		

          


          評論排行榜
          

          
	
			
            
		
			
          
		

          

				
			
          
			
			
			
			
			 

	

    







          
        
	




主站蜘蛛池模板：
五峰|
阳城县|
墨竹工卡县|
黑河市|
涪陵区|
玉田县|
文成县|
修武县|
乃东县|
织金县|
县级市|
偃师市|
庆元县|
嵊泗县|
赤峰市|
满城县|
秦安县|
南召县|
旌德县|
托克托县|
富川|
黄冈市|
伊宁县|
仙居县|
开远市|
康平县|
潮安县|
山阳县|
洪泽县|
蕉岭县|
咸阳市|
沁水县|
苍南县|
将乐县|
屏山县|
临湘市|
偃师市|
徐州市|
苏州市|
长治县|
桦甸市|