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
          

          
	
          


          
	    
    




          





          


          

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


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
			
          
		          		
	
          
	
          
		
			

		
	
          

          


    







          
        
	




主站蜘蛛池模板：
军事|
潜山县|
鞍山市|
古蔺县|
罗城|
乃东县|
晋江市|
阳山县|
泰州市|
平邑县|
来宾市|
桓仁|
昭苏县|
辛集市|
沙田区|
韩城市|
芒康县|
乐至县|
西峡县|
南靖县|
新平|
新津县|
安化县|
平阳县|
同心县|
秦安县|
平和县|
南投市|
叙永县|
宁武县|
稻城县|
辽宁省|
台前县|
馆陶县|
临海市|
镇远县|
察隅县|
隆林|
化德县|
库伦旗|
上杭县|