dotNETportal.cz

Dobrý deň, mám tento problém. Užívateľ programu si do picture boxu natiahne obrázok do textboxu napíše text. Text treba umiestniť do obrázku na nejaké miesto (väčšinou vždy iné). Najlepšie by bolo text posúvať spolu s kurzorom myši po pictureboxe tak aby nemazal obsah pictureboxu (obrázok, prípadne čiary) pod ním a v momente kliknutia tlačítkom myši ho vložiť do pictureboxu. Nie je problém do pictureboxu vložiť akýkoľvek text zvoleného fontu, farby, veľkosti len neviem realizovať ten pohyb textu s kurzorom myši. Prosil by som o nejaké tipy ktorým smerom sa uberať, prípadne keby mal niekto nejaký ukážkový poríklad niečoho podobného... Ďakujem.

Smím se zeptat, proč si z PictureBoxu děláte textové pole? K tomu slouží jiné komponenty, například RichTextBox. Není sice úplně ideální, ale měl by na tohle stačit. Psát si vlastní textové pole, to je běh na dlouhou trať a práce na půl roku.

Nechcem robiť z pictureboxu textový editor. Ten textbox je mimo pictureboxu a slúži len na zadanie textu z klávesnice V podstate ide o jednoduchý program kde treba vložiť text a niekedy aj jednoduché čiary do nejakého obrázku a znovu to uložiť ako obrázok čo nie je problém. Len ten text musí byť umiestnený tak aby neprekryl podstatné veci v tom obrázku preto sa to nedá urobiť programove. Umiestňuje ho užívateľ programu a väčšinou je vždy na inom mieste v obrázku. Niečo približne podobné ako je tu jeden článok volá sa to "hromadné vkládaní vodoznaku do obrázku"

Len toto nie je vodoznak a nedá sa to (ani nie je potreba)vkladať hromadne.

Já bych použil když už nic jinýho tak Zoner Photo Editor (nebo tak nějak se to jmenuje). Kvůli takovýhle věci nemá cenu programovat vlastní program. Určitě existuje spousta free softwaru na tohle "téma".

Tím samozřejmě nechci odrazovat od programování ;)

Akým spôsobom vkladáte ten text?

Obrázky sú nejaké schémy nie fotografie. Teraz to mám tak že užívateľ klikne na nejaké miesto do pictureboxu získam súradnice e.X e.Y a tam umiestnim text tuším DrawString...... Visual studio mám iba doma a internet iba v práci tak Vám celý príkaz teraz neuvediem. Doteraz to kamarát robí jednoducho cez program Skicár v českých windows sa to asi volá Malování - súčasť OS WIN. Doteraz som robil vo vb4,5,6, z .net iba začínam tak sa chcem niečo naučiť.

Ďakujem večer ihneď vyskúšam...

Proč na tohle používáte Timer? To je naprostá blbost, pokud už chcete něco dělat během hýbání myši, využijte událost MouseMove.

Včera večer som vyskúšal obidva spôsoby pracujú dobre. Priznám sa simulovať pohyb textu po PB labelom ma nenapadlo. Len pohyb s timerom bol subjektívne trhanejší aj keď som znížil čas obnovy polohy. Teraz chcem urobiť label priehľadný tak som nastavil farbu pozadia labelu na transparent a pridal

label1.parent=picturebox1

Teraz mám síce label priehľadný ale kurzor mysi je nad labelom, čo spôsobuje značne trhaný pohyb. Budem musieť opraviť výpočet polohy labelu voči kurzoru.

Ďakujem za pomoc.

Není třeba průhlednost labelu nastavovat. Jde přece o vložení textu a ne labelu. Label má AutoSize, po nastavení prázdného textu (po klepnutí do PictureBox) zmizí, vloží se pouze font.

Možná by bylo dobré do TextBoxu i Labelu si ve vývoji nastavit vhodný font a ten (přes proměnnou typu Font) v PictureBox1_Paint použít.

Pokiaľ label nie je priehľadný nevidím čo je pod ním v pictureboxe v prípade že text treba umiestniť napr. tesne nad nejakú vodorovnú čiaru. Inak by to nevadilo nastavil by som back color labelu na back color pictureboxu.........

A kam jste přidal label1.parent=picturebox1? Zkusil jsem to do Form1_Load a jde to to. Sice se nesmí pohybovat myší moc rychle, to se při přesunu text nestačí vykreslovat, ale to přece nevadí.

Podobné riešenie bez použitia labelu.

Na forme sú 2 pictureboxy Pbox1 a Pbox2. Prvý je základný kde sa vykreslí nejaká grafika na ukážku som tam dal 4 čiary. Pbox2 leží nad Pbox1 a je priehľadný a slúži na posun textu pri posune textu sa pracuje iba s pbox2 čiže netreba neustále prekreslovať Pbox1.

Private Sub GP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With PBox2
            .Parent = PBox1
            .BackColor = Color.Transparent
            .BringToFront()
            .Top = 0
            .Left = 0
            .Width = PBox1.Width
            .Height = PBox1.Height
        End With

        Dim G As Graphics
        Dim pero As New Pen(Color.Blue, 2)
        Dim BMP As Bitmap
        BMP = New Bitmap(PBox1.Width, PBox1.Height)
        PBox1.Image = BMP
        G = Graphics.FromImage(BMP)
        G.Clear(PBox1.BackColor)

        G.DrawLine(pero, 10, 10, 300, 300)
        G.DrawLine(pero, 10, 30, 200, 300)
        G.DrawLine(pero, 10, 30, 20, 300)
        G.DrawLine(pero, 10, 30, 250, 400)

End sub

Pri pohybe myši sa presúvaný text umiestni tak že kurzor je vodorovne v strede textu, zvisle pod textom.

   Private Sub PBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PBox2.MouseMove

        Dim pismo As New Font("times new roman", 12, FontStyle.Bold, GraphicsUnit.Point, 235)
        Dim textrozmer As SizeF
        Dim g2 As Graphics

        g2 = PBox2.CreateGraphics
        textrozmer = g2.MeasureString("Toto je testovací text", pismo)

        PBox2.Refresh()
        g2.DrawString("Toto je testovací text", New Font("times new roman", 12 * Zoom, FontStyle.Bold + FontStyle.Italic, GraphicsUnit.Point, 235), Brushes.Blue, e.X - textrozmer.Width \ 2, e.Y - textrozmer.Height)


    End Sub

Na rozdiel od predchádzajúceho riešenia s labelom je pohyb plynulý bez trhania presúvaný text však mierne bliká. Pri normálnych veľkostiach to nevadí pri väčších textoch je to dosť viditeľné. Text sa pekne presúva ponad čiary - alebo iný obsah) vykreslený do Pbox1 bez toho že by ich bolo treba neustále prekreslovať.

Neviem či je takéto riešenie správne po programátorskej stránke, preto by som poprosil skúsenejších programátorov o pripomienky (kritiku) k horeuvedenému riešeniu.

Ďakujem.