|
Wenn Sie die Höhe und die Breite eines  Picture-Objekts
verwenden wollen, sollten Sie sich nicht von den ungewöhnlich hohen
Werten irritieren lassen. Das Picture-Objekt liefert diese Werte
nämlich in der Maßeinheit Himetric - einer sehr hochauflösenden
Maßeinheit (1/100 Millimeter). Praktischerweise sollten Sie die
Werte daher zunächst in die in Visual Basic geläufigeren
Maßeinheiten Twips oder Pixels umrechnen. Diese Umrechnung lassen
Sie am besten die Methoden ScaleX und ScaleY eines irgendeines
Containers wie Form, PictureBox, UserControl, PropertyPage usw.
vornehmen. Damit stellen Sie sicher, dass in Ihrer Umrechnung nicht
unter Umständen Rundungsfehler auftreten, die VB selbst nicht macht
- oder anders macht. Die meisten derartiger Container-Objekte in VB
verfügen über die beiden Methoden ScaleX
und ScaleY. Da Sie als Parameter die Ausgangs- und
Ziel-Maßeinheiten ausdrücklich angeben können, spielt es keine
Rolle, wie die ScaleMode-Eigenschaft
des betreffenden Containers gerade eingestellt ist.
With MyForm
Breite = .ScaleX(AnyPicture.Width, vbHimetric, vbTwips)
Höhe = .ScaleY(AnyPicture.Height, vbHimetric, vbTwips)
End With
oder
With MyForm
Breite = .ScaleX(AnyPicture.Width, vbHimetric, vbPixels)
Höhe = .ScaleY(AnyPicture.Height, vbHimetric, vbPixels)
End With
|