اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

يمكن استعمال اداة WebBrowser لتحقيق هذا

مع هذا الكود الذي هو عبارة عن دمج بين vba & html

    Dim x As String
    Dim Haut As Long, Large As Long
 
    Large = WebBrowser1.Width * 96 / 72
    Haut = WebBrowser1.Height * 96 / 72
    x = "http://kenanaonline.com/photos/1238119/1238119839/large_1238119839.jpg"
 ' Ýí ÍÇáÊ ãÇ ÇÐÇ ßÇä åäÇß ãÓááÓá áÕæÑ ßá ãÇ Úáíß ÇáÊáÇÚÈ Ýí ÇáãÊÛíÑ x
 'ãËáÇ
 '    x = "http://kenanaonline.com/photos/1238119/1238119839/&åäÇ ÖÚ ÇÓã ÇáÕæÑÉ Çæ ÇáãÊÛíÑ ÇáÐí íÍãá ÇÓã ÇáÕæÑÉ áÚÑÖåÇ &.jpg"

    WebBrowser1.Navigate _
    "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
    Large & " HEIGHT=" & Haut & _
    " SRC='" & x & "'</IMG></BODY></CENTER></HTML>"

;وبما انك تتبع تسلسل لصور

كل ما عليك هو التلاعب في المتغير x عرض الصورة التي تريد عرضها من النت

سلام

 

عرض صورة في الفورم من النت.rar

قام بنشر

كيف اجعل المتغير هو Textbox1.value

في الكود الاخير ضع textbox1 مكان x فقط

WebBrowser1.Navigate _
    "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
    Large & " HEIGHT=" & Haut & _
    " SRC='" & textbox1.value & "'</IMG></BODY></CENTER></HTML>"

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information