24-10-13, 02:53 AM
السلام عليكم...
نرجو الاستفادة و السلام.
كود :
If List1.ListIndex = -1 Then
MsgBox "الرجاء تحديد بند من اللائحة"
List1.SetFocus
Else
List1.List(List1.ListIndex) = Text1.Text
End ifنرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