dotNETportal.cz

Zdravím...

Tak už jsem narazil na další problém, mám na formu umístěno pár obrázků (PNG), mají některé části průhledné -> což je fajn jen do té doby, než se dostane ta průhledná část nad jiný obrázek (PNG)! To průhledné se v tu chvíly stane neprůhledné a klidně mi to co je pod ním schová!!!! Co s tím?

Opravdu máte obrázky na formuláři, tj. jako Image vykreslené v Paint formuláře?

Pokud jsou obrázky v PictureBox, pak průhlednost jde až na pozadí formuláře. Budete-li obrázky načítat do proměnné typu Image a vykreslovat v Form1_Paint

 e.Graphics.DrawImage(obr, x, y)
 ' kde obr je typu Image a x, y Integer jako souřadnice jeho umístění

pak se obrázky zakrývat nebudou - nahoře bude neprůhledná část naposled vykresleného obrázku...

obrázky mám v pictureBoxech, protože je při jistých okolnostech potřebuji vyměnit za jiné... Vaše rešení vyzkouším. Díky

Vyměňovat obrázky za jiné není problém. Jen po změně musíte vyvolat překreslení formuláře s Me.Invalidate()

jak mám Form.Paintu třeba z procedury(nebo funkce) poslat, že chci vykreslit jiný obrázek?

Právě s tím Inalidate(). Třeba po kliknutí na Button změníte obsah Image, souřadnice ap., prodeduru zakončíte Me.Invalidate() a tím zavoláte Paint formuláře.

no nějak se mi to nedaří...kde vezmu ten Image?? Picturebox1.Image?? Kopněte mě správným směrem, trochu v tom tápu...

Zapomněl jsem odentrovat:

End If Me.Invalidate() ' vyvolá Paint formuláře

  End If    
  Me.Invalidate() ' vyvolá Paint formuláře

Děkuji, po drobných úpravách jsem i pochopil. Moc děkuji

Imports System.Drawing

Public Class Form1
    Dim obr(2) As Image
    Dim x, y, obraz As Integer

    Private Function Vykresli(ByVal cisloPole, ByVal naX, ByVal naY)
        obraz = cisloPole
        x = naX
        y = naY
        Me.Invalidate()
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        obr(0) = Image.FromFile("C:\== Programovani ==\grafická sada\__RAILAGE\ikL_zs.png")
        obr(1) = Image.FromFile("C:\== Programovani ==\grafická sada\__RAILAGE\ikL_zvc.png")
        obr(2) = Image.FromFile("C:\== Programovani ==\grafická sada\__RAILAGE\ikL_obs.png")
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawImage(obr(obraz), x, y)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Vykresli(1, 70, 180)
    End Sub

End Class