چند تا سوال درمورد object ها ...

[esmaeily-hosein]

تا جایی که من فهمیدم قراره مثلا روی یک خط کلیک بشه
و یک کاری انجام بشه درسته .
اگر به من باشه من این برنامه رو به این شکل مینویسم
[align=left]
Private Sub Form_Activate()
Rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
For i = 0 To Picture1.ScaleWidth Step 10
Picture1.Line (i, 0)-(i, Picture1.ScaleHeight), vbBlack
Next i
End Sub
Private Sub Form_Load()
Picture1.ScaleMode = 3
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To X
If Picture1.Point(i, 0) = vbBlack Then
d = d + 1
End If
Next
MsgBox "The Line " & d & "Clicked"
End Sub
]
و فکر نمیکنم توضیح خاصی هم داشته باشه
و اگر دنبال سرعت بیشتر هم هستید بجای point از getpixel
استفاده کنید .
حالا من یک سوال از شما دارم مشکل استفاده از load چیست
من که از نظر سرعت چک کردم تفاوت چندانی نداشتند .

و قسمت دیگری که به نظرم رسید برای اشیا آرایه ای برای ساخت
آن فقط کافیست
Dim newbutton(5) As VB.CommandButton
که تنها چیزی که من پی نبردم اینه که چرا از withevents
پشتیبانی نمیکند . که این کار نیز با یک قسمت بندی مناسب
برای فرم حل میشود .
مثلا اگر از 0 تا 20 کلیک شد فلان کار و اگرنه کار دیگر
ولی طراحی الگوریتم چقدر لذت بخش .

اگر میخواهید سرعت رو هم چک کنید (اینه که همه فولند) حالا
اونایی که فول نیستند یاد بگیرند تا تبلیغات الکی نشه .
start% = Timer
{

}
result% = MsgBox(Format(Timer - start, "##,##") & "secs")