msayed2004

Private Sub Form_Load() Me.KeyPreview = True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKey1, vbKeyNumpad1 MsgBox "1" Case vbKey2, vbKeyNumpad2 MsgBox "2" Case vbKey3, vbKeyNumpad3 MsgBox "3" End Select En…

بفكرله فى فكرة *-) :huh:

If txtSource.Text <> "" Then Dim aDummy() As String Dim i As Integer '<-Or Long as you wish. aDummy = Split(txtSource.Text, vbCrLf) For i = 0 To UBound(aDummy) If aDummy(i) <> "" Then lstTarget.AddItem aDummy(i) Next End If

تقصد من النسخ بواسطة Ctrl + C و الكليك اليمين ؟ و لا من البرامج اللى بتجيب محتويات النصوص بالتأشير عليها بالماوس ?

طب ما يروح قسم الأقتراحات و يقول كده , مش هنا ! أخى أبو زيد فى حاليا 2 Skins للمنتدى و الأتنين كويسين ايه المشكلة فى كده ؟ و للعلم لو أنك من مستعملى متصفح Firefox يمكنك تغيير أشكال المواقع كما تحب و ده هيبقى من جهازك نفسه

الكود ده أسرع /index.ph...st&p=576180

طب متحملها لـ Pixturebox وترسم اللى أنت عايز تكتبه و بعدين تتطبعها

وايه ميزة الليبل ده لو بيعمل لينكات فأنا قربت أخلص بتاعى و طبعا هيكون مجانى

Bruce McKinney عامل حاجة زى كده

شكرا على الملاحظات أخى أسامة , بس أعتقد أن برده النسخ الحديثة من الويندوز تتطلب BMP برده شكرا على المرور لكل الأعضاء منتدى الـ vbforums وهو المقابل الأجنبى للمنتدى ده بس هنا معدل النمو أسرع

ده Module لتغير خلفية سطح المكتب و لأول مره مع أمكانية أختيار الوضع سواء كان Center أو Stretch أو Tile YomnaWallpaperChangerMod.zip فى الأصل أنطلب منى فى منتدى أجنبى لكن طبعا أنتم أولى بيه

حقك عليا أنا غلطان أستعمل End براحتك

ده مشروع متخلف من مايكروسوفت عن الموضوع ده , بقول متخلف لأن اللى كاتبه عمله وحش جدا بس على العموم فكرته شغاله و سريعة عن تحميل الصفحة فى الـ Webbrowser و كمان هتتفادى مشكلة الـ Webbrowser فى الأجهزة التى تستعمل IE7 أو ما قبله Get_html.rar

أنا مش فاهم السؤال أساسا و ايه علاقته بالموضوع بتاع End

http://www.a1vbcode.com/vbtip-148.asp

أنا سمعت و قرأت مش فاهم قصدك و هى دى الطريقة الصح Dim Frm As New Form1 Frm.Show بالنسبة لمشكلة End فهى ببساطة واحدة من أسباب الـ Crahing و فيه ناس بتقول أن ده بيبقى أكتر على Win 2k فيما فوق

End ممكن يعمل مشاكل لو عندك أكتر من Form نادى الـ Sub ده : Public Sub CloseAllForms() On Error Resume Next Dim Frm As Form For Each Frm In Forms Unload Frm Set Frm = Nothing Next End Sub

بالنسبة للأداه الأخيرة أنا لا أنصحك بأستعمالها الأن لأنه لسه منزلها و شوية شويه هيطور فيها فأصبر عليه شوية و على العموم ببساطة شديدة حط الأداة فى مشروعك و ضيفها زى أى Control و من الخاصية AnimatedGIF أختار الصورة لمتحركة و بالكود تحكم فيها بأستخدام الخاصية Act…

براحتك ! ولعموم الأفادة نفس المصمم عمل أداه جديدة http://www.planet-source-code.com/vb/scrip...40&lngWId=1

أنا بفضل Unload Me عن End