www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.'Change Wallpaper'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)'Add 1 Command Button to your form.'Insert the following code to your module :Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal _ fuWinIni As Long) As Long 'Insert the following code to your form:Private Sub Command1_Click() Dim t As Long Dim Wallpaper As String 'Replace 'c:\MyFile.bmp' with the name of your BMP File.Wallpaper = "c:\MyFile.bmp"t = SystemParametersInfo(ByVal 20, vbnostring, ByVal Wallpaper, &H1) If t = 0 Then MsgBox "Error changing wallpaper"Exit Sub End If End Sub
