タイトル : Re: フルスクリーンにした場合のラベル等の位置 投稿日 : 2009/07/21(Tue) 16:27 投稿者 : ダンボ
imgStyle.Zoomが何だかわからないんですが、こんな感じでいいんじゃないでしょうか。 > Private Sub Resize() > a2.Move 0, 0, ScaleWidth, ScaleHeight > If img Is Nothing Then > Exit Sub > End If > Dim xZoom As Single, yZoom As Single > On Error Resume Next > xZoom = ScaleWidth / baseWidth > yZoom = ScaleHeight / baseHeight > If Err.Number <> 0 Then > xZoom = 1! > yZoom = 1! > End If > On Error GoTo 0 Label1.Move Label1BaseLeft * xZoom , Label1BaseTop * yZoom , Label1BaseWidth * xZoom , Label1BaseHeight * yZoom > If xZoom <= 1! Or yZoom <= 1! Then > imgStyle.Zoom = "100%" > Else > imgStyle.Zoom = Format(IIf(xZoom < yZoom, xZoom, yZoom), "0.000%") > End If > End Sub |