|
| Autor |
Nachricht |
Tr1_
Tutorial Leser
Anmeldedatum: 22.07.2007
Beiträge: 45
|
Bild anzeigen
Verfasst am: 09.12.2007, 21:56 |
|
|
Ich will ein Programm Programieren ...
wo man ein Bild , schnell Runterladen kann...
Anfangen will ich damit, das man sich eine Vorschauangucken kann ....
wie mach ich das das ein bild ( http://www.seite.de/Bilder/bild.jpg )
in meiner PictureBox angezeigt wird ohne es aufm PC zu haben ? |
|
| |
|
 |
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 09.12.2007, 21:57 |
|
|
| Du musst es auf dem PC haben um es anzuzeigen. Auch wenn es nur im Temp Ordner ist. |
|
| |
|
|
Tr1_
Tutorial Leser
Anmeldedatum: 22.07.2007
Beiträge: 45
|
Verfasst am: 09.12.2007, 22:06 |
|
|
kk ... das werde ich das ma ändern ...
2 frage ...
wie mache ich das das er mir ein Bild ausm Netzt läd .... Undzwar
wen ich den Link habe ...
http://www.SEITE.eu/Bilder/1234567/NAME/BILD.JPG/
und das er automatisch dieses "BILD.JPG" runterläd
oder das er automatich bei dem BILD
" Grafikanzeigen " und dann "Grafik Download macht |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 09.12.2007, 23:02 |
|
|
So ich habs. Zuerst eine Private Declare:
| Code: | Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long |
So nun schreibst du das hier ins Form_Load:
| Code: | Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
sURL = "http://http://www.vb-x.org/templates/xabbBlue/images/header_left.jpg"
' BildURL natürlich entsprechend ersetzen ;)
sLocalFile = "C:\pic.jpg"
' Dateipfad natürlich entsprechend ersetzen
Screen.MousePointer = vbHourglass
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Screen.MousePointer = vbNormal |
Dadurch wird dein Bild erst mal nach "C:\pic.jpg" geladen.
Nun machst du noch einen Commandbutton zum anzeigen:
| Code: | | Picture1.Picture = "C:\pic.jpg" |
Und fertig!
Du kannst das Bild natürlich auch direkt im Form_Load laden lassen aber ich glaube der Download benötigt da noch Zeit. Obwohl bau einfach eine Pause ein.
Dazu noch eine Private Declare:
| Code: | | Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) |
Und dann folgendes ins Form_Load:
| Code: | Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
sURL = "http://http://www.vb-x.org/templates/xabbBlue/images/header_left.jpg"
' BildURL natürlich entsprechend ersetzen ;)
sLocalFile = "C:\pic.jpg"
' Dateipfad natürlich entsprechend ersetzen
Screen.MousePointer = vbHourglass
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Screen.MousePointer = vbNormal
Sleep 1000 ' eine Sekunde Pause
Picture1.Picture = "C:\pic.jpg" |
Bitteschön :> |
|
| |
|
|
Tr1_
Tutorial Leser
Anmeldedatum: 22.07.2007
Beiträge: 45
|
Verfasst am: 10.12.2007, 21:20 |
|
|
n1 Work ... dank dir |
|
| |
|
|
|
|
Registrieren
Login
