Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
複数の画像を読み込んで、フォームの背景画像を動的に変更する方法を教えて下さい。
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30559#CommentId84246
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
VB+VC# Beginner
 (社会人)
投稿日時
2020/10/16 00:29:31
複数の画像を読み込んで、フォームの背景画像を動的に変更する方法を教えて下さい。
やりたいことは、
① 1つのフォルダーに、0.jpg ~ 9.jpg を用意しました。
② 画像をあらかじめ、img(0) ~ img(9) に読み込みたい。
③ タイマーでフォームの背景画を変更したい。
ネットで、以下のコードを見つけましたが、全く理解できず、見よう見まねで
変更しましたが、開始後数秒でエラーになります。
参考ページ :
https://www.atmarkit.co.jp/fdotnet/dotnettips/597fastloadimg/fastloadimg.html
Imports System.IO
Public Class Form1
Dim i As Integer
Dim img(9) As Image
Dim dir As String = "E:\My Documents\My Picture\..."
Dim jpgFiles As String() = Directory.GetFiles(dir, "*.jpg")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
i = 0
For Each jpg As String In jpgFiles
Using fs As FileStream = File.OpenRead(jpg)
Using image As Image = Image.FromStream(fs, False, False)
img(i) = image
i += 1
End Using
End Using
Next
i = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If i < img.Length - 1 Then
i += 1
Else
i = 0
End If
Me.BackgroundImage = img(i)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Application.Exit()
End Sub
End Class
コードエディターで Dim img(9) ~ Dim jpgFiles の行に
IDE0044 Visual Basic Make field readonly
が出ています。
実行すると、「System.ArgumentException: '使用されたパラメーターが有効ではありません。'」
がでます。
他のページも検索しましたが、見つからなかったので質問します。
宜しくお願い致します。