dotNETportal.cz

zdravím všechny na fóru a měl bych jednu otázku.

Vykresluju si ve své aplikaci graf přes GDI+ na PictureBox.

Až potud se mi zdá vše ok. Potřeboval bych ale ještě tam přidat to že když se kurzor myši dostane do oblasti pictureboxu aby se změnil na kříž ale ne takovej malinkej ale kříž přes celý picturebox (.width a .height) a při pohybu s průsečíkem v místě kurzoru.

Poradil by někdo ze zkušených harcovníků jak nato?

nějak mi dochází střelnej prach :-)

Tuším možná nějak na API ale .... nejde to jinak? stačí mi i to GDI+... budu rád za případné info.

pěkný den

jamal

To by mělo bých velice jednoduché:

Private sub PB1_MouseMove( blablabla ) Handles PB1.Mousemove
  Dim Gfx as Graphics = pB1.CreateGraphics()
  Gfx.DrawLine(x1=0,x2=pb1.width,y1=e.y,y2=e.y,color.red) ' omlouvám se, ale nejsem si jistý jak jsou ty parametry, takže takhle názorně, abyste věděl co myslím
  Gfx.DrawLine(x1=e.x,x2=e.x,y1=0,y2=pb1.height,color.red)
End Sub

první DrawLine vykresluje horizontáoní linku (vidíte, že se drží u levého a pravého kraje a pohybuje se jen nahoru dolů.

Druhý kreslí linku vertikální.

V případě nejasností rád pomůžu

Nejsem si jist, že by to nějakým nastavením kurzoru mohlo jít (potřebujete měnit velikost jednotlivých čar kříže, což asi nepůjde). Asi to budete muset vykreslit sám, asi nějak tak:

Public Class Form1
    Dim gr As Graphics

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gr = PictureBox2.CreateGraphics
    End Sub


    Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
        gr.Clear(Color.White)
        ' tady doplňte vykreslení Vašeho grafu
        gr.DrawLine(Pens.Black, e.X, 0, e.X, PictureBox2.Height)
        gr.DrawLine(Pens.Black, 0, e.Y, PictureBox2.Width, e.Y)
    End Sub
End Class

Koukám, že jsem byl o něco pomalejší, než kolega Tomáš, pouze pro vysvětlení:

to gr.clear tam musí být, abyste vždy před nakreslením nového kříže ten starý smazal (jinak byste si pouze zaplnil obrázek barvou kříže).

Jenomže přitom si, samozřejmě, smažete i ten svůj graf, proto i ten musíte vždy obnovit (nevím, jakým postupem jej tvoříte, ale budete jej muset asi nejlépe nakreslit do grafického pathu a ten pak najednou do pictureboxu vypláznout (gr.DrawPath(...)).

A asi se (kvůli blikání) budete muset zaobírat doublebufferingem.

super, super. To je přesně ono :-) co potřebuju. Ale,

jenže, právě,... to blikání.

přilepil jsem k tomu trochu kresby, a když je to v malým

okně tak super, ale provoz bude do full screenu a tam to

bliká už znatelně.

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

        Dim Gfx As Graphics = PB1.CreateGraphics()
        Dim BluePen As New Pen(Color.Blue, 2)

        Gfx.Clear(Color.White)
        Gfx.DrawLine(Pens.Black, e.X, 0, e.X, PB1.Height)
        Gfx.DrawLine(Pens.Black, 0, e.Y, PB1.Width, e.Y)


        For i As Integer = 0 To PB1.Width Step 10

            'osa X
            Gfx.DrawLine(BluePen, 0, 0, PB1.Width, PB1.Height)
            Gfx.DrawLine(BluePen, 0, PB1.Height, PB1.Width, 0)

            'trocha kresby :-)
            Gfx.DrawLine(Pens.Red, i, 0, i, PB1.Height)
        Next

    End Sub

Jak z tohodle ven... protože potom by to prostě nemělo chybu !

Doublebuffering, no zní to dobře ale nic mi to neříká, potřeboval bych trochu víc nakopnout. jak na něj a o co tam de

:-)

tak tohle je fakt nářez !! přesně, přesně tohle jsem měl na mysli. nebliká :-) a není k tomu ani třeba žádné API a tak různě... = takže to jde! a není to zase tak složité, když se ví kam šáhnout :-)

super a díky moc za inspiraci! Sice zatím přesně nechápu jak ten buffering funguje, ale doufám že to půjde nastudovat z helpů ve VB.Net.

