投稿者 実年  (社会人) 投稿日時 2009/2/12 05:28:50
開発環境はVB2008です
メソッドの作り方で、実引数と仮引数の考え方がわかりかねます
なにかめちゃくちゃなプログラムですが、ご指導お願いします。

(1)ボタンをクリックすると車が移動するという極めて簡単なプログラムです


Public Class Form1    

Dim s As Integer      

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

Sub idou(ByVal x As Integer, ByVal pb As PictureBox)   ’移動メソッド 

    x = 20     
   pb.Left -= x   

 End SubEnd Class


(2)上記のプログラムをオブジェクト指向的に書くと下記のようになりますか?   


それと※の部分がコンストラクタでよろしのでしょうか?

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

Dim s As Integer = 0        
Dim idou1 As idou = New idou(s, PictureBox1)  

  End Sub
End  Class

Class idou    

  ※  Public Sub New(ByVal x As Integer, ByVal pb As PictureBox)      
  x = 20        pb.Left -= x    
End Sub


End Class