PictureBoxで遊ぶ（笑） への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 ぼく  (小学生) 投稿日時 2008/10/25 08:11:07 
リソースの入れ方

My Projectを右クリック

リソースの追加（R)の横の▼をクリック

既存のファイルの追加

画像を入れる

Resourcesのとこにファイルが入る(.Bmp__とか.Gif等)

PictureBoxタスク（pictureBoxの右上の矢印）をクリック

AutoSizeにする。

ボタン1に←、ボタン2に→

一応、補足

VisualBasic2008無料版

無料版と言っても、かなりの機能があるよ。

Formのサイズとかも設定しといてね。
0
投稿者 ぼく  (小学生) 投稿日時 2008/10/25 07:12:05 
Option Strict On

'用意するもの＞PictureBox1個、Buttonコントロール2個 

'VisualBasic2008無料版 

Public Class Form1

    Private Const Eizou_suu As Integer = 10

    Private Eizou(Eizou_suu - 1) As Image

    Private NoFile As Integer = 0

    Public Sub New()



        ' この呼び出しは、Windows フォーム デザイナで必要です。 

        InitializeComponent()



        ' InitializeComponent() 呼び出しの後で初期化を追加します。 



        'My.Resources.@@@@@の＠はリソース名前 

        Eizou(0) = My.Resources.ChocottoDerby_2008_1024_0710

        Eizou(1) = My.Resources.ChocottoDerby_2008_1024_0734

        Eizou(2) = My.Resources.ChocottoDerby_2008_1024_0826

        Eizou(3) = My.Resources.ChocottoDerby_2008_1024_0848

        Eizou(4) = My.Resources.ChocottoDerby_2008_1024_0851

        Eizou(5) = My.Resources.ChocottoDerby_2008_1024_0901

        Eizou(6) = My.Resources.ChocottoDerby_2008_1024_0920

        Eizou(7) = My.Resources.ChocottoDerby_2008_1024_0938

        Eizou(8) = My.Resources.ChocottoDerby_2008_1024_0944

        Eizou(9) = My.Resources.ChocottoDerby_2008_1024_0953

    End Sub

    Private Sub Hyouji()

        Me.PictureBox1.Image = Eizou(NoFile)

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        NoFile -= 1

        If NoFile = -1 Then NoFile = 9

        Hyouji()

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NoFile += 1

        If NoFile = 10 Then NoFile = 0

        Hyouji()

    End Sub

End Class

いやぁ、でけた（＾＿＾＠）
0