منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(18-02-20, 12:40 PM)alsalamoni كتب : [ -> ]

كود :

Dim dd As String = ""
If Clipboard.GetText.StartsWith("http") And Clipboard.GetText.Contains("playlists") Then dd = Clipboard.GetText
Dim ss = InputBox("", "", dd)

---

تم تحسين الكود

(18-02-20, 01:05 PM)ابو روضة كتب : [ -> ]

(18-02-20, 12:40 PM)alsalamoni كتب : [ -> ]

كود :

Dim dd As String = ""
If Clipboard.GetText.StartsWith("http") And Clipboard.GetText.Contains("playlists") Then dd = Clipboard.GetText
Dim ss = InputBox("", "", dd)

---

تم تحسين الكود

لمساتك وحدها أخى بتعطى للكود رونقاً جميلاً صدقنى...

هناك أشخاصاً يظهرون ويختفون فجأة عباقرة ماشاء الله وأخاف أن يأتى يوماً وتختفى أنت الأخر فأحزن.

الله يديم عليك الصحة والعافية والزيادة ولا يحرم الجميع منك..

وللعلم أنا طلباتى بسيطة فى البرمجة يعنى أقول لك هذا الكلام لا لغرض الغرف من معلوماتك لالالا

إطلاقاً بل لآن هناك أشخاص هنا  وبالتأكيد انا ايضاً معهم يحتاجون لمثل هذه العبقرية التى معك.