【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






ボタンの画像を大きさを調整しながら表示する

【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、画像の大きさにあわせて
ボタンに画像を表示することが可能です。

この機能を使えば、画像の大きさに左右されず
ボタンの画像の大きさにあわせてボタンを表示したり
ボタンの大きさにあわせてボタン画像を表示することが可能です


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、ボタンコントロール
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━┓┏━━━━━┓
   ┃Button1   ┃┃Button2   ┃
   ┗━━━━━┛┗━━━━━┛


2.フォームをダブルクリックして、
    フォームロードイベントのコード編集を開始して、
    次のコードを記述します。


    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load

        'イメージオブジェクト
        Dim img As Image

        '画像ファイルを指定しています
        img = Image.FromFile( _
        "c:\image.gif")

        With Button1
            .BackgroundImage = img
            .Width = img.Width
            .Height = img.Height

        End With

        With Button2
            .BackgroundImage = _
            New Bitmap(img, .Width, .Height)


        End With

    End Sub



3.ビルドして実行します。


4.フォームに表示された
    ボタンに、画像イメージが表示されます。

  Button1 の大きさは、
    ボタンの画像の大きさにあわせてボタンを表示します

  Button2 の大きさは、
    ボタンの大きさにあわせてボタン画像を表示します



-----------VB.NETコーディングここまで-------------------

  img = Image.FromFile( _
  "c:\image.gif")

表示する画像へのファイルパスを上記で指定しています
適当に変更して試してみます。

画像の大きさを変更するコードとして
New Bitmap(img, Button2.Width, Button2.Height)
を使用しています






 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=Omm

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/12/15(土)00:05 更新