Sửa code cho file load picture to form (1 người xem)

[anhdepjai]

Dear các bác,

Hôm trước em có tham khảo trên diễn dàn, có 1 file loadpic2form.

Em chỉnh sửa theo phần lập trình như thế, tuy nhiên gặp lỗi mà em tìm từ sáng chưa ra: khi ID = 029 thì không load được píc. Các ID khác vẫn load bình thường.

Mong các bác xem giúp ah

Thanks nhiều

 

[anhdepjai]

up FILE

Hix, em không để ý, lúc trước up file bị lỗi. mọi người xem giúp em nhé. Thanks

 

[viehoai]

Dear các bác,

Hôm trước em có tham khảo trên diễn dàn, có 1 file loadpic2form.

Em chỉnh sửa theo phần lập trình như thế, tuy nhiên gặp lỗi mà em tìm từ sáng chưa ra: khi ID = 029 thì không load được píc. Các ID khác vẫn load bình thường.

Mong các bác xem giúp ah

Thanks nhiều

Mình thấy bình thường bạn ơi kể cả chọn ID=029. Bạn có thể chụp thông báo lỗi để mọi người xem thử

 

[anhdepjai]

Ặc,

Vậy bạn có load được ảnh lên khi check trong view không?
Mình tích vào ID 029 thì không hiện ảnh, trong khi các ID khác luôn hiện.
(shape name = ID = 029)

 

[viehoai]

Ặc,

Vậy bạn có load được ảnh lên khi check trong view không?
Mình tích vào ID 029 thì không hiện ảnh, trong khi các ID khác luôn hiện.
(shape name = ID = 029)

Có bạn a. Mình thấy vẫn bình thường mà

 

[phucbugis]

Dear các bác,

Hôm trước em có tham khảo trên diễn dàn, có 1 file loadpic2form.

Em chỉnh sửa theo phần lập trình như thế, tuy nhiên gặp lỗi mà em tìm từ sáng chưa ra: khi ID = 029 thì không load được píc. Các ID khác vẫn load bình thường.

Mong các bác xem giúp ah

Thanks nhiều

Mình nghĩ, nếu bạn đặt toàn bộ Pic ở bên trong sheet rồi đưa vào form có nhược điểm: khi số lượng ảnh lớn (vài trăm, vài nghìn) thì bạn kiểm soát hơi vất vả đó + dung lượng file rất lớn.

Tại sao bạn ko đặt các Pic đó ở 1 thư mục rồi liên kế file đến thư mục đó nhỉ

Bạn xem ví dụ dưới đây có OK ko.

Link MediaFire: Pic2Form

 

[phulien1902]

Mình xem 2 file của bạn khi tích vào ID 029 đều hiện lên hình, có sao đâu?
Chụp hình bạn xem.

 

[anhdepjai]

Mình cũng định như vậy, Nhưng gặp vấn đề là khi gửi và lưu cái này lại phải kèm thêm 1 thư mục nữa.
Hiện danh sách mình làm có khoảng 250 người, đầy đủ ảnh nhưng dung lượng chỉ có 8.6MB. KEKE, ảnh vẫn rõ nét.

Mình sử dụng phần mềm Portable_Picture_Resize_Genius_v3.0 để nén ảnh xuống

 

[anhdepjai]

Có bạn a. Mình thấy vẫn bình thường mà
View attachment 115248

Lạ nhỉ, sao của mình lại không thấy hiện gì cả nhỉ.

ChánView attachment 115259View attachment 115260

 

[siwtom]

Lạ nhỉ, sao của mình lại không thấy hiện gì cả nhỉ.

Chán

................................
Không cần thì xóa vậy

 

[ndu96081631]

Dear các bác,

Hôm trước em có tham khảo trên diễn dàn, có 1 file loadpic2form.

Em chỉnh sửa theo phần lập trình như thế, tuy nhiên gặp lỗi mà em tìm từ sáng chưa ra: khi ID = 029 thì không load được píc. Các ID khác vẫn load bình thường.

Mong các bác xem giúp ah

Thanks nhiều

Giải quyết nhanh:
Code trong UserForm của bạn là:

Private Sub ListBox1_Click()
  Dim PicName As String, [COLOR=#ff0000]pic As Picture[/COLOR], IPic As IPictureDisp
  Dim lR As Long
  On Error Resume Next
  lR = ListBox1.ListIndex
  PicName = Me.ListBox1.List(lR, 0)
  [COLOR=#ff0000]Set pic = Sheet1.Pictures(PicName)[/COLOR]
  ...............
End Sub

Mấy chổ màu đỏ ấy sửa thành:

Private Sub ListBox1_Click()
  Dim PicName As String, [COLOR=#ff0000]pic As Shape[/COLOR], IPic As IPictureDisp
  Dim lR As Long
  On Error Resume Next
  lR = ListBox1.ListIndex
  PicName = Me.ListBox1.List(lR, 0)
  [COLOR=#ff0000]Set pic = Sheet1.Shapes(PicName)[/COLOR]
  ...............
End Sub

Thử lại

 

[anhdepjai]

Xin cảm ơn thầy.
OK rồi ah

 

[anhdepjai]

Thầy NDU sửa giúp em thêm 1 nút ở trên cái user form để in ra thông tin hiện trên user form được không ah?
Tức là em muốn in luôn User form khi mình check đến ID nào đó ah

Thanks