Public Class Form1 Dim Picture As New ArrayList '画像ファイルのコレクション Dim f As New Form2 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Picture.Add("C:\xxxx") '画像ファイル名を入力してください。 Picture.Add("C:\xxxx") '別の画像ファイル名を入力してください。 End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 'クラスにボタンをクリックした時の数をカウントする f.butn += 1 f.Owner = Me AddHandler Button1.Click, AddressOf Form2_show End Sub Private Sub Form2_show(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim i As Integer i = f.butn Dim ip As Integer If i Mod 2 = 0 Then 'ボタンを押した時の数を2で割ったときの余りが0の時 ip = 0 Else 'それ以外の時 ip = 1 End If Form2.PictureBox1.Image = Image.FromFile(Picture(ip)) Form2.Label1.Text = "文字" Form2.Show() End Sub End Class
Public Class Form2 Shared _butn As Integer 'ボタンをクリックした時の数 Public Property butn() As Integer Get Return _butn End Get Set(value As Integer) _butn = value End Set End Property End Class