AccessTr.neT
Web sitesinden Resim Alma !!! - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Web sitesinden Resim Alma !!! (/konu-web-sitesinden-resim-alma.html)



Web sitesinden Resim Alma !!! - chopper07 - 28/11/2008

Aşağıdaki kodu olduğu gibi bir forma yapıştırın ve projenizi çalıştırın


Kod:
Option Explicit

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 Form_Load()
Set Me.Picture = LoadPicture("https://accesstr.net/images/logo.gif")
End Sub




Cvp: Web sitesinden Resim Alma !!! - ozanakkaya - 28/11/2008

kod için teşekkürler


Cvp: Web sitesinden Resim Alma !!! - erk_fenerbahce - 04/01/2009

ya arkadaşım wep sitesinini neresine yapıştıracazz yardımm idd:P


Cvp: Web sitesinden Resim Alma !!! - ozanakkaya - 04/01/2009

Kod:
Private Sub Form_Load()
Set Me.Picture = LoadPicture("https://accesstr.net/images/logo.gif")
End Sub

üstteki koddaki linki değiştireceksin.