Dim keyascii As Short = Asc(e.KeyChar)
If keyascii = 13 Then
MsgBox("a")
End If
او
If Asc(e.KeyChar) = 13 Then
MsgBox("enter")
End If
او
If e.KeyChar = "a" Then
MsgBox("a")
End IfDim keyascii As Short = Asc(e.KeyChar)
If keyascii = 13 Then
MsgBox("a")
End If
او
If Asc(e.KeyChar) = 13 Then
MsgBox("enter")
End If
او
If e.KeyChar = "a" Then
MsgBox("a")
End Ifهذا الكود يكتف في الحدث KeyPress
يعطيك العافية MiMi بصراحة كنت اصمم Notepad وازود فيها مثل حساب عدد الاسطر وعدد الكلمات وعدد الجمل وعدد الفراغات ... وانتي اعطيتني عداد الاسطر .. لو تقدر تعطيني كود عدد الفقرات Paragraph ...
ولك جزيل الشكر.........
هذا الموضوع مغلق.