تغییر رنگ مانیتور

[meysam.moh]

سلام


با چه دستوری میشه رنگ مانیتورو بصورت کامل تغییر داد ؟


مثلا بنفش کرد..

[quiet_programmer]

با سلام.

ایده ای که به ذهن بنده میرسه اینه که.... ولش الان حوصله توضیح ندارم به کد نگاه کن خودت متوجه میشی ولی چندتا مشکل داره یکیش که خیلی مهمه سرعتشه. اگه سرعت اجراشو بشه برد بالا مشکلای دیگه که خوت هم بعد از اجرا خواهی دید رو میشه حل کرد.

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetPixel Lib "GDI32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Sub Command1_Click()
lngScreen = GetWindowDC(0)
For i = 1 To 1000 Step 2
For j = 1 To 1000 Step 2
DoEvents
SetPixel lngScreen, i, j, RGB(255, 0, 255)
Next
Next
End Sub


یاحق.
موفق باشید/

[meysam.moh]

از سرعت مهم تر اینه بعد از استاپ کردن اون رنگ به یه بدبختی حذف میشه!!

[quiet_programmer]

با سلام.


از سرعت مهم تر اینه بعد از استاپ کردن اون رنگ به یه بدبختی حذف میشه!!
قربون شکل ماهت برم گفتم که یکیش سرعته! در ضمن تو سرعتشو حل کن من بقیه رو حل میکنم.معامله خوبیه؟

یاحق.
موفق باشید/