掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ImgEditについて知りたいのですが (ID：83842)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
サンプルソースをUPします Private lngPower As Long '//////////////////////////////////////// ' 拡大ボタン押下 10〜200までの範囲で拡大 '//////////////////////////////////////// Private Sub Command1_Click() Set goImg = ImgEdit1 If lngPower >= 10 And lngPower <= 190 Then lngPower = lngPower + 10 goImg.Zoom = lngPower End If goImg.Display End Sub '//////////////////////////////////////// ' 縮小ボタン押下 10〜200までの範囲で縮小 '//////////////////////////////////////// Private Sub Command2_Click() Set goImg = ImgEdit1 If lngPower >= 20 And lngPower <= 200 Then lngPower = lngPower - 10 goImg.Zoom = lngPower End If goImg.Display End Sub Private Sub Form_Load() With ImgEdit1 .Image = "d:\無題.tif" .Display .FitTo (0) lngPower = CLng(.Zoom) End With End Sub 後は各コマンドボタンを現在の拡大率が範囲外であれば 非表示にしたりすればよろしいのでは
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.