![]() |
#3 | ||||||||||
![]() ![]()
|
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] ونكمل اخر مجموعه بمشيئه الله كود افراغ حقول التكسـت 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 زائر) | |
أدوات الموضوع | |
انواع عرض الموضوع | |
|
|
![]() |
||||
الموضوع | كاتب الموضوع | المنتدى | الردود | آخر مشاركة |
تريد طلب تصميم تفضل هنا افضل فريق تصميم بخدمتكم | حسين المختار | قسم المواضيع المكررة و المخالفة | 2 | 17-03-2015 04:44 PM |
يا جدعان انا بتعلم فيجوال بيسك و عايزكو تقولولى البروجيكتس دى حلوة ولا لا | man112001 | بـعـيـدآ عـن سـيـلـك رود | 2 | 30-11-2013 11:57 PM |
شرح تصميم بى فيجوال بيسك | GM]Mora] | بـعـيـدآ عـن سـيـلـك رود | 14 | 18-01-2013 02:35 AM |