こうじさん
　そのとうりですね。今後気をつけたいと思います。

neptuneさん
　初級講座読んでみました。
　そうですね。せっかく用意してもらってるのだから活用すべきですね。

レオさん
　ご親切にありがとうございます。
　このコードをしっかり理解できるように勉強したいと思います。

別ウインドウは、自力で・・
こっちの方が質問でしたか？
Test><

ボタンはつかわないけど♪
ヒントにはなるかも♪初心者的なコードをプレゼント♪メリクリ

Option Strict On

'環境 

'Vista 

'Visual Basic 2008 

'このコードの実行に責任は保障しません 

'PictureBox1とComboBox1を用意する 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        With Me.ComboBox1.Items

            .Add("四角")

            .Add("三角")

            .Add("丸")

        End With

        '項目の編集を禁止する 

        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

    End Sub

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        Dim g As Graphics = e.Graphics

        Select Case ComboBox1.SelectedIndex

            Case 0

                '四角 

                g.DrawRectangle(Pens.Black, 0, 0, PictureBox1.Width - 1, PictureBox1.Height - 1)

            Case 1

                '三角 

                g.DrawLine(Pens.Black, CInt(PictureBox1.Width / 2), 0, 0, PictureBox1.Height - 1)

                g.DrawLine(Pens.Black, 0, PictureBox1.Height - 1, PictureBox1.Width, PictureBox1.Height - 1)

                g.DrawLine(Pens.Black, PictureBox1.Width - 1, PictureBox1.Height - 1, CInt(PictureBox1.Width / 2), 0)

            Case 2

                '丸 

                g.DrawEllipse(Pens.Black, 0, 0, PictureBox1.Width - 1, PictureBox1.Height - 1)

        End Select

    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        PictureBox1.Invalidate()

    End Sub

End Class

こんにちは

せっかく講座を用意してくれているのにそれを利用させて頂くのが宜しいかと思いますよ。
「初級講座」
を最初から読んで行ってください。すぐに関連情報が見つかります。

>できればコードなども書いていただけるとありがたいです。 
甘え過ぎ。

>できればコードなども書いていただけるとありがたいです。 
この部分は削除したほうがよいでしょうね。
甘えてるととられて厳しいコメントがかえってきますよ。
ヒントだけもらい、あくまで自力でガンばりましょう。
産みの苦しみが創造の喜びにつながっていく過程を体験することも大切だと思います

大学３年の者です。

以下の機能を作りたいのですが、
VB2008を使い始めてまだ間もないので、良い方法が思いつきません。


combobox1で図形１を選びます（四角形or三角形or円）。
combobox2で図形２を選びます（四角形or三角形or円）。
buttonを押します。
図形１と図形２が表示された別ウインドウがでてきます。


例えばcombobox1で四角形を選択、combobox2で三角形を選択し、buttonを押すと、
別ウインドウが出現し、そのウインドウには四角形と三角形の図が表示されるというものです。

説明が分かりにくく申し訳ありませんが、この機能をつくる良い方法を教えてもらえないでしょうか。
できればコードなども書いていただけるとありがたいです。