フォームの背景に写真を表示するには
フォームの背景に写真を表示してみます。
キーワードは「Pictureプロパティ」と「LoadPicture関数」です。
Pictureプロパティはフォームのピクチャーについての属性です。
LoadPicture関数はVBの標準関数で、bmpを始め、jpeg,gif,icon,....
などいろいろなものが読み込めます。
ファイルを指定してそれをフォームのPictureプロパティに割り当てるだけです
実行中の様子
Private Sub Command1_Click()
With Me.CommonDialog1
.Filter = "*.bmp,*.jpg,*.gif|*.bmp;*.jpg;*.gif|*.*|*.*"
.ShowOpen
If .filename <> "" Then
Me.Text1.Text = .filename
Me.Picture = LoadPicture(.filename)
End If
End With
End Sub
Private Sub Command2_Click()
MsgBox "ボタンです"
End Sub |
ダウンロード(写真はついていません)
|