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ěď.

Zajímavé otázky v kategorii Počítače a internet

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 1527
Zlatý Michal Kole 1198
Zlatý mosoj 1064
Zlatý Hlada 972
Zlatý ge0rge 953
Zlatý gecco 905
Zlatý led 884
Zlatý www 829
Zlatý badisko 818
Stříbrný cochee 684

Zobrazit celkový žebříček

Facebook

 

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