نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

ابتدا API زیر را تعریف می کنیم (این تعریف می تواند در Public Class فرم یا در یک ماژول صورت گیرد.):

Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer

سپس از این دستور استفاده می کنیم:

SystemParametersInfo(&H14 , 0, "Bitamp Image Path", &H1)

به جای عبارت Bitmap Image Path ، مسیر عکس Bitmap (با پسوند BMP) را قرار می دهیم. این تصویر به عنوان پس زمینه ی میزکار ویندوز قرار می گیرد.