|
> 動かすというのは、座標の変更による移動を指すのか、動画のように画像入れ替えを指すのか > 1つの画像なら動かせているのでしょうか? >
わかりにくく、すみません。
Private Sub Dir1_Change() File1.Path = Dir1.Path Private Sub Drive1_Change() Dir1.Path = Drive1.Drive Private Sub File1_Click() f = File1.Path If Right(f, 1) = "\" Then f = Left(f, 2) Picture1.Picture = LoadPicture(f & "\" & File1.FileName)
これを二つ作って、ただの静止画を表示してファイルにある画像の入れ替えを二つ同時にしたいのです。。
|