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
          

          
	
          


          
	    
    




          





          


          

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


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				
			
          
		          		
	
          
	
          
		
			

		
	
          

          


    







          
        
	




主站蜘蛛池模板：
宁晋县|
阿合奇县|
昭通市|
锡林浩特市|
清镇市|
夏津县|
彩票|
桂阳县|
潞西市|
扬州市|
阳新县|
贵州省|
三亚市|
蓬溪县|
古丈县|
自贡市|
文昌市|
娄底市|
博爱县|
宁波市|
通化县|
吴忠市|
清镇市|
即墨市|
台湾省|
景泰县|
峨眉山市|
莱芜市|
务川|
泰宁县|
合作市|
惠州市|
横峰县|
伽师县|
永丰县|
晴隆县|
沁水县|
远安县|
鸡东县|
隆林|
谷城县|