Grafika – Visual Basic – Fórum – Programujte.com

Zdravím.

Deláme ve škole grafiku a já se doma rozhodl že si udelam neco navíc, napadlo me pouvání nakresleného tvaru na různé strany, pokud to byla obyčejná čárka, tak to mi šlo, ale chtěl bych udelat něco ve tvaru šipky,která by ukazovala, tím smerem kterým by se posunovala.

Posun sem zajistil tlačitkama. U te šipky to bude podobné jen si nevím rady se souřadnicemi, pořad mi to dela nejaké patvary :-(

kod vypadá takto pro čárku

Public Class Form1

    Dim Grafika As Graphics

    Dim Pero As Pen = New Pen(Color.Red, 4)

    Dim x, y As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim r As Integer

        Grafika = Graphics.FromHwnd(Me.Handle)

        Grafika.ScaleTransform(1, 1)

        Grafika.TranslateTransform(Me.Size.Width() / 2, (Me.Size.Height() / 2))

        r = Me.Size.Width() \ 4



        Grafika.DrawLine(Pero, x, y, x, y + 100)

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        y = (y + 10)

        Grafika.Clear(Me.BackColor)

        Grafika.DrawLine(Pero, x, y, x, y + 100)

    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        x = (x + 10)

        Grafika.Clear(Me.BackColor)

        Grafika.DrawLine(Pero, x, y, x, y + 100)

    End Sub



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        x = (x - 10)

        Grafika.Clear(Me.BackColor)

        Grafika.DrawLine(Pero, x, y, x, y + 100)

    End Sub



    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        y = (y - 10)

        Grafika.Clear(Me.BackColor)

        Grafika.DrawLine(Pero, x, y, x, y + 100)

    End Sub



    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        x = 0

        y = 0

        Grafika.Clear(Me.BackColor)

        Grafika.DrawLine(Pero, x, y, x, y + 100)

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Grafika.Clear(Me.BackColor)

    End Sub



End Class

DrawLine(pero, x1,y1, x2,y2) nakreslí čáru z bodu [x1,y1] do bodu [x2,y2]
Souměrné to bude takhle

DrawLine(Pero, 0, 0, 90, 50)

DrawLine(Pero, 0, 0, -90, 50)

Oki hele dík, tak se mi to podařilo udelat, ale ted me jeste napadlo jestli by šlo pres KeyPress udelat aby se to dalo posouvat i šipkama, šlo by to?

V KeyPress asi ne, ale v KeyDown jo.

If e.KeyCode = Keys.Down Then

    MessageBox.Show("Down")

End If

Aha díky, ale já nevim jak to zapojit do kodu.At to napišu jak koliv, vzdy mi pouze při zmáčnuti jakékoliv klávesy se označi nejaky button. (jako že se podbarví a je mozné enterem aktivovat)Mohl jsi si prosim, to trošku upřesnit ? Díky

Tohle by mělo fungovat i když form nemá focus.

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean

    If keyData = Keys.Down Then

        MessageBox.Show("Down")

    End If

    Return MyBase.ProcessCmdKey(msg, keyData)

End Function

Díky moc, uz mi to funguje tak jak bych chtěl :) Děkuju

Ahoj,

chtěla bych poprosit o pomoc. Začali jsme ve škole dělat grafiku ve Visual Basicu a mame za ukol:

vytvořit olympijské kruhy

šachovnici na dámu

pyramidu s kostek různě barevných (základ 8)

pyramidu z trubek (4 základ)

Kdyby někdo věděl jak na to, byla bych moc vděčná za pomoc.

Předem díky

#8 Domajska
"Jak na to" ví spousta lidí. Otázka zní s čím chceš pomoct. Jestli si pomoc představuješ tak, že ti to někdo všechno udělá a pošle, tak tudy asi cesta nevede...

#9 JoDiK
No ne že to někdo udělá, ale třeba mi vysvětlí ! jak ! to udělat.

#10 Domajska
uznej, že z těch informací, co jsi napsala není co radit.

Tak od začátku.

1. Umíš spustit visualbasic?

2. Umíš v něm napsat program který nakreslí jednu kružnici?

...

Já se jen slušně zeptala jestli to někdo umí... Asi je ti za těžko bejt taky slušnej.

A zase takovej mentál nejsem, abych neuměla spustit program...

On je slušnej. Ty konečně napiš s čím konkrétně si nevíš rady.

#12 Domajska
Zdá se, že jsi nečetla čtyři dohody ani jsi nebyla na divadelním představení stejného názvu.

Protože si všechno bereš osobně.

Kdyby ses nad tím zamyslela, tak bys mohla pochopit, že jsem tě nechtěl urazit ale snažil jsem se s ironickou nadsázkou naznačit, že pokud neřekneš na čem můžeš stavět (co už umíš), tak ti asi těžko může někdo pomoct. Asi jsem to trochu přehnal, promiň.

Takže když odpovíš na otázku 2. třeba se posunem dál...

PS: čtyři dohody vřele doporučuji viz http://cs.wikipedia.org/…5%99i_dohody

Pokud nerada čteš, pusť si aspoň zvukový záznam z divadla, je na youtube. Opravdu ti to zlepší život...

No nic už sem to nějak zpracovala. Díky za tip přečtu si.

A jelikož jsme to brali první hodinu tak sem si nevěděla rady celkově. Ale už jsem to tak nějak zpracovala.

Přeji hezký den :-)