عکس در ایمیج

[raina123]

سلام

من می خوام یه عکسی از اینترنت داخل یه ایمیج بزارم

چیکار باید بکنم ؟

[محسن واژدی]

سلام علیکم
با apiی URLDownloadToFile تصویر را در مسیری دانلود سپس آنرا در Image نمایش میدهیم، البته کنترل User-Control هم توابعی برای دانلود و نمایش تصویر دارد منتها در ویندوز7 با شکست مواجه میشوند:
http://barnamenevis.org/showthread.php?297701-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D9%81%D8%A7%DB%8C%D9%84-%D9%88-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%AF%D9%88%D9%85&p=1306325&viewfull=1#post1306325

موفق باشید

[امین مستانی]

سلام

این کد را بررسی کنید

Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
On Error GoTo ERR_LINE
OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
ERR_LINE:
Set LoadPicture = VB.LoadPicture(strFileName)
End Function


Private Sub Command1_Click()
Image1.Picture = LoadPicture("http://www.entekhab.ir/client/themes/fa/main/img/logo_01.jpg")
End Sub

[امین مستانی]

اگر منظورتان ویندوز 7 است که جواب میدهد
من ویندوز 7 Ultimate دارم و برنامه رو روی همین ویندوز اجرا کردم ...

[just4froum]

بله در ویندوز 7 به درستی کار می کنه.

جناب kokopark میشه راجع به کدتون بیشتر توضیح بدین ؟ مثلا هر کدوم از Data ها اطلاعات چی هستن ؟

[امین مستانی]

سلام

والا من خودم چیزی ازش نفهمیدم :لبخند: :لبخند:
چند نمونه داشتم این سرعتش بالاتر بود اینجا قرار دادم دوستان استفاده کنند


شما اگر متوجه شدید به من هم بگید :لبخند: