Cùng 1 lệnh image_click cho nhiều đối tượng IMAGE trong 1 userform

Liên hệ QC
V

vietmai

Thành viên mới
Tham gia
9/10/20
Bài viết
3
Được thích
1
em chào mọi người!!
em có 1 userform(UF1) trong đó có 8 control IMAGE(từ Image1->Image8) (số lượng ảnh này không xác định tùy vào số lượng ảnh(shape...)có thể tăng lên ,đối tượng Image được thêm bằng tay không dùng code) được để dưới dang Shape(1->8) trong sheet1 ,giờ phải làm sao để khi ấn vào từng image bằng events Image_click thì hiện ra userform mới (UF2) trong đó có 1 control Image giống y đối tượng Image vừa click ạ
VD như là ấn bào Image1 thì bên UF2 sẽ hiện hình của Image1

em muốn hỏi làm các tạo events click cho tất cac đối tượng IMAGE ở UF1
 

File đính kèm

  • test.xlsm
    192 KB · Đọc: 5
Sắp xếp theo thời gian sắp xếp theo bầu chọn
vietmai đã viết:
em chào mọi người!!
em có 1 userform(UF1) trong đó có 8 control IMAGE(từ Image1->Image8) (số lượng ảnh này không xác định tùy vào số lượng ảnh(shape...)có thể tăng lên ,đối tượng Image được thêm bằng tay không dùng code) được để dưới dang Shape(1->8) trong sheet1 ,giờ phải làm sao để khi ấn vào từng image bằng events Image_click thì hiện ra userform mới (UF2) trong đó có 1 control Image giống y đối tượng Image vừa click ạ
VD như là ấn bào Image1 thì bên UF2 sẽ hiện hình của Image1

em muốn hỏi làm các tạo events click cho tất cac đối tượng IMAGE ở UF1
Nhấp chuột vào đây để mở rộng...
Tham khảo ở đây thử:
www.giaiphapexcel.com

Dùng Class Module để tạo sự kiện người dùng

Tôi đang trong những bước đầu tiên nghiên cứu về Class Module nên sẽ viết theo sự hiểu biết của tôi. Nếu có sai sót, mong các cao thủ bổ sung thêm Mục đích của bài viết này là: - Tạo sự kiện người dùng khi mà các sự kiện cung cấp sẳn không đáp ứng được nhu cầu - Khi mà chúng ta có nhu cầu "thu...
www.giaiphapexcel.com www.giaiphapexcel.com
 
Upvote 0
ndu96081631 đã viết:
Tham khảo ở đây thử:
www.giaiphapexcel.com

Dùng Class Module để tạo sự kiện người dùng

Tôi đang trong những bước đầu tiên nghiên cứu về Class Module nên sẽ viết theo sự hiểu biết của tôi. Nếu có sai sót, mong các cao thủ bổ sung thêm Mục đích của bài viết này là: - Tạo sự kiện người dùng khi mà các sự kiện cung cấp sẳn không đáp ứng được nhu cầu - Khi mà chúng ta có nhu cầu "thu...
www.giaiphapexcel.com www.giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...
cảm ơn anh đã chỉ !! em có thử làm theo nhưng mà event click ko hoạt động, anh có thể giúp em xem vì sao dc không ạ
có lẽ em chưa hiểu rõ bản chất nên anh có thể chỉ em với giải thích đoạn anh sửa giúp em dc hok anh
 

File đính kèm

  • test.xlsm
    193.8 KB · Đọc: 10
Upvote 0
Sử dụng CallByName thì Class Module chỉ cần viết một lần duy nhất cho tất cả mọi sự kiện
Code như bên dưới

Code Userform:
JavaScript: 
Option Explicit
Private ObjectImages As Collection

Private Sub UserForm_Initialize()
  Dim I As Integer
  Dim sh As String
  Dim Shape As String
  Dim target As Control
  Dim Image As mutilImg
 
  sh = "Sheet1"
  For I = 1 To 8
      Shape = "Shape" & I
      UploadImage Me.Controls.Item("Image" & I), sh, Shape
      Set Image = New mutilImg
      Image.Init Me.Controls.Item("Image" & I), I, "CallbackByEvent"
  Next I
End Sub
Sub CallbackByEvent(Control As Object, index%, EventControl As String, _
            Optional ByVal b%, _
            Optional ByVal s%, _
            Optional ByVal X!, _
            Optional ByVal Y!)
  On Error Resume Next
  Select Case EventControl
  Case "MouseDown"
    Dim F
    For Each F In VBA.UserForms
      If F.Name = "UF2" Then  Unload F: Exit For
    Next
    Debug.Print index
    Unload Me
  End Select
End Sub

-------------------------------------



Class Module sự kiện:
JavaScript: 
Option Explicit

Private WithEvents ImageCL As MSForms.Image
Private im, form, P$, I

Sub Init(Image As Object, index, callback$)
  Set ImageCL = Image
  Set im = Image
  Set form = FormParent(Image)
  P = callback
  I = index
End Sub

Private Sub CB(ByVal E$, Optional ByVal b%, Optional ByVal s%, Optional ByVal X!, Optional ByVal Y!)
  On Error Resume Next
  VBA.CallByName form, P, 1, im, I, E, b, s, X, Y
End Sub

Private Sub ImageCL_MouseDown(ByVal b%, ByVal s%, ByVal X!, ByVal Y!): CB "MouseDown", b, s, X, Y: End Sub

Private Sub Class_Initialize()
  Set im = Nothing
  Set form = Nothing
  Set ImageCL = Nothing
End Sub

Private Function FormParent(ByVal Child As Object) As Object
  On Error GoTo E
  Dim k&
  Set FormParent = Child
  Do
    Set FormParent = FormParent.Parent:
    k = k + 1: If k > 150 Then Exit Do
  Loop
E: On Error GoTo 0
End Function
 
Upvote 0
vietmai đã viết:
cảm ơn anh đã chỉ !! em có thử làm theo nhưng mà event click ko hoạt động, anh có thể giúp em xem vì sao dc không ạ
có lẽ em chưa hiểu rõ bản chất nên anh có thể chỉ em với giải thích đoạn anh sửa giúp em dc hok anh
Nhấp chuột vào đây để mở rộng...
Bạn chưa làm được là bởi: hình trên sheet là Picture, trong khi hình mà ta cần load lên Image phải là IPictureDisp <--- 2 thể loại khác nhau.
Vậy bạn cần phải thêm công đoạn biến object thành IPictureDisp, xong mới load lên image
Code trong Class sửa thành:
Mã: 
Public WithEvents ImageCL As MSForms.Image
Private Sub ImageCL_Click()
  Dim thutu As String
  Dim IPicDisp As IPictureDisp
  thutu = Right(ImageCL.Name, 1)
  UF1.Hide
  Set IPicDisp = modIPicDisp.PictureFromObject(Sheet1.Pictures("Shape" & thutu), False)
  UF2.Image1.Picture = IPicDisp
  UF2.Show
End Sub
Cái modIPicDisp.PictureFromObject chính là hàm PictureFromObject nằm trong module modIPicDisp (xem trong file)
Code trong UF1:
Mã: 
Dim img() As New mutilImg
Private Sub UserForm_Initialize()
  Dim i As Integer
  Dim ctrl As Control
  For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.Image Then
      i = i + 1
      ReDim Preserve img(1 To i)
      Set img(i).ImageCL = ctrl
     End If
  Next
End Sub
 

File đính kèm

  • test (1).xlsm
    198.9 KB · Đọc: 22
Upvote 0
HeSanbi đã viết:
Sử dụng CallByName thì Class Module chỉ cần viết một lần duy nhất cho tất cả mọi sự kiện
Code như bên dưới

Code Userform:
JavaScript: 
Option Explicit
Private ObjectImages As Collection

Private Sub UserForm_Initialize()
  Dim I As Integer
  Dim sh As String
  Dim Shape As String
  Dim target As Control
  Dim Image As mutilImg

  sh = "Sheet1"
  For I = 1 To 8
      Shape = "Shape" & I
      UploadImage Me.Controls.Item("Image" & I), sh, Shape
      Set Image = New mutilImg
      Image.Init Me.Controls.Item("Image" & I), I, "CallbackByEvent"
  Next I
End Sub
Sub CallbackByEvent(Control As Object, index%, EventControl As String, _
            Optional ByVal b%, _
            Optional ByVal s%, _
            Optional ByVal X!, _
            Optional ByVal Y!)
  On Error Resume Next
  Select Case EventControl
  Case "MouseDown"
    Dim F
    For Each F In VBA.UserForms
      If F.Name = "UF2" Then  Unload F: Exit For
    Next
    Debug.Print index
    Unload Me
  End Select
End Sub

-------------------------------------



Class Module sự kiện:
JavaScript: 
Option Explicit

Private WithEvents ImageCL As MSForms.Image
Private im, form, P$, I

Sub Init(Image As Object, index, callback$)
  Set ImageCL = Image
  Set im = Image
  Set form = FormParent(Image)
  P = callback
  I = index
End Sub

Private Sub CB(ByVal E$, Optional ByVal b%, Optional ByVal s%, Optional ByVal X!, Optional ByVal Y!)
  On Error Resume Next
  VBA.CallByName form, P, 1, im, I, E, b, s, X, Y
End Sub

Private Sub ImageCL_MouseDown(ByVal b%, ByVal s%, ByVal X!, ByVal Y!): CB "MouseDown", b, s, X, Y: End Sub

Private Sub Class_Initialize()
  Set im = Nothing
  Set form = Nothing
  Set ImageCL = Nothing
End Sub

Private Function FormParent(ByVal Child As Object) As Object
  On Error GoTo E
  Dim k&
  Set FormParent = Child
  Do
    Set FormParent = FormParent.Parent:
    k = k + 1: If k > 150 Then Exit Do
  Loop
E: On Error GoTo 0
End Function
Nhấp chuột vào đây để mở rộng...
em cam on anh
ndu96081631 đã viết:
Bạn chưa làm được là bởi: hình trên sheet là Picture, trong khi hình mà ta cần load lên Image phải là IPictureDisp <--- 2 thể loại khác nhau.
Vậy bạn cần phải thêm công đoạn biến object thành IPictureDisp, xong mới load lên image
Code trong Class sửa thành:
Mã: 
Public WithEvents ImageCL As MSForms.Image
Private Sub ImageCL_Click()
  Dim thutu As String
  Dim IPicDisp As IPictureDisp
  thutu = Right(ImageCL.Name, 1)
  UF1.Hide
  Set IPicDisp = modIPicDisp.PictureFromObject(Sheet1.Pictures("Shape" & thutu), False)
  UF2.Image1.Picture = IPicDisp
  UF2.Show
End Sub
Cái modIPicDisp.PictureFromObject chính là hàm PictureFromObject nằm trong module modIPicDisp (xem trong file)
Code trong UF1:
Mã: 
Dim img() As New mutilImg
Private Sub UserForm_Initialize()
  Dim i As Integer
  Dim ctrl As Control
  For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.Image Then
      i = i + 1
      ReDim Preserve img(1 To i)
      Set img(i).ImageCL = ctrl
     End If
  Next
End Sub
Nhấp chuột vào đây để mở rộng...
em cảm ơn anh vì đã giúp đỡ ạ!!
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

Emyeuexcel
  • Question
In theo số thứ tự
    • Chấp nhận
Trả lời
4
Đọc
64
BuiQuangThuan
B
C
  • Question
VBA copy 2 vùng dữ liệu từ 1 workbook này sang 2 vùng của workbook khác!
    • Phẫn nộ
Trả lời
10
Đọc
107
cuongbv2103
C
H
  • Question
nhờ các bác viết mẫu cho em lệnh dùng checkbox để rút ngắn thời gian thao tác
Trả lời
14
Đọc
285
hiv174
H
Tình nghĩa giang hồ
Hỗ trợ dữ liệu xen kẽ căn bằng theo quy luật.
Trả lời
7
Đọc
74
Phan Thế Hiệp
Phan Thế Hiệp
L
[xin nhờ giúp đỡ] hàm trích xuất ra dữ liệu thỏa mã điều kiện và ghi vào một ô
Trả lời
9
Đọc
284
Lá chanh
L
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom