tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。