RichTextBox text a obrázky

RichTextBox text a obrázky zodpovězená otázka

VB.NET, WinForms

8. 11. 2007 22:26

Lubos Blader

265 610

Dobrý večer!

Mohol by mi niekto poradiť, ako dostať do RichTextBox-u zároveň text a obrázky?

nahlásit spam

odpovědět

9. 11. 2007 14:35

Róbert Pavlík

28 84

Dobrý deň. Toto by malo fungovať.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog.Filter = "JPEG Images (*.jpg,*.jpeg)|*.jpg;*.jpeg|Gif Images (*.gif)|*.gif|Bitmaps (*.bmp)|*.bmp"
        OpenFileDialog.FilterIndex = 1
        If OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim img As New System.Drawing.Bitmap(OpenFileDialog.FileName)
            Clipboard.SetImage(img)
            RichTextBox1.Paste()
        End If
    End Sub
End Class

nahlásit spam

2 / 2

odpovědět

9. 11. 2007 18:40

Lubos Blader

265 610

Dobrý večer, ďakujem za odpoveď. Funguje! Len by som mal ešte otázočku, či by za to dalo zariadiť, aby text "obtekal" obrázok. Trebárs sprava.

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

9. 11. 2007 20:06

Lubos Blader

265 610

A ešte jedna, dopĺňujúca otázočka. Dali by sa tie obrázky načítať z kódu?

nahlásit spam

odpovědět

11. 11. 2007 7:23

Lubos Blader

265 610

Tak z kódu obrázok do RichTextBox-u by mohol takto:

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim imageObject As Object
        RichTextBox1.ReadOnly = False
        imageObject = Image.FromFile("C:\obrazok.jpg")
        Clipboard.SetDataObject(imageObject, False)
        RichTextBox1.Paste(DataFormats.GetFormat(DataFormats.Bitmap))
    End Sub

nahlásit spam

1 / 1

odpovědět

11. 11. 2007 14:05

Lubos Blader

265 610

Takže už zostáva len zistiť ako zabezpečiť aby text obtekal okolo obrázka.

nahlásit spam

odpovědět

12. 11. 2007 7:21

Róbert Pavlík

28 84

To vkladanie z kódu je v podstate to isté, ako prvý príklad, ktorý som uviedol, iba nepoužijete OpenFileDialog, ale priamu cestu k súboru.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim img As New System.Drawing.Bitmap("D:\DOCUMENTS\PICTURES\Image1.bmp")
        Clipboard.SetImage(img)
        RichTextBox1.Paste()

    End Sub
End Class

Čo sa týka obtekania textu, zatiaľ neviem poradiť, ale niečo skúsim a dám vedieť.

nahlásit spam

2 / 2

odpovědět

12. 11. 2007 18:10

Lubos Blader

265 610

Dobrý večer,

ďakujem za odpoveď. Keby sa Vám podarilo niečo nájsť, čo sa týka obtekania textu, bol by som veľmi rád. Ja som vlastne už skúšal všetko a nič. Toto je vlastne posledná vec, ktorú by som potreboval, aby som mohol začať svoj malý projekt a začínam mať pocit, že na obtekanie textu alebo zoradenie textu okolo obrázka v RichTextBox neexistuje jednoduché riešenie.

Ešte raz ďakujem za ochotu pomôcť.

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz