1.將ocx引用入你的專案內。 2.[移除未使用的ActiveX控制項的相關資訊],打勾取消 專案->屬性->製成->[移除未使用的ActiveX控制項的相關資訊],打勾取消 3.宣告 Dim WithEvents ocxobj As 控制項名稱 4.載入控制項 判斷控制項是否已經存在,如已經存在將其移除。 If Not ocxobj Is Nothing Then Controls.Remove("物件名稱") End If 載入控制項 Set ocxobj = Controls.Add("專案名稱.控制項名稱" , "物件名稱")
留言
張貼留言