04-03-16, 06:58 PM
أريد كود توليد مجموعة أرقام من 0 إلى 1000000 و إضافتها ليست بوكس و حفضها في ملف نصي
قمت بالعمل بهذا الكود
لكن البرنامج يصبح ثقيل
هل من حل
قمت بالعمل بهذا الكود
PHP كود :
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim x As Long
For x = Val(Text1.Text) To Val(Text2.Text)
List1.AddItem x
Label1.Caption = x
Label2.Caption = Val(100 * Val(List1.ListCount))
If List1.ListCount = Text2.Text Then
Timer1.Enabled = False
End If
Next x
End Sub
لكن البرنامج يصبح ثقيل
هل من حل