|
Zdravím, mám problém s vykreslováním čar a překrýváním obrázku. Kód je následující:
TBitmap = Bitmap.FromFile(main_path & "\PROGRAMS\" & name)
grp.Clear(Color.Black)
PictureBox1.Invalidate()
Dim StartXline As Point
Dim EndXline As Point
Dim StartYline As Point
Dim EndYline As Point
StartXline.X = pozice_x
StartXline.Y = 0
EndXline.X = pozice_x
EndXline.Y = PictureBox1.Height
StartYline.X = 0
StartYline.Y = pozice_y
EndYline.X = PictureBox1.Width
EndYline.Y = pozice_y
grp.DrawLine(New Pen(Color.Red, 1), StartXline, EndXline)
grp.DrawLine(New Pen(Color.Red, 1), StartYline, EndYline)
PictureBox1.Invalidate()
strana_desky = deska
Dokud jsem tam nepřidal nahrávání obrázku, tak všechno fungovalo dobře, ale jakmile jsem chtěl ještě pod ty čáry hodit obrázek, tak mi to ten obrázek všechno překryl. Zrušil jsem i funkci, která se volala ve chvíli, kdy se něco provádělo PictureBoxem a dal jsem to přímo do zdrojáku, který zde vidíte, ale tím se mi úplně přestaly zobrazovat obrázky.
|