Oppure

Loading
11/01/10 21:45
trattobasso
ciao a tutti,anticipo i ringraziamenti indipendentemente dall'esito in quanto già discutere di quello che ho fatto è molto per.
Poste il codice e commento:
Dim range As Microsoft.Office.Interop.Word.Range
        Dim img1 As Image
        img1 = FormFoto.PictureBox1.Image.GetThumbnailImage(160, 160, Nothing, IntPtr.Zero)
        'ridimensiona l'immagine dentro la picturebox
        Clipboard.SetImage(img1)
        'mette l'immagine ridimensionata in clipboard
        Dim Bookmark As Object = "a"
        range = objDoc.Bookmarks.Item(Bookmark).Range
        'cerca il bookmark nel modello
        range.Paste()
        'mette nel bookmark il contenuto della clipboard
        My.Computer.Clipboard.Clear()
        'pulisce la clipboard

Questo codice come commentato,prende il contenuto di una picturebox,la ridimensiona,la mette in clipboard,cerca in un file word il bookmark e ci posiziona li l'immagine.
Funziona tutto(stranamente,sono le prime prove che faccio e di programmazione...:-|)
se non quando l'utente non inserisce nessuna immagine nella picturebox e allora viene fuori il finimondo!Immagino di poter inserire tutto questo in un try catch,ma come catch posso dire semplicemente continua ignorando l'errore?Cosa consigliate?
Ciao e grazie a tutti.
aaa
11/01/10 22:52
Antivirusvivente
crea una If, in caso ci dovesse essere una immagine, prosegui col codice, altrimenti lo blocchi..
aaa
11/01/10 22:54
trattobasso
Ma il fatto è che io vorrei il codice proseguisse anche nel caso non ci fosse nessuna immagine,senza dare alcun errore.
aaa
12/01/10 7:50
the_angel
Postato originariamente da trattobasso:

Ma il fatto è che io vorrei il codice proseguisse anche nel caso non ci fosse nessuna immagine,senza dare alcun errore.


Cercati su google e guarda il funzionamento del costrutto...oppure la guida di Totem o Piero...

Try
   Catch ex As Exception

   End Try


aaa
12/01/10 13:22
Il Totem
Il try è una delle soluzioni, ma è sempre consigliabile evitare di gestire gli errori dove possibile. E qui è possibile. Come si diceva prima, basta controllare che l'immagine esista:
If PictureBox1.Image IsNot Nothing Then
  '... codice
End If
aaa
12/01/10 13:43
the_angel
Postato originariamente da Il Totem:

Il try è una delle soluzioni, ma è sempre consigliabile evitare di gestire gli errori dove possibile. E qui è possibile. Come si diceva prima, basta controllare che l'immagine esista:
If PictureBox1.Image IsNot Nothing Then
  '... codice
End If


Vero, hai ragione!:k:
aaa
12/01/10 21:28
trattobasso
ciao,in effetti dopo il primo suggerimento di the_angel ho provato con Catch ex As Exception ed in effetti sono riuscito a farlo funzionare e per questo ringrazio.(a volte basta che si accenda una lampadina per trovare la soluzione).
Proverò sicuramente anche con i tuo suggerimenti(Il Totem)in quanto è stata la prima cosa che mi era venuta in mente ma non avevo idea di come dire al programma ...se non trovi nessuna immagine...allora...grazie e mille a tutti.
Ciao
aaa
13/01/10 8:12
the_angel
Figurati!

Ciao!
aaa