تغيير خلفية سطح المكتب
Amjad Moustafa :: VB6 :: Codes :: Operating system
صفحة 1 من اصل 1
تغيير خلفية سطح المكتب
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Sub Command1_Click()
'Place the following code in under a command button or in a menu, etc...
Dim ChangeWP
Dim source As String
source = "C:\windows\ÇáÅÚÏÇÏ.bmp"
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, source, 0)
End Sub
Private Const SPI_SETDESKWALLPAPER = 20
Private Sub Command1_Click()
'Place the following code in under a command button or in a menu, etc...
Dim ChangeWP
Dim source As String
source = "C:\windows\ÇáÅÚÏÇÏ.bmp"
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, source, 0)
End Sub
Amjad Moustafa :: VB6 :: Codes :: Operating system
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى