منتديات نغم الحب منتدى عراقي عربي ومن كافة انحاء الوطن العربي |
:::::: مديــــر الــــمــــوقـــــع :::::: اهلا وسهلا بكم في منتدى نغم الحب تحياتي لجميع اهلا وسهلا بكم زوارنااا في منتديات نغم الحب تحياتي لكم تحياتي قناص الحب
|
|
| صنـع برنامج فلود | |
| | كاتب الموضوع | رسالة |
---|
صهيب Admin صاحب الموقع Admin
عدد المساهمات : 256 نقاط : 78540 السٌّمعَة : 4 تاريخ التسجيل : 09/09/2011 الموقع : منتديات نغم الحب
| موضوع: صنـع برنامج فلود الجمعة نوفمبر 18, 2011 8:33 am | |
|
كود: Private Sub Timer1_Timer() كود:
SendKeys Text1.Text & "{enter}"[center]End Sub
وبعـدها نضغـط على Command2 ونضـع فيه هذا الكوٍدَ
كود: Private Sub Command2_Click()
كود: Timer1.Enabled = True On Error Resume Next Timer1.Interval = text2.Text End Sub مــلآحظـهُ : هذاَ الزٍر رآح يكوٍن زرٍ إبـدأ لبـدأ الفلـوٍدوٍنضع هذا الكوٍد في Command1 هذا الكـوٍدَ
كود: Private Sub Command1_Click()
كود: Timer1.Enabled = False End Sub ملآحـظهُ : هذآ الزرِ يستخـدمُ فـي إيقآف الفلـوٍد إلى هنــآ كـــل شـيءُ تمــآآمُفـرضآ لـوٍ حبيت آنك تضيف سـرعه للـفلوٍد يمـكن اضافـة LABEL وجنـبه text وإنتهى الموضوعُفـرضــآ لـوٍ حبـيت اتضيـفً زرٍ للحـقوقَ ..تضـع COMMAND3 جـديد وتضعُ فـيه هذا الكـوٍد معُ تغييرٍ مآ يلزٍمً فـأنآ فـرضآ وآضع الديفُ بـوينتكود: Private Sub Command3_Click() كود: MsgBox " All Copy Right ® For DeV-PoinT ", vbOKOnly, "By HaJuS" End Sub وٍضيفَ Command4 لـيكون زرٍ لذهـآب إلى موٍقـعً تضـعً هذا آلكـوٍدُكود: Private Sub Command4_Click()
كود: Dim x As Object طبعـآ بعد كـل هالخطـوٍآت خلآص آنت سـويت برنآمج الفلوٍد الخآصً فـيكً لــكنً بـقى كـود مهـم بدونه مآبيشتغل الفلـوٍدَ كود: [/center] | |
| | | | صنـع برنامج فلود | |
|
مواضيع مماثلة | |
|
| صلاحيات هذا المنتدى: | لاتستطيع الرد على المواضيع في هذا المنتدى
| |
| |
| |
|