Forma 1 Adet Command 1 Adet Image nesnesi ekleyin ve aşğııdaki kodları direkt forma yapıştırın...
Kod:
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() Set Image1.Picture = LoadPicture("https://www.frmtr.com/images/misc/v_yaz.jpg") End Sub
Kırmızı olan bolum resimin adresidir kafanıza gore oynayabilirsiniz...
__________________