[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 "تم نسخ التوبيك", , "عملية النسخ"

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

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

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