Shadi Habbal

مشكور اخوي عرفة حصلت على الكود منذ قليل لكن تواجهني مشكلة الان وهي كيفية اعادة الفورم للحالة العادية بدون شفافية وهذا ما استخدمته في module: Option Explicit Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As L…

اخي عبد الله مرة اخرى مساعدتك الكريمة لو سمحت او اي احد يعرف كيف Private Sub Form_Load() On Error GoTo Error: Open "c:/vote" For Input As #1 Close txtfrom.Text = "http://" txtsaveas.Text = "Whatever.zip" Exit Sub Error: MsgBox ("هل تظن بأن جهدي يستحق بعض الثنا…

الشكر موصول له سلفات تحياتي لك وله (f)

تم حل المشكلة وكانت جد بسيطة والسبب انا :( استخدمت module بدل class module :P:o

والله هلق كنت عم فكر فيها بالسيارة سبقتني اخوي :) تحياتي وبالتوفيق

للاسف هذا يعني انه لا يعمل على ويندوز 9x سارى ان بامكاني ايجاد ما يعمل على 9x لكن ان وجدته ساحتاج مساعدتك فلربما لن يعمل على اكس بي عندها يجب عمل كود يحدد النظام ووفقه يطبق كود ال transparent اللي بيمشي للنظام شو رايك ؟ تحياتي

يعطيك العافية (f)

ساراه الان تكرم عيونك اخوي طلباتك غالية تحياتي

اخوي اولا يعطيك العافية كل يوم 5 اكواد من الروائع سؤالي عن الفورم الشفاف اخوي بالنسبة لكود جعل الفورم شفافة استخدمته لكن يظهر خطا نصه هو التالي فما المشكلة وكيف الحل ؟ 'Run-time error 453' 'cant find DLL entry point SetLayeredWindowAttributes in user32.dll' عل…

لست واثقا لكن اعتقد لازم Dim S As Integer والله اعلم

مشكور اخوي hamohd الف شكر (f)

قمت بذلك اخوي فشو هي المشكلة ؟

رائع رائع :D

يعطيك العافية اخوي وشكرا على الكود (f)

واو موضوع وفكرة حلوة مشكور عليها اخوي الف شكر اخوي visitor لكن هلا يتفضل احد الاخوة الافاضل بشرح كيفية استخدامه شكرا سلفا (f)

مشكور (f)

يعطيك العافية اخوي مختار

الشكر سابق اخوي ممكن بس فكرته على السريع (عارف بقدر حمله وشوف بس اخوك lazy ;)) وشكرا

winzip

اخوي يبدو انه في خطا عند هذه النقطة Dow = Dir1.Path & txtsaveas.Text Dim obj As clsdownload ' هنا Set obj = New clsdownload Dim bRet As Boolean ولا ادري ما سببه ! :( 'a module is not a vaild type' ارجو منك المساعدة وشكرا سلفا