شوقي ربيع قام بنشر أغسطس 18, 2014 قام بنشر أغسطس 18, 2014 السلام عليكم يمكن استعمال اداة 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
شوقي ربيع قام بنشر أغسطس 19, 2014 قام بنشر أغسطس 19, 2014 كيف اجعل المتغير هو 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>"
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.