画像を表示する
画像を表示するには、ピクチャーボックスコントロールかイメージコントロールを使用します。ここではピクチャーボックスを使用します。下のコードでは、ピクチャーボックス(Picture1)にここで初めて登場したテキストボックス(Text1)のファイル名の画像をLoadPicture関数で読み込みます。表示できる画像はBMPはもちろんGIFやJPEGも表示することができます。もしファイル名が違ったりして読む込むことができなかった場合、そのエラーの内容を表示します。読み込むことができた場合はExit Subで終了します。LoadPicture関数の引数にNULLを設定した場合は、エラーにならずに画像は何も表示されなくなります。
| Private Sub Command1_Click() On Error GoTo Err ' エラーが発生したらErrへ ' 画像を読み込む Picture1.Picture = LoadPicture(Text1.Text) ' プロシージャを抜ける Exit Sub Err: ' エラーの内容を表示する MsgBox Err.Description End Sub |