Herkese Selamlar
Öncelikle formlarımız da webden browser ve web gibi aramalar yaptım çok fazla konu var hepsini inceledim benim ki biraz daha farklı gibi gördüm. Kodlama da çok bilgim yok anca örneği değiştire biliyorum oda tutarsa.
Hocalarım verdiğim örnekte forma tablolarımda bilgisi bulunan metin kutusundaki(orj parça noyu) google'a otomatik girmesini ve resmi göstermesini istiyorum.Böyle bir şey mümkün mü?Mümkün ise de ben yapamam yada aylarımı alır.
Yardımlarınız için Şimdiden teşekkür ederim.
Merhaba, formu açıp "Resim Getir" butonunu tıklayınız.
Elli tane yazdım bir tanesini gönderemedim. Yok be hocam size yazacak bir şey artık bende yok. Şu kafasına sıkan emoji de sıkmıyor.
Teşekürler Ozan hocam ellerinize sağlık.
Selamlar
Hocam Formu ve tabloya eklediğiniz parca_resmi1 ve parca_resmi2 ekledim fakat google 'la resimleri çekti formdaki resim bölümüne almadan aşağıdaki kırmızı renkteki kod hatası verdi. Kurcaladım ama çok anlayamadım.
Private Sub Komut588_Click()
Dim Form As Variant
Dim A As String
Dim HTML_Body, HTML_Img As Object, AlinanResim As Object
WebBrowser1.Document.GetElementById("lst-ib").innertext = ÜrünNo.Value
Set Form = WebBrowser1.Document.getElementsByTagName("form")
Set Button = Form(0).onsubmit
Form(0).submit
Wait = Timer
While Timer < Wait + 2
DoEvents
Wend
Do Until WebBrowser1.Busy = False
DoEvents
Loop
Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
Set HTML_Img = HTML_Body.getElementsByTagName("img")
For X = 1 To 2
Set AlinanResim = HTML_Img(X + 1)
GResimYolu = AlinanResim.src
GResimYolu = Replace(GResimYolu, "data:image/jpeg;base64,", "")
A = GResimYolu
Open CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png" For Binary As #1
Put #1, 1, DecodeBase64(A)
Close #1
Controls("parca_resmi" & X) = CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png"
Controls("rsm_resim" & X).Picture = CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png"
Next
MsgBox ("resimler geldi")
End Sub
Uygulama ile aynı dizinde resimlerim adında klasör var mı?
Var ise uygulamanızı düzenlediğiniz son halini ekleyiniz.
Hocam
aynen aynı dizide resimlerim diye klasör açtım.
ama bu sefer bunu verdi hocam
Private Function DecodeBase64(ByVal strData As String) As Byte()
Dim objXML As MSXML2.DOMDocument
Dim objNode As MSXML2.IXMLDOMElement
' help from MSXML
Set objXML = New MSXML2.DOMDocument
Set objNode = objXML.createElement("b64")
objNode.DataType = "bin.base64"
objNode.Text = strData
DecodeBase64 = objNode.nodeTypedValue
' thanks, bye
Set objNode = Nothing
Set objXML = Nothing
End Function