VB調(diào)用JS函數(shù)并返回結(jié)果
		
          
		

          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
          

          


          
測(cè)試： 
          

          

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

          

          

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


	


          
	    
    




          





          


          

	
          
		
          
				
		
	
		
          
		
		
          只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。
          
		
          
			
		
          
			
		
          
		
		
          
		


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網(wǎng)站導(dǎo)航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
				

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

          

					

          導(dǎo)航
          

					

          統(tǒng)計(jì)
          
	
					
					

          常用鏈接
          


          留言簿
          


		
          隨筆分類(lèi)
          
		
				
			
	
		
          文章分類(lèi)
          
		
				
			
	
		
          文章檔案
          
		
				
			
	



          搜索
          



          最新評(píng)論
	
          

          
	
			
		

          


          閱讀排行榜
          

          
	
			
            
		
			
          
		

          


          評(píng)論排行榜
          

          
	
			
            
		
			
          
		

          

				
			
          
			
			
			
			
			 

	

    







          
        
	




主站蜘蛛池模板：
德化县|
依兰县|
封丘县|
清流县|
威海市|
滨州市|
米易县|
吉林市|
桑日县|
山阴县|
东海县|
华宁县|
涞水县|
曲阳县|
凉城县|
绩溪县|
亳州市|
东台市|
常州市|
平阴县|
呼和浩特市|
涡阳县|
昌江|
遵化市|
峨眉山市|
淮北市|
滨海县|
贵阳市|
通榆县|
勐海县|
徐闻县|
福海县|
四会市|
喀什市|
双鸭山市|
崇州市|
永靖县|
依兰县|
孝昌县|
浦北县|
洱源县|