-
02-27-2010, 06:56 AM #11Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Mình làm được rồi.Cám ơn mọi người nhé !
Mà hoá ra bạn LoveBlue là Noname à,mình vẫn lang thang trên blog của bạn suốt,tìm được khối thứ bổ ích.
Nhân tiện bạn sửa luôn 2 dòng này nè :
Trên form, bạn vẽ 1 textbox đặt tên là txtpicture => TxtPic
Và cả 2 cái TxtPic và image phải có control Sourse và giống nhau.
Chúc bạn ngày càng hoàn thiện blog.
-
02-27-2010, 06:05 PM #12Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Bạn LoveBlue ơi. Code này là của bạn,mình dùng và phát hiện ra có 2 vấn đề.
1.Nếu mình mở hộp thoại và chon ảnh xong cho 1 bản ghi thì tự nhiên tất cả đối tượng ảnh Image của các bản ghi khác(bản ghi chưa có ảnh ) cũng sẽ hiện đúng ảnh đó.
Dùng Requery không tác dụng,phải tắt Form đi mở lại mới hết.Mặc dù nó không ảnh hưởng đến việc chọn ảnh của các bản ghi khác nhưng trông nó không Pro (Như kiểu ảnh Ma ấy,tắt Form mới hết )
2.Nếu 1 bản ghi đã có ảnh,mà vô tình người dùng lại nhấn nút cmdInsertPic thêm lần nữa nhưng ko chọn ảnh mà nhấn Cancel thì ảnh đã lưu trước đó cũng sẽ mất đi.
Mọi người cho mình cách giải quyết với nhé
Thank everyone !
-
02-28-2010, 08:55 PM #13Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Gửi bởi glasseggs
Mã:Public Function Filename() As String Dim st As String Dim fdlg As FileDialog Dim retnum As Long Set fdlg = Application.FileDialog(msoFileDialogFilePicker) With fdlg .AllowMultiSelect = False .Filters.Add "Picture", "*.jpg,*.bmp" .Title = "Select Picture File" retnum = .Show If retnum = -1 Then If .SelectedItems.Count = 0 Then st = "" Else st = .SelectedItems(1) End If Filename = st Else Filename = "" End If End With Set fdlg = Nothing End Function
Mã:Private Sub Command3_Click() On Error Resume Next Me.txtPic = Filename Me.Image9.Picture = Me.txtPic End Sub
Mã:Private Sub Form_Current() If Me.txtPic <> "" Then Me.Image9.Picture = Me.txtPic Else Me.Image9.Picture = "" End If End Sub
Thân
-
03-01-2010, 03:12 AM #14Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Mình làm được rồi .
Vấn đề 1 mình làm như bạn Xuanthanh.
Còn vấn đề 2 mình làm như LoveBlue nói,mọi người xem thử code có vấn đề không nhé,mình chạy thấy ngon lành :
Mã:Private Sub Command181_Click() Dim tuan As String tuan = getFile("ETB TRAINING CORPORATION", "Select the Picture File", "*.jpg;*.bmp;*.png") If tuan <> "" Then Me![TxtPic] = tuan Me![TxtPic] = LCase(Me![TxtPic]) Me![Image].Picture = Me!TxtPic End If End Sub
-
03-01-2010, 03:17 AM #15Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Còn nếu làm lại toàn bộ như bạn Xuanthanh chỉ.
Thì mình thấy thêm phần 4 / này nữa :
4/
Mã:Private Sub Command2_Click() On Error Resume Next Dim abc As String abc = Filename If abc <> "" Then Me.txtpic = abc Me.Image.Picture = Me.txtpic End If End Sub
Cám ơn tất cả mọi người nhé .
-
03-01-2010, 04:20 AM #16Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 5
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Gửi bởi glasseggs
-
03-01-2010, 09:10 PM #17Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Gửi bởi xuanthanh
-
03-01-2010, 10:17 PM #18Banned
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Gửi bởi glasseggs
Thân
P/S : Bạn gửi cái file của bạn lên đây hoặc gửi vào hộp mail của tôi, tôi kiểm tra giùm cho
Mail : bachdanggiang_2006@yahoo.com
-
03-01-2010, 10:43 PM #19Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Cho mình hỏi Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Cám ơn bạn nhé,nhưng mình làm theo cách trên cũng được rồi mà.
Thanks mọi người
-
07-07-2016, 05:55 AM #20Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
em cũng gặp trường hợp này chưa hiểu rõ lắm ạ, mà em lại bị cái ko add command được, nó báo failed to creat visual basic ạ
Những nếp nhăn rãnh mũi má tuy không ảnh hưởng đến sức khỏe, không phải là vấn đề xuống cấp quá nghiêm trọng nhưng lại khiến khuôn mặt trở thành kém sắc, già nua trước tuổi. Cộng thêm tác động cơ học...
Trẻ hóa khuôn mặt - Mẹo nhỏ khắc trị 'râu rồng' (17)