Kako da ako kliknem command1 buton ,image1 mi se postavi kao pozadina mojih windowsa!!!!!
Pomoć
kako project1 pretvoriti u exe aplikaciju!!!!!
Pomoć
kako project1 pretvoriti u exe aplikaciju!!!!!
Potpis
Ivan
Slika na pozadinu
Zaključano
Zakačeno
Evo ti jedan šaljivi odgovor!
Recimo u AcdSee-u napravis capture screen tvoje pozadine i to pohranis u nekom formatu,zatim
U vb-u napravis 2 forme u prvoj nek ti bude samo command1 button,a u drugoj formi napravis image1
u koji insertas svoju pozadinu koju si sahranio preko capture screena u AcdSee-u !
U prvoj formi samo stavis da ti command1 pokrene drugu formu!
U drugoj formi u kojoj ti se nalazi image1 kod proprties(za formu ne za image1) namjestis da ti WindowState bude Maximized,
ClipControls i ControlBox stavis na False i cod Caption izbrises ono sta pise (Form1) i jos stavis da ti Moveable bude False!
Recimo u AcdSee-u napravis capture screen tvoje pozadine i to pohranis u nekom formatu,zatim
U vb-u napravis 2 forme u prvoj nek ti bude samo command1 button,a u drugoj formi napravis image1
u koji insertas svoju pozadinu koju si sahranio preko capture screena u AcdSee-u !
U prvoj formi samo stavis da ti command1 pokrene drugu formu!
U drugoj formi u kojoj ti se nalazi image1 kod proprties(za formu ne za image1) namjestis da ti WindowState bude Maximized,
ClipControls i ControlBox stavis na False i cod Caption izbrises ono sta pise (Form1) i jos stavis da ti Moveable bude False!
Potpis
Walk with me and you will win :)
Odaberi iz menija File-Make Project1.exe i
sve to lepo potvrdi.
sve to lepo potvrdi.
Ne zezajte decka...
Kopaj malo po registiju i vidi koje kljuceve treba da promenis.
Kopaj malo po registiju i vidi koje kljuceve treba da promenis.
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
'Public Const SPI_SETDESKWALLPAPER = 20
'Stavi ovaj kod u command buton
Dim ChangeWP
dim source
source = "C:\windows\setup.bmp"
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, source, 0)
'Public Const SPI_SETDESKWALLPAPER = 20
'Stavi ovaj kod u command buton
Dim ChangeWP
dim source
source = "C:\windows\setup.bmp"
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, source, 0)