Jen přece ještě jedna drobnost. PictureBox1 mám dokovaný na Form1. Když se Form1 zvětšuje, zvětšuje se i Picturebox1. Jakmile se ale velikost dostane za určitou hranici, picturebox se už pak nezvětšuje a nevím kde to mám změnit.

Tzn. že když se Form1 maximalizuje, picturebox není přes celý Form1 a vyplňuje jen část z Form1.

Zajímavé ale je že uhlopříčkové čáry (viz kresliGraf, 'osa x) se berou souřadnicemi správně, ale vidět je jen to co "prochází" přes PictureBox1. Zřejmě se asi jedná o nastavení velikosti toho bufferingu, ale kde bych to mohl změnit? (škoda, že jsem nejde přilepit i malý printscreen, kde by to bylo vidět)

Pokud budete vykreslovat spoustu dalších věcí, pak bufferování potřebovat určitě budete.

Pokud vám ale stačí jen tyto dvě čáry, pak je buffering spíš jako použít kanón na vrabce. Stačí si pamatovat, kde byl kurzor naposledy, a čáry překreslit na staré pozici bíle (vlastně je tím vygumujete). Pak můžete hned nakreslit čáry na pozici novou. Pokud ale pod tento kurzor chcete kreslit další věci (nějaké obrázky, další čáry atd.), buffering použít už asi musíte.

Kolega původně psal, že tam "pod tím" má graf a ten "nitkový kříž" k němu dodělává. Takže "přemazání" původní čáry by nešlo, musel by to udělat buď tak, že by si uchovával informaci o původní barvě pixelů na místě kreslené čáry a pak je tam vrátil, nebo neexistuje ve VB a konkrétně v GDI+ možnost kreslení metodou XOR? (nevím, jestli se to ještě používá, ale za mých mladých let jsme to používali - v místě kreslené čáry se pixely změnily na doplňkovou barvu (negativ), takže když jste nakreslil čáru dvakrát přes stejné místo, zase jste obdržel zase zpátky původní podkladovou barvu. Existuje něco podobného ve VB?

Nejsem si ale příliš jistý estetickou stránkou věci.

Je to jistě velmi dobrý způsob, jak jednoduše získat zpět informaci o původní barvě, ale mě to přijde trochu nevzhledné.

Pokud by to šlo, nic moc nevzhledného na tom zas až tak není - ale je třeba zvážit, kde se to dá použít. Pravdou je, že se to hojně používalo převážně u různých grafů - především ale černobílých a tam to má své opodstatnění, protože se Vám černá čára neztratí v černém podkladě.

I dnes se to využívá - pokud si třeba ve výše uváděném příkladu současně kurzor nastavíte na kříž tak si všimnete, pokud s ním nebudete pohybovat a zůstane Vám teda ležet přes ten černý nitkový kříž, že změní svou barvu na bílou-aby byl vidět.

Máte ale plnou pravdu, že u barevných obrazců bych byl s touto technologií opatrným.

je to soubor.ocx a hned jsem to vyzkoušel :-)

prostě to fungujeeeé. Komponenta se mi objevila v Toolboxu, když ji vezmu a umístím na řekněme Form1, dostane name: AxT1.

v kódu potom stačí uvést Me.AxT1.connect() ? samozřejmě za předpokladu že tato komponenta má metodu connect()

... fakt je to "až tak jednoduché" ?? Měl jsem totiž z toho napojování tak trochu obavy, no ale pokud tohle je vše co je nutné kolem toho zajistit, tak potom jujíí,...

Ano to stačí. Je to opravdu velice jednoduché. Teší mě, že jsem Vám uděal takovou radost :-)

jo opravdu udělal :-) nevím proč ale čekal jsem že to bude mnohem komplikovanější a horší ale byl jsem velmi mile překvapen, což se mi moc často neděje :-)

Tzn. že tu údajnou registraci za mne udělal VB.NET?

Ještě jsem chtěl k Vašemu kódu drobnost - jenom na zvážení - nevím, jak moc časově náročná je alokace toho bufferu, ale osobně bych ji prováděl skutečně pouze při změně velikosti promítací plochy (tj. například do události resize u formu), protože si myslím, že nebude až tak častá aby ji bylo nutno provádět při každém pohnutí s myší a navíc, pokud tuto technologii budete používat i pro složitější vykreslování, bude se Vám hodit každá uspořená chvilička při přípravě obrázku v bufferu, jinak to sice nebude blikat, ale případné pohyby budou trhané.

Díky za dobrý tip. Jo s tím časem je někdy potíž. to máte naprostou pravdu.

Zlaté doby kdy jsem bastlil ještě se Zilogem. Byl to CPU nějaká Z80A a k tomu assembler myslím Gens3 nebo tak nějak se to jmenovalo :-) no ale to je už hoóódně dávno :-) nevím jestli pamatujete. Teď se to dá "přirovnat" třeba k Atmelům nebo Microchip PIC procesorům s trochou nadsázky,...

naštěstí to v čem se vrtám je jen takový "prohlížeč dat" žádnej driver nebo tak něco. Takže ta rychlost není až tak kritická ale přece jen nechci zase pořád čekat až on něco dokreslí a spočítá,..že? prostě když už tak ať se práší za kočárem :-)

malá odbočka, ono stačí nechat Datagrid přes DataSet nacucnout tak 50000 záznamů, a už je to vidět i cítit. Zatím to načítám takhle asi humusácky, prostě připojím se, a čtu záznam po záznamu ve smyčce For Next v rozsahu co mě zajímá, nacpu to do struktury a potom přepočítám v rámci rozsahu min/max do grafiky dalším For/Nextem a zobrazím. Toť vše. Co mi nejde a vím že to VB umí je použít Virtuální mód pro DataGrid, protože stejně to co chci zobrazit je max do 300 záznamů na screen protože víc už nemá smysl kvůli rozlišení.(není tam pak už stejně nic vidět) Tady by se mi líbil ten DataGrid ve Virtuál módu kdy by právě načetl jen těch 300 a ne 50000 záznamů (které v tu chvíli navíc ani na nic nepotřebuju). To by se potom mohlo zrychlit, né? A druhá věc, a to nevím, jestli existuje něco jako zoomový koeficient pro vykreslování grafiky. Mám na mysli právě ten svůj přepočet z hodnot do pixel souřadnic ve ForNextu. Bylo by hezké pokud by existovalo něco jako "blokové zpracování", čemuž bych předal surový data a k tomu koeficient na přepočet v ose x a ose y a ono by to zobrazilo :-) no ale to bych toho už chtěl asi příliš, že?...

Ale neééé ... ! Vy mě fakt tak trochu šokujete :-)) ale velmi pozitivně :-) !!

jestli je to teda to, co si myslím.... Teď už jsem tak trochu mimo,... ale zítra to hned prozkoumám !! protože tohle vypadá moóóc hezky. Ještě aby to tak umělo strávit zadání něco jako New Point(x,y) a už jen suše polykám s otevřenou hubou ... (to snad ani není možné žeby to bylo až tak jednoduché...)

Ale jóóóó...! Jenom pozor, ono to funguje trošičku jinak, proto Vám to žádný New Point(,) žrát nebude - ani nemůže.

Autoři VB na to šli trošičku z opačné strany, tak říkajíc od lesa.

Vy tuto transformační matici nepoužíváte na to CO kreslíte, ale KAM kreslíte.

Teď si budu vymýšlet - nemám to po ruce a přiznávám, zatím jsem to nepotřeboval. Ale ono to funguje asi takto:

Vy máte založený nějaký Graphics, do kterého kreslíte (např. g=Me.CreateGraphics).

No a teď na ten grafický prostor aplikujete tu transformační matici (g.ScaleTronsform(2,25000) ), no a nyní do toho g kreslíte jako normálně (g.grawLine(...) ), a dokud neřeknete DOST (mám takový dojem, že g.ResetTransform() - ale radši se podívejte), tak dotud se Vám na vše Vámi namalované aplikuje Vaše transformační matice (nemusí to být jenom měřítko, je tam posun, rotace, případně jejich kombinace).

Přeji příjemné bádání.

byl a ještě jsem teď malinko pracovně vytížen takže nezbylo moc času, ale díky moc za reakci. Hned jsem to vyzkoušel na obdélníku. Je to jak píšete od lesa (a to je vždycky nářez :-)

připomíná mi to chováním zoom a určitě se to bude hodit :-)

Škoda trochu že to nejde opačně. Teď to ohybá opravdu ten prostor kam kreslím a já bych spíš asi potřeboval ohnout to co kreslím.

Mám data hodnotově v řádu 10000 a chtěl jsem najít elegantní řešení jak je "vměstnat" do aktuálního rozměru např. PictureBoxu.

a tím je tak nějak vizualizovat do grafu. Zatím to právě přepočítávám ve funkci, což je asi řešení z doby kamenné, nicméně funguje.

... bádáme dál :-)