Option Explicit
Private Type POINT
X As Long
Y As Long
End Type
Dim arr As Dictionary
Dim pt As POINT
Private Sub Form_Load()
Set arr = New Dictionary
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
pt.X = X
pt.Y = Y
arr.Add CStr(Now), pt
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set arr = Nothing
End Sub
求支招，怎么解決這個問題。
uj5u.com熱心網友回復：
POINT是VB關鍵字，修改為POINTAPIpt.X = X
前面加上
Set pt = New POINTAPI
uj5u.com熱心網友回復：
不是吧。我只是隨便舉的一個例子，意思是我其實是想添加自己定義的一個型別，但是不行。 你那個會出現錯誤： 無效使用New關鍵字！
uj5u.com熱心網友回復：
把你的： arr.Add CStr(Now), pt改成類似這樣：
arr.Add CStr(Now), pt.X & "|" & pt.Y
Dictionary物件的add方法，第二個引數不可以直接用“結構體”吧。
uj5u.com熱心網友回復：
必須把結構POINT定義到tlb中（關鍵是有了公共的GUID），才可以作為Dictionary的成員。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/89571.html
標籤：VB基礎類