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

[Link mogu videti samo ulogovani korisnici]



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 5076 korisnika na forumu :: 71 registrovanih, 7 sakrivenih i 4998 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 1MAP, AleksSE, ALEXV, Banovo Brdo, BB, bbrasnjo3, Belac91, boxbole, C-Gun, casual03, cenejac111, Chainsaw, cikadeda, Comyymoc, Crazzer, damirZR, desmeki, Dimitrise93, djboj, DonRumataEstorski, Džekson, g_g, Gheljda, hatman, havoc995, HrcAk47, Igritelj, invictuss, JK, Kajzer Soze, Komder, Krusarac, kuntakinte, lakson001, laurusri, Lieutenant, ljubo70, mercedesamg, Milan A. Nikolic, milenko crazy north, Milometer, Mrav Obrad, neutrino, nixos, obsc, paja69, panzerwaffe, pavle_pzs, picknick, Pilence, proka89, proljece, Razdroid, repac, rodoljub, SamoGledam, Sass Drake, skvara, Smiljkovich, Srki98, synergia, tanakadzo, Trpe Grozni, Vaske8990, vespa nikola, VJ, VonDrobac, Vrač, Zastava, ZetaMan, Zorge