posts - 33, comments - 46, trackbacks - 0, articles - 2
          


          		
	
          
	
          
		
			
		
		
			
          
				
					
	
          
		
		
          PowerBuilder在顯示圖片方面的確是一個弱項，以前一直沒有找到好的方法，如果自己用delphi寫個ActiveX控件，在關閉的時候總會出現錯誤，實在是很郁悶，后來發現Kodak Image Edit Control就沒有這個問題，而且可以支持BMP,DCX,GIF,JPG-JFIF,PCX,TIFF,WIFF,XIF等常見的圖片格式，該控件在win98,win2000等環境中都已經安裝好了，對于XP環境也可以簡單的從Win2000移植過來。
          1、鼠標放大、縮小效果
          在OLE控件的other事件中加入下面的代碼
          

           1Choose   Case   Message.Number   
           2  Case   522            
           3      if   IntHigh(message.wordparm)   =   120   then   //          鼠標滾輪向上 
           4        if int(ole_1.object.zoom)<=20 then           return
           5          ole_1.object.zoom= ole_1.object.zoom -10
           6      else   
           7          ole_1.object.zoom= ole_1.object.zoom+10
           8      end   if   
           9                ole_1.object.display()
          10End   Choose
          
          2、鼠標拖動效果
          如果不想選擇框老是出現的話，需要加入
          ole_1.object.SelectionRectangle = False
          

          1//1.定義Instance變量
          2int           mousex,mousey
          3int moveon
          
          以下代碼屬于OLE控件的事件
          

          1//Event MouseDown事件
          2moveon=1
          3mousex=ocx_x
          4mousey=ocx_y
          

          

          1//MouseMove事件
          2if moveon=0 then return
          3ole_1.object.ScrollPositionX =ole_1.object.ScrollPositionX+(MouseX -ocx_x)
          4ole_1.object.ScrollPositionY =ole_1.object.ScrollPositionY+(MouseY -ocx_y)
          5ole_1.object.refresh()
          6mousex=ocx_x
          7mousey=ocx_y
          

          

          1//mouseUp事件
          2moveon=0
          

          
	
          


          
	    
    




          





          


          

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


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
			
          
		          		
	
          
	
          
		
			

		
	
          

          


    







          
        
	




主站蜘蛛池模板：
云梦县|
凤城市|
霍山县|
丰顺县|
饶河县|
裕民县|
东乌|
独山县|
石棉县|
始兴县|
东辽县|
百色市|
昌平区|
永顺县|
五台县|
登封市|
东乌珠穆沁旗|
旌德县|
辽阳县|
洞口县|
略阳县|
铜山县|
定远县|
泸水县|
湾仔区|
新巴尔虎左旗|
碌曲县|
安国市|
江西省|
马山县|
饶平县|
沂南县|
腾冲县|
迭部县|
晴隆县|
商水县|
黄浦区|
阜康市|
中山市|
五常市|
祥云县|