新たなウインドウに図形を表示させる方法 への返答

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

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

投稿者 サクボ  (学生) 投稿日時 2008/12/23 02:00:15
こうじさん
 そのとうりですね。今後気をつけたいと思います。

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

レオさん
 ご親切にありがとうございます。
 このコードをしっかり理解できるように勉強したいと思います。
投稿者 レオ♪  (小学生) 投稿日時 2008/12/22 04:48:19
別ウインドウは、自力で・・
こっちの方が質問でしたか?
Test><
投稿者 レオ♪  (小学生) 投稿日時 2008/12/22 00:08:52
ボタンはつかわないけど♪
ヒントにはなるかも♪初心者的なコードをプレゼント♪メリクリ
Option Strict On
'環境 
'Vista 
'Visual Basic 2008 
'このコードの実行に責任は保障しません 
'PictureBox1とComboBox1を用意する 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As ObjectByVal 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 ObjectByVal 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.ObjectByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        PictureBox1.Invalidate()
    End Sub
End Class

投稿者 neptune  (社会人) 投稿日時 2008/12/20 08:10:14
こんにちは

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

>できればコードなども書いていただけるとありがたいです。 
甘え過ぎ。
投稿者 こうじ  (社会人) 投稿日時 2008/12/20 04:43:36
>できればコードなども書いていただけるとありがたいです。 
この部分は削除したほうがよいでしょうね。
甘えてるととられて厳しいコメントがかえってきますよ。
ヒントだけもらい、あくまで自力でガンばりましょう。
産みの苦しみが創造の喜びにつながっていく過程を体験することも大切だと思います
投稿者 サクボ  (学生) 投稿日時 2008/12/20 03:49:15
大学3年の者です。

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


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


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

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