Public Class Form1 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 Public Shared Sub SetWallpaper(ByVal Wallpaper As Object) Dim Background As System.Drawing.Image = Nothing If TypeOf Wallpaper Is String Then Background = System.Drawing.Image.FromFile(Wallpaper) ElseIf TypeOf Wallpaper Is Image Then Background = Wallpaper Else Exit Sub End If Dim Location As String = Environment.SystemDirectory & "CurrentWallpaper.Bmp" Background.Save(Location, System.Drawing.Imaging.ImageFormat.Bmp) SystemParametersInfo(&H14, 0, Location, &H1 Or &H2) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click SetWallpaper(TextBox1.Text) End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click OpenFileDialog1.ShowDialog() End Sub Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk TextBox1.Text = OpenFileDialog1.FileName PictureBox1.ImageLocation = OpenFileDialog1.FileName End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load MsgBox("Frmtr.com - baha5860") Process.Start("www.frmtr.com/visual-basic") End Sub End Class
Link (Proje) :http://www.speedyshare.com/fJBbk/Xp-Slider.zip
Peki Bu koda neler yapabiliriz..?
Ben Xp slider yani xp de bildiğiniz gibi arkaplan slayt olmuyordu ben bunu yapıcaktım fakat artık uğraşasım yok
siz yapabilirsiniz.. __________________