ط§ظ„ط¨ظ‚ط§ط، ظ…ط³ط¬ظ„ ط¯ط§ط¦ظ…ط¢
ط§ظ„ط¥ط¹ظ„ط§ظ†ط§طھ
قديم 18-01-2013, 02:51 AM   #3

GM]Mora]
عضو فعال



الصورة الرمزية GM]Mora]


• الانـتـسـاب » Sep 2012
• رقـم العـضـويـة » 105122
• المشـــاركـات » 228
• الـدولـة » ™♥ USA ♥ ™
• الـهـوايـة » (•♥•)Just Help(•♥•)
• اسـم الـسـيـرفـر »
• الـجـنـس »
• نقـاط التقييم » 10
GM]Mora] صـاعـد

GM]Mora] غير متواجد حالياً



افتراضي



عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

ونكمل اخر مجموعه بمشيئه الله

كود افراغ حقول التكسـت


Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
Next





كـود دائره حمراء حول مؤشر الماوس [ نضع هذا الكود في الفورم ]


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Me.Cls
Circle (X, Y), 100, vbRed
End Sub





كـود اضهار واخفاء الصوره [ ] حلو الكود ذا

اول شي نضيف صوره من اداهـ [ Image1 ]

بعد كذا نضيف [ Command2 + Command1 ]

الاول نسـميه .. اضهار والثاني نسيمه اخفاء
هذا الكود نضعه في الزر الاول Command1


Private Sub Command1_Click()
Image1.Visible = True
End Sub





وهذا الكود في الـزر الثاني Command2



Private Sub Command2_Click()
Image1.Visible = False
End Sub





الاول اخفاء والثاني اضهار الصوره


هذا الكود لنسخ من التكسسـت
نفس الكود الي استعملته في برنامج [ لتوبيكات ]

نضع هذا الكود في الزر



With Text1
.SelStart = 0
.SelLength = Len(.Text)
Clipboard.Clear
.SetFocus
Clipboard.SetText .Text
End With

MsgBox "تم نسخ التوبيك", , "عملية النسخ"

وبالنهايه بقول

اذا كان من توفيقأ فمن الله
واذا كان من خطأ فمني ومن الشيطان

عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]



التعديل الأخير تم بواسطة GM]Mora] ; 18-01-2013 الساعة 03:00 AM

رد مع اقتباس
 


يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر)
 
أدوات الموضوع
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى الردود آخر مشاركة
تريد طلب تصميم تفضل هنا افضل فريق تصميم بخدمتكم حسين المختار قسم المواضيع المكررة و المخالفة 2 17-03-2015 04:44 PM
يا جدعان انا بتعلم فيجوال بيسك و عايزكو تقولولى البروجيكتس دى حلوة ولا لا man112001 بـعـيـدآ عـن سـيـلـك رود 2 30-11-2013 11:57 PM
شرح تصميم بى فيجوال بيسك GM]Mora] بـعـيـدآ عـن سـيـلـك رود 14 18-01-2013 02:35 AM


الساعة الآن 03:36 PM.