| Вопрос: рисунок на рабочий стол... | Добавлено: 10.10.04 11:12 |
Автор вопроса:  Warlock
|
|
как кнопке сделать: при нажатии,чтоб, указаный JPEG или BMP файл становился "Фоновым рисунком рабочего стола."
И если можно "PrintScreen" |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Eddie Вопросов: 11 Ответов: 120 |
Профиль | | #1 | Добавлено: 10.10.04 12:22 |
|
На рабочий стол:
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction&, ByVal uParam&, ByVal lpvParam$, ByVal pnkResult&
 As Long
Const SPI_SETDESKWALLPAPER = 20 SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "С:\1.bmp", True ПриннСкрин: Private Declare Sub keybd_event Lib "user32" (ByVal w As Byte, ByVal e As Byte, ByVal r As Long, ByVal t As Long)
keybd_event &H2C, 0, 0, 0 а потом: Picture1.Picture = Clipboard.GetData |
||
|
Номер ответа: 2 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #2 | Добавлено: 10.10.04 14:46 |
|
1. VB не умеет впихивать на рабочий стол JPEG'и, поэтому разумно пользовать этот код
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Private Sub Form_Load() SavePicture LoadPicture("Картинка_В_любом_формате" ,App.path & "\temp.bmp"
SystemParametersInfo 20,0,App.path & "\temp.bmp",True End Sub[/CODE] ПринтСкрин [CODE]Private Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (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 Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long Private Sub Form_Load() AutoRedraw=True BitBlt hdc,0,0,Screen.Width,Screen.Height,GetDC(0),0,0,vbSrcCopy End Sub |
||
Страница: 1 |