01-03-2014, 03:07 AM
|
#1
|
The Professional
|
• الانـتـسـاب » Nov 2011
|
• رقـم العـضـويـة » 94480
|
• المشـــاركـات » 10,614
|
• الـدولـة »
|
• الـهـوايـة » VB.NET Programmer
|
• اسـم الـسـيـرفـر » Taurus
|
• الـجـنـس » Male
|
• نقـاط التقييم » 2180
|
|
|
كود يوقف التنفيذ لمدة دقيقة
انا دلوقتي حاطط في الـ Form_Load الكود دة
كود:
If Auto1.Checked = True Then
Login1.PerformClick()
End If
If Auto2.Checked = True Then
Login2.PerformClick()
End If
If Auto3.Checked = True Then
Login3.PerformClick()
End If
If Auto4.Checked = True Then
Login4.PerformClick()
End If
دلوقتي انا عايزه يستني دقيقة قبل ما يدخل علي الـ If التانية
يعني عايز منظر الكود يبقي كدة
كود:
If Auto1.Checked = True Then
Login1.PerformClick()
End If
'حاجة هنا توقف تنفيذ لمدة ديقيقة
If Auto2.Checked = True Then
Login2.PerformClick()
End If
'حاجة هنا توقف تنفيذ لمدة ديقيقة
If Auto3.Checked = True Then
Login3.PerformClick()
End If
'حاجة هنا توقف تنفيذ لمدة ديقيقة
If Auto4.Checked = True Then
Login4.PerformClick()
End If
'حاجة هنا توقف تنفيذ لمدة ديقيقة
( مش عايز Timer )
انا شفت الكود مرة ع النت بيتحط مكان ما انت عايز توقف التنفيذ بس مش فاكره
طلب كمان :.:.:
عايز طريقة أصغير بيها الكود دة :
If SamePass.Checked = True Then
كود:
PW_1.Text = SamePassVal.Text
PW_2.Text = SamePassVal.Text
PW_3.Text = SamePassVal.Text
PW_4.Text = SamePassVal.Text
PW_5.Text = SamePassVal.Text
PW_6.Text = SamePassVal.Text
PW_7.Text = SamePassVal.Text
PW_8.Text = SamePassVal.Text
PW1PT2.Text = SamePassVal.Text
PW2PT2.Text = SamePassVal.Text
PW3PT2.Text = SamePassVal.Text
PW4PT2.Text = SamePassVal.Text
PW5PT2.Text = SamePassVal.Text
PW6PT2.Text = SamePassVal.Text
PW7PT2.Text = SamePassVal.Text
PW8PT2.Text = SamePassVal.Text
PW_1.Enabled = False
PW_2.Enabled = False
PW_3.Enabled = False
PW_4.Enabled = False
PW_5.Enabled = False
PW_6.Enabled = False
PW_7.Enabled = False
PW_8.Enabled = False
PW1PT2.Enabled = False
PW2PT2.Enabled = False
PW3PT2.Enabled = False
PW4PT2.Enabled = False
PW5PT2.Enabled = False
PW6PT2.Enabled = False
PW7PT2.Enabled = False
PW8PT2.Enabled = False
End If
If SamePass.Checked = False Then
PW_1.Enabled = True
PW_2.Enabled = True
PW_3.Enabled = True
PW_4.Enabled = True
PW_5.Enabled = True
PW_6.Enabled = True
PW_7.Enabled = True
PW_8.Enabled = True
PW1PT2.Enabled = True
PW2PT2.Enabled = True
PW3PT2.Enabled = True
PW4PT2.Enabled = True
PW5PT2.Enabled = True
PW6PT2.Enabled = True
PW7PT2.Enabled = True
PW8PT2.Enabled = True
End If
لو ينفع مثلًا أعمل حاجة زي اسم مشترك للأدوات
حاولت بالـ Tag معرفتش
لو ينفع بيها ياريت تقولولي ازاي
ولو مينفعش
يبقي ايه فايد الـ Tag
لو فيه طريقة تانية يبقي كويس
معلش طلباتي كتير
|
|
التعديل الأخير تم بواسطة youssef13 ; 01-03-2014 الساعة 03:50 AM
|