::: در حال بارگیری لطفا صبر کنید :::Loading , please wait ...

انجمن کدستانMoisrex

MoisrexMoisrex.rozblog.com
زمان جاریtime : شنبه 16 تیر 1403 - 7:14 بعد از ظهر
نام کاربریusername : پسوردpassword : یاor عضویتregister | رمز عبور را فراموش کردمForgot your password?
شما در سایت ما ثبت نام نکرده اید و یا وارد اکانت کاربری خود نشده اید. از شما خواهشمند هستیم You are not log in to site. Please وارد شویدlogin یاor ثبت نام کنیدregister .
صفحه اصلیHome page / سورس نرم افزار / سورس تغییر عکس دسکتاپ Vb.net / پاسخ 1
ariaman5 آفلاین




ارسال‌هاAsnwers : 1837
عضویتRegistration date : 5 /7 /1391
حمایت کردهthanks : 1008
حمایت شدهThanked : 338
 پاسخAnswer 1 : سورس تغییر عکس دسکتاپ

اینم در Global :

کد:
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer

Private Const SPI_SETDESKWALLPAPER As Integer = &H14

Private Const SPIF_UPDATEINIFILE As Integer = &H1

Private Const SPIF_SENDWININICHANGE As Integer = &H2

Private Const SETDESKWALLPAPER = 20

Private Const UPDATEINIFILE = 1

Dim WallpaperFile As String = ""

یه د کمه درست کنید و اینو بذارید :

کد:
OpenFileDialog1.ShowDialog()

WallpaperFile = OpenFileDialog1.FileName

PictureBox1.ImageLocation = WallpaperFile

PictureBox1.BackgroundImage = PictureBox1.Image

Timer3.start()

کد اول هم در یه تایمر بذارید و اسم تایمر : timer3
دوشنبه 09 تیر 1393 - 17:19
وب کاربرUser's blog ارسال پیامSend p.m. نقل قولReply سپاس گزارمThanks گزارشReport



moisrex
درباره ماAbout us لینک های ماOur links کلمات کلیدیKeywords
انجمن تخصصی کدستان ، ساخته شده توسط فردی با نام مستعار Moisrex می باشد.This forum designed by a person who called Moisrex.

ایمیلE-mail : Moisrex @ Gmail.com 		کدستان,انجمن کدستان,کدنویسی,انجمن پشتیبانی,فروم,رزبلاگ,آموزش کدنویسی,درخواست کد
تمامی حقوق این انجمن مربوط به همین انجمن می باشد | طراحی قالبCopyright (c) By Moisrex , All rights reserved | Desiger : Moisrex