入門者にぃや♪の質問コーナー

Option Strict On

'VisualBasic2008 

Public Class Form1

    Private test_kakudo As Integer = 0

    Private Sub G_A(ByVal g As Graphics, ByVal kakudo As Integer)

        g.RotateTransform(kakudo)

        g.DrawImage(My.Resources.houdai_kougeki, 100, 0)

    End Sub



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

        G_A(e.Graphics, test_kakudo)

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Invalidate()

        test_kakudo += 1

        If test_kakudo > 90 Then test_kakudo = 0

    End Sub

Option Strict On

'VisualBasic2008 

Imports System.Drawing.Drawing2D

Public Class Form1

    Private hikouki As Image

    Private test_kakudo As Integer = 0

    Private test_kakudo2 As Integer = 0

    Private Sub G_A(ByVal g As Graphics, ByVal kakudo As Integer)

        g.RotateTransform(kakudo)

        g.DrawImage(hikouki, 100, 0)

    End Sub

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

        G_A(e.Graphics, test_kakudo)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Invalidate()

        test_kakudo += 1

        If test_kakudo > 90 Then test_kakudo = 0

        PictureBox2.Invalidate()

        test_kakudo2 += 1

        If test_kakudo2 > 360 Then test_kakudo2 = 0

    End Sub

    Private Sub G_B(ByVal g As Graphics, ByVal kakudo2 As Integer)

        Dim rotatepoint As New PointF(150.0F, 50.0F)

        Dim myMatrix As New Matrix

        myMatrix.RotateAt(test_kakudo2, rotatepoint, MatrixOrder.Append)

        g.Transform = myMatrix

        g.DrawImage(hikouki, 100, 100)

    End Sub

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

        G_B(e.Graphics, test_kakudo2)

    End Sub

    Public Sub New()

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

        InitializeComponent()

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

        hikouki = My.Resources.houdai_kougeki

    End Sub

End Class

 Dim a As Integer

                a = CInt(Mid(My.Resources.HO1, sampu1, 1)) '(リソース,読み込み任意位置,取得する数(1個) 

                Label1.Text = a.ToString

                sampu1 += 1

                If sampu1 > 10 Then sampu1 = 1

Option Strict On

'Vista 

'VisualBasic2008 

Imports System.Drawing.Drawing2D

Public Class Form1

    Private kyara_suu As Integer = 5

    Private kyara(kyara_suu - 1) As Image

    Private test_kakudo As Integer = 0

    Public Sub New()

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

        InitializeComponent()

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

        kyara(0) = My.Resources.hosi1 : kyara(1) = My.Resources.hosi2 : kyara(2) = My.Resources.hosi3

        kyara(3) = My.Resources.kouri1 : kyara(4) = My.Resources.kouri3

    End Sub

    Private Sub G_B(ByVal g As Graphics, ByVal kakudo As Integer)

        Dim rotatepoint As New PointF(100.0F, 100.0F)

        Dim myMatrix As New Matrix

        myMatrix.RotateAt(kakudo, rotatepoint, MatrixOrder.Append)

        g.Transform = myMatrix

        g.DrawImage(kyara(3), 100, 100)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Invalidate()

        test_kakudo += 1

        If test_kakudo > 360 Then test_kakudo = 0

    End Sub

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

        G_B(e.Graphics, test_kakudo)

    End Sub

End Class

Option Strict On

'Vista 

'VisualBasic2008 

Imports System.Drawing.Drawing2D

Public Class Form1

    Private kyara_suu As Integer = 5

    Private kyara(kyara_suu - 1) As Image

    Private test_kakudo As Integer = 0

    Private ichi_x, ichi_y As Integer



    Public Sub New()

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

        InitializeComponent()

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

        kyara(0) = My.Resources.hosi1 : kyara(1) = My.Resources.hosi2 : kyara(2) = My.Resources.hosi3

        kyara(3) = My.Resources.kouri1 : kyara(4) = My.Resources.kouri3

    End Sub

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

        PictureBox1.Visible = False

    End Sub

    Private Sub G_B(ByVal g As Graphics, ByVal kakudo As Integer, ByVal kyarakuter As Image, ByVal x As Integer, ByVal y As Integer)

        ' Dim rotatepoint As New PointF(100.0F, 100.0F) 

        Dim rotatepoint As New PointF(x + CInt(kyarakuter.Width / 2), y + CInt(kyarakuter.Height / 2))

        Dim myMatrix As New Matrix

        myMatrix.RotateAt(kakudo, rotatepoint, MatrixOrder.Append)

        g.Transform = myMatrix

        g.DrawImage(kyarakuter, x, y)

    End Sub

    Private Sub Randamu()

        Dim random As System.Random

        random = New System.Random()

        ichi_x = random.Next(0, PictureBox1.Width - 50)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Invalidate()

        test_kakudo += 1

        If test_kakudo > 360 Then test_kakudo = 0

        ichi_y += 1

        If ichi_y > PictureBox1.Height - kyara(3).Height Then

            ichi_y = 0 : Randamu()

        End If

    End Sub

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

        G_B(e.Graphics, test_kakudo, kyara(3), ichi_x, ichi_y)

    End Sub

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

        Timer1.Start()

        Randamu() : ichi_y = 0

        PictureBox1.Visible = True

    End Sub

End Class