[vb.net 2005 ]immagini nella richtextbox

mercoledì 02 agosto 2006 - 16.07

Amodio Profilo | Expert

salvea tutti
ho trovato questo codice qui:
[url]http://www.visual-basic.it/tips.asp?id=419&[/url]
ma apaprtiene al vb6:( e in vb.net il tipo di dati:stdpicture non esiste)

come posso convertirlo in vb.net?

grazie
ecoc posto qui tutto il codice:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Const WM_PASTE = &H302 'Ecco la funzione: Sub InsertPicInRTB(ByVal RTB As RichTextBox,ByVal Pic As StdPicture) Clipboard.Clear Clipboard.SetData Pic SendMessage RTB.hWnd, WM_PASTE, 0, 0 End Sub Private Sub Command1_Click() InsertPicInRTB RichTextBox1, LoadPicture("C:\img.jpg") End Sub InsertPicInRTB RichTextBox1, LoadPicture(FName)



ecco proprio ora ho trovato un'altro codice:
[url]http://blog.shareoffice.it/ivangentile/archive/2006/01/21/3721.aspx[/url]
ma da sempre un errore nel send messatge in quanto vuole un parametr odi tipo integer e non di tipo image :( ufffffff
non ne esco +

Cantalupynho Profilo | Newbie

Allora prova csi


----Handler------
With dlgOpenImg
.Title = "Inserisci..."
.InitialDirectory = Environment.SpecialFolder.MyPictures
.Filter = "Immagini jpg|*.jpg|Immagini jpeg|*.jpeg|Immagini Bitmap|*.bmp|Immagini png|*.png|Grafic Image Format|*.gif"
End With
If dlgOpenImg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
InsertImage( NOME RICH TEXT BOX, Image.FromFile(dlgOpenImg.FileName))
End If
--------------------

Sub InsertImage(ByVal rtb As RichTextBox, ByVal img As Image)
Clipboard.Clear()
Clipboard.SetDataObject(img)
rtb.Paste()
End Sub
Fammi sapere Ciao
Dio ha creato Bill Gates
Bill Gates ha creato il Computer
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5