cndigs.com掘客園--程序員的掘客網(發掘、推薦軟件開發資源,分享、交流技術開發心得)  cndigs.com掘客園--程序員的掘客網(發掘、推薦軟件開發資源,分享、交流技術開發心得) 
主　　題: 如何把窗體里的內容存為一個位圖
作　　者: yimain
等　　級:  
信 譽 值: 100
所屬社區: VB API
問題點數: 100
回復次數: 9
發表時間: 2005-10-30 18:57:33
 
 
 
           

我在窗體中放了很多picture控件,現在我想把這個窗體的內容存為一張位圖,包含已顯示的picture控件在內的內容,未顯示則不包含在內�；蛘呖梢灾付ò�含那些控件。

          
yimain 殘雪   信譽: 100 2005-10-30 18:58:51 得分:  0
 
                 

請問各位高手是否有方便快捷的方法?

                
Top 
szjhxu 天野   信譽: 99 2005-10-30 20:41:27 得分:  10
 
                 

可以用Alt+PrtSc來復制運行后的屏幕,然后到畫圖程序中粘貼.

哈,不知你要的是不是這樣的.

                
Top 
northwolves 狼行天下   信譽: 125 2005-10-30 22:51:18 得分:  30
 
                 

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Private Sub Form_Click()
If Dir("d:\123.bmp") > "" Then Kill "d:\123.bmp" '
Clipboard.Clear '清空剪切板
        keybd_event VK_MENU, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
        keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 '復制到剪切板
SavePicture Clipboard.GetData, "d:\123.bmp" '另存為
Shell "mspaint.exe d:\123.bmp", vbNormalFocus '顯示成果

End Sub

                
Top 
lxcy 貓   信譽: 80 2005-10-30 23:05:39 得分:  10
 
                 

得到窗體坐標,拷貝屏幕就可以了吧。

                
Top 
yimain 殘雪   信譽: 100 2005-10-31 20:45:22 得分:  0
 
                 

上面的拷貝是連整個標題欄都拷下來,能不能只拷指定的區域？

                
Top 
yimain 殘雪   信譽: 100 2005-10-31 20:46:42 得分:  0
 
                 

還有拷貝時是把所有顯示的內容都拷貝了下來,能不能排除某些picture的內容不拷貝在內？

                
Top 
jack20042005    信譽: 100 2005-10-31 21:52:50 得分:  5
 
                 

頂

                
Top 
rainstormmaster 暴風雨 v2.0   信譽: 234 2005-11-4 21:34:54 得分:  10
 
                 

//還有拷貝時是把所有顯示的內容都拷貝了下來,能不能排除某些picture的內容不拷貝在內？

拷貝時你把不需要拷貝的控件設為隱藏,拷貝結束后恢復顯示即可

                
Top 
fishmans 金腳指   信譽: 94 2005-11-5 3:54:02 得分:  35
 
                 

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
picture1.autoredraw=true
  BitBlt Picture1.hDC, 0, 0, Me.ScaleWidth, Me.ScaleHeight, Me.hDC, 0, 0, vbSrcCopy
  savepicture picture1.image ,"d:\dd.bmp"
End Sub