|
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
|
