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
          

          
	
          


          
	    
    




          





          


          

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


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
			
          
		          		
	
          
	
          
		
			

		
	
          

          


    







          
        
	




主站蜘蛛池模板：
井研县|
抚远县|
武陟县|
仁布县|
泰来县|
三门县|
弥勒县|
镇巴县|
青神县|
逊克县|
介休市|
奎屯市|
金塔县|
叙永县|
宝应县|
西青区|
广东省|
塘沽区|
黄石市|
柞水县|
大田县|
峨眉山市|
利川市|
莫力|
永和县|
大余县|
天等县|
温宿县|
视频|
黑山县|
保德县|
鱼台县|
汕尾市|
三门峡市|
吉首市|
长垣县|
文登市|
武义县|
柳河县|
临漳县|
井研县|