norsmor
یک شنبه 20 مرداد 1387, 02:37 صبح
Public Function getIndexFromTag(sTag As String) As Integer
Dim xB As cBlock
For Each xB In Me
If (xB.TagID = sTag) Then
getIndexFromTag = xB.theObjectShape.index
Exit Function
End If
Next xB
getIndexFromTag = -1 ' not found!
End Function
من یه برنامه روش کار میکنم اما واسه این قسمت پیغام خطا میده که شی واسه این تابع موجود نیس میشه بگین چه شی لازم داره
cBlock یه ماژول واسه shape
theObjectShape یه shape
دوستان شرمنده سوالات عجیب میپرسم من تازه کارم ممنون میشم راهنمایی بشم
Dim xB As cBlock
For Each xB In Me
If (xB.TagID = sTag) Then
getIndexFromTag = xB.theObjectShape.index
Exit Function
End If
Next xB
getIndexFromTag = -1 ' not found!
End Function
من یه برنامه روش کار میکنم اما واسه این قسمت پیغام خطا میده که شی واسه این تابع موجود نیس میشه بگین چه شی لازم داره
cBlock یه ماژول واسه shape
theObjectShape یه shape
دوستان شرمنده سوالات عجیب میپرسم من تازه کارم ممنون میشم راهنمایی بشم