Mind a két függvény arra hivatott, hogy ikonokat jelenítsen meg, rajzoljon ki. A fő különbség e két függvény között az, hogy a DrawIcon tetszőleges méretre nagyítva/kicsinyítve rajzol, míg a DrawIconUnstretched csak az eredeti méretben tudja kirajzolni. Mivel a DrawIconUnstretched függvénynek nem feladata a méretezés, így a kirajzolás gyorsabban történik meg, mint a DrawIcon függvényt használva. Ez a különbség azonban nem számottevő, csak számítógéppel lehetne mérni.
DrawIcon
Osztály: System.Drawing.Graphics
Overloads Public Sub DrawIcon( _
ByVal icon As Icon,
ByVal targetRect As Rectangle
)
Egy tetszőleges ikon kirajzolását végzi el, tetszőleges méretre nagyítva/kicsinyítve.
Paraméterek
ByVal icon As Icon
A kirajzolandó ikont egy Icon osztálytípusban kell megadnunk.
ByVal targetRect As Rectangle
A targetRect paraméter határozza meg, hogy kirajzolás hova és mekkora méretben történjen.
DrawIcon
Osztály: System.Drawing.Graphics
Overloads Public Sub DrawIcon( _
ByVal icon As Icon, _
ByVal x As Integer, _
ByVal y As Integer _
)
Egy tetszőleges ikon kirajzolását végzi el, tetszőleges méretre nagyítva/kicsinyítve.
Paraméterek
ByVal icon As Icon
A kirajzolandó ikont egy Icon osztály típusban kell megadnunk.
ByVal x As Integer
A kirajzolás X koordinátája.
ByVal y As Integer
A kirajzolás Y koordinátája.
Megjegyzés
A DrawIcon e változata mindig eredeti méretben rajzolja ki az ikont.
DrawIconUnstretched
Osztály: System.Drawing.Graphics
Public Sub DrawIconUnstretched( _
ByVal icon As Icon, _
ByVal targetRect As Rectangle _
)
Egy tetszőleges ikon kirajzolását végzi el, eredeti méretben.
Paraméterek
ByVal icon As Icon
A kirajzolandó ikont egy Icon osztály típusban kell megadnunk.
ByVal targetRect As Rectangle
A targetRect paraméter határozza meg, hogy kirajzolás hova történjen.
Megjegyzés
A targetRect paraméternek csak a Top és Left property-e kerül felhasználásra.
A példaprogram
A mellékelt példában láthatjuk mind a háromféle ikon rajzoló függvényét használat közben. A kirajzolandó ikonhoz egy Icon osztályt kell létrehoznunk, melybe betöltünk egy ICO állományt.
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim icon As New Icon(Application.StartupPath + "\CTRUSA.ICO")
g.DrawIcon(icon, 10, 10)
Dim r1 As New Rectangle(10, 60, 160, 160)
g.DrawIcon(icon, r1)
g.DrawRectangle(New Pen(Color.Gray, 1), r1)
Dim r2 As New Rectangle(180, 60, 160, 160)
g.DrawIconUnstretched(icon, r2)
g.DrawRectangle(New Pen(Color.Gray, 1), r2)
End Sub 'Form1_Paint