سلام علیکم :
اساتید گرامی کد زیر را ملاحظه فرمائید این کد عمل نمیکند اما...
Private Sub CommandButton1_Click()
For Each c In userform1.Controls
If c.Tag = 1 Then
For i = 1 To 6
If c.ControlTipText = i Then
c.Caption = i
End If
Next i
End If
Next c
End Sub
کد زیر که بجز یک خط مشابه کد بالا است در مقدار تعیین شده بنحو صحیح عمل میکند
Private Sub CommandButton1_Click()
For Each c In userform1.Controls
If c.Tag = 1 Then
For i = 1 To 6
If c.ControlTipText =5 Then
c.Caption = i
End If
Next i
End If
Next c
End Sub
خواهشمند است اساتید محترم آموزش دهند که ایراد کد اول کجاست و چطوری حل میشود
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)