[asto]

السلام عليكم

لقد طرحت في احدى المرات سؤال عن تحريك عناصر في الفورم

فكان الجواب كالتالي :

في الكلاس موديل :

كود :

Public WithEvents Picture As PictureBox

Dim SSX As Integer
Dim SSY As Integer

Private Sub Picture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SSX = X
SSY = Y
End Sub

Private Sub Picture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
   Picture.Left = Picture.Left + X - SSX
   Picture.Top = Picture.Top + Y - SSY
End If
End Sub

و في الفورم في القسم العام

كود :

Dim Ctrl1Event As New ControlEvents
Dim Ctrl2Event As New ControlEvents
Dim Ctrl3Event As New ControlEvents
Dim Ctrl4Event As New ControlEvents
Dim Ctrl5Event As New ControlEvents
Dim Ctrl6Event As New ControlEvents
Private Sub Form_Load()
Set Ctrl1Event.Picture = Picture1
Set Ctrl2Event.Picture = Picture2
Set Ctrl3Event.Picture = Picture3
Set Ctrl4Event.Picture = Picture4
Set Ctrl5Event.Picture = Picture5
Set Ctrl6Event.Picture = Picture6
End Sub

و اريد عمل كود ينفذ اوامر معينة عند ضغط كوماند1 او 2 أو 3 أو .....................100

المهم ماذا تنصحوني بالموديل او بالكلاس موديل

و هل اكتب كود شبيه في الكلاس موديل اعلاه مع تغيير اسم الكلاس موديل الى الاسم الذي اريده و تغيير الكود الى الكود الذي اريده

و سؤال أخير اذا ما استعملت عنصرا معينا من فورم معين مثلا ليكن الامر : command12.visible=false

فهل اكتبه كما هو ام اكتبه بالشكل :form4.command12.visible=false