MyCity » Visual Studio -> Visual Basic » Kod U Common Dialogu za Save Slike

Kod U Common Dialogu za Save Slike

Napisano na dan: 9.6.2008
2

Kod U Common Dialogu za Save Slike
Pagination Prethodna strana

Idi na vrh

Poslao: 11 Jun 2008 03:32
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Samo da dopunim, zbog drugih clanova, ovaj je kod:

Option Explicit Dim ImeFajlaSlike As String Private Sub Command1_Click()     On Error Resume Next     CommonDialog1.DialogTitle = "Otvori"     CommonDialog1.Filter = "Svi tipovi slika|*.bmp;*.gif;*.ico;*.jpg|BMP fajlovi (*.bmp)|*.bmp|GIF fajlovi (*.gif)|*.gif|ICO fajlovi (*.ico)|*.ico|JPG fajlovi (*.jpg)|*.jpg|"     CommonDialog1.ShowOpen     ImeFajlaSlike = CommonDialog1.FileName     Picture1.Picture = LoadPicture(ImeFajlaSlike)     Label1.Caption = ImeFajlaSlike End Sub Private Sub Command2_Click()     On Error Resume Next     CommonDialog1.DialogTitle = "Sacuvaj"     CommonDialog1.Filter = "Bitmap fajl (*.bmp)|*.bmp|"     CommonDialog1.ShowSave     ImeFajlaSlike = CommonDialog1.FileName     ImeFajlaSlike = Left(ImeFajlaSlike, InStrRev(ImeFajlaSlike, ".") - 1)     ImeFajlaSlike = ImeFajlaSlike & ".bmp"     SavePicture Picture1.Picture, ImeFajlaSlike     Label1.Caption = ImeFajlaSlike End Sub

Dopuna: 11 Jun 2008 3:32

https://www.mycity.rs/must-login.png



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Visual Studio -> Visual Basic » Kod U Common Dialogu za Save Slike

Ko je trenutno na forumu
 

Ukupno su 1053 korisnika na forumu :: 47 registrovanih, 7 sakrivenih i 999 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: amaterSRB, AMCXXL, aramis s, bobomicek, bojan_t, bojankrstc, cemix, Darko8, Dorcolac, draganl, dragoljub11987, Georgius, Haris, hatman, HogarStrashni, Joja, krkalon, Krusarac, kybonacci, Leonov, Lieutenant, ljuba, mane123, mean_machine, Miki01, mikrimaus, milenko crazy north, MiroslavD, nebidrag, nebkv, nemkea71, nenad81, Panter, pein, repac, rikirubio, Romibrat, ruma, Skywhaler, solic, tmanda323, trajkoni018, Vlada78, vukovi, wizzardone, šumar bk2, 223223