讀取螢幕上一點的顏色

Question

就是許多繪圖程式有的功能：
按下按鍵時，螢幕會暫停，然後再用游標選取(按下左鍵)顏色，而且在還沒選定顏色之前，都可以知道目前滑鼠游標位置的顏色。

To W.J.S. ：
不是喔，就是像FrontPage的"選取"(有滴管圖案的)，我目前碰到的問題是，如何讓整個畫面(整個螢幕)暫停下來，好讓我選顏色？

"暫停"這種感覺就像是按 PrtSc 那種感覺，如果還是不懂，就親自去 FrontPage 看看吧。

Answer 1

這題不簡單....因為它必須迫使Windows暫停所有滑鼠的其他動作
而必須先將目前工作 (選顏色) 完成才釋放其他的動作權
我建議是寫程式將整個 screen 都先抓下後貼在 picturebox 好可以選顏色
不過 Form 必須無框最大化然後還要用 picturebox 填滿整個螢幕
( 我有試過無框最大化真的可以將螢幕填滿
就是 BorderStyle 和 WindowState 這兩個屬性 )
就看起來好像螢幕完全沒有變動的樣子了
挑完顏色後顏色數值記下來把大 Form 隱藏起來就可以了
我會盡量在問題過期前寫出完整程式，這幾天等等我吧

2006-03-11 01:01:39 補充：
對不起.....我來不及寫出來......問題過期後請你過幾天再以同樣的標題發問，我就會找到了，很遺憾，你可能要再等等了。

Answer 2

這題根本不需暫停
依照 William威廉 大大所說的方法做的話
電腦整體效能會被拖慢很多
而且你會發覺你所看到的座標根本不對

Answer 3

William威廉感謝你這麼拼命，時間還剩17小時

Answer 4

螢幕暫停? 指的是原本的畫面如果會動(例如gif或動畫)，要讓他暫停再你按下的那一瞬間? 還是.....?

Answer 5

'不知道這是不是你要的
Dim WithEvents P1 As PictureBox, P2 As PictureBox, P3 As PictureBox
Dim C, R, G, B

Private Sub Form_Activate()
Dim X, Y
For X = 0 To P1.ScaleWidth Step 30
　　For Y = 0 To P1.ScaleHeight Step 30
　　　　P1.Line (X, Y)-(X + 30, Y + 30), QBColor(Int(16 * Rnd)), BF
　　Next
Next
End Sub

Private Sub Form_Load()
Set P1 = Me.Controls.Add("VB.PictureBox", "P1")
With P1
　　.ScaleMode = 3: .Height = 2145: .Width = 2805: .Left = 30: .Top = 30: .Visible = True
End With
Set P2 = Me.Controls.Add("VB.PictureBox", "P2")
With P2
　　.Height = 435: .Width = 465: .Left = 30: .Top = 2250: .Visible = True
End With
Set P3 = Me.Controls.Add("VB.PictureBox", "P3")
With P3
　　.Height = 435: .Width = 465: .Left = 2370: .Top = 2250: .Visible = True
End With
End Sub

Private Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
P3.BackColor = P1.Point(X, Y)
End Sub

Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
C = P1.Point(X, Y)
P2.BackColor = C
R = C Mod 256: C = C \ 256: G = C Mod 256: C = C \ 256: B = C Mod 256
Caption = "R:" & R & ",G:" & G & ",B:" & B
End Sub

2006-02-26 17:45:08 補充：
哈哈抱歉!!沒玩過FrontPage,無法瞭解您的問題Orz

2006-02-27 23:16:57 補充：
如果您是要補捉當時螢幕上的畫面,(不包含播放AVI,Mpg,DVD)其實不困難,否則抱歉小弟也沒招Orz