|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Imagem/Som/Multimídia)
|
|
 |
Título da Dica: Inserir uma imagem em um RichTextBox
|
 |
|
|
|
Postada em 25/6/2004 por Octopus
Primeiro vc deve colocar em seu projeto um picturebox e um common dialog e um richtextbox depois coloque esse código em um commandbutton.Ou somente coloque-o na area de código.
private sub Command1_click()
On Error GoTo ErroFatal1
Cdialogo.DialogTitle = "Seleçione a imagem"
Cdialogo.Filter = "Figuras padrão do paint(*.bmp)|*.bmp|Bitmap de serviço livre (*.dib)|*.dib|Imagens animadas (*.gif)|*.gif|Formato de intercâmbio de imagens (*.jpg)|*.jpg|Formato de intercâmbio de imagens (*.jpeg)|*.jpeg|Formatos wmf (*.wmf)|*.wmf|Todas as imagens suportadas (*.*)|*.*"
Cdialogo.ShowOpen
PicInserir.Picture = LoadPicture(Cdialogo.Filename)
Clipboard.Clear
Clipboard.SetData PicInserir.Picture
SendMessage RtfTexto.hWnd, WM_PASTE, 0, 0&
ErroFatal1:
end sub
valeu t+
Boa sorte
|
|
|
|
|
