Avatar uživatele
Pokročilý

Posledni 4 radky jsou spatne, pomozte mi je prosim opravit...

Protected Overrides Sub OnPaint(ByVal e As System. Windows. Forms. PaintEventArgs)
MyBase.OnPaint(e)

e. Graphics. DrawImageUnscaled(New Bitmap(_zkouska1), 0, 0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyNewSub()
End Sub

Sub MyNewSub()
BackColor = Color.Red
TransparencyKey = BackColor
End Sub
Private Sub Example_ControlAdded(ByVal sender As Object, ByVal e As System. Windows. Forms. ControlEventArgs) Handles Me.ControlAdded

AddHandler e.Control.MouseClick, AddressOf Example_MouseClick
End Sub

Private Sub Example_MouseClick(ByVal sender As Object, ByVal e As System. Windows. Forms. MouseEventArgs) Handles Me.MouseClick
If True Then e. Graphics. DrawImageUnscaled(New Bitmap(_zkouska2), 0, 0) = True
End Sub
End Class

Uzamčená otázka – ohodnoťte nejlepší odpověď symbolem palce.

Otázka ještě nemá žádnou odpověď.

Přihlásit se

Položte otázku, odpovězte, zapojte se, …

začněte zde

Reklama

Kvalitní odpovědi v: Počítače a internet

Zlatý Bedy 1525
Zlatý Michal Kole 1198
Zlatý mosoj 1028
Zlatý Hlada 948
Zlatý ge0rge 894
Zlatý www 829
Zlatý led 820
Zlatý badisko 818
Zlatý gecco 795
Zlatý arygnoc 674

Zobrazit celkový žebříček

Facebook

 

Váš požadavek se vyřizuje, počkejte prosím.