background changer download vb.net source code
,
background changer download vb.net source code this VB.NET + SOUCE CODE will help you to easy change windows desktop background all what you need is to choose you image and click apply.
i used vb 2010 and compiled on net framework 2.0
SOUCE CODE :
Public Class Form1
Dim Location As String
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 SETDESKWALLPAPER = 20
Private Const UPDATEINIFILE = &H1
Private Const UPDATEINIFILE = &H1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Enabled = False
End Sub
Button1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
Dim path As String = OpenFileDialog1.FileName
TextBox1.Text = path
Button1.Enabled = True
End If
End Sub
TextBox1.Text = path
Button1.Enabled = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Try
Location = TextBox1.Text
SystemParametersInfo(SETDESKWALLPAPER, 0, Location, UPDATEINIFILE)
MsgBox("Done", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
MsgBox("Done", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
1 commentaires:
Click here for commentairesI was surfing net and fortunately came across this site and found very interesting stuff here. Its really fun to read. I enjoyed a lot. Thanks for sharing this wonderful information. read
ConversionConversion EmoticonEmoticon