24-07-13, 10:36 PM
السلام عليكم
لقد طرحت في احدى المرات سؤال عن تحريك عناصر في الفورم
فكان الجواب كالتالي :
في الكلاس موديل :
و في الفورم في القسم العام
و اريد عمل كود ينفذ اوامر معينة عند ضغط كوماند1 او 2 أو 3 أو .....................100
المهم ماذا تنصحوني بالموديل او بالكلاس موديل
و هل اكتب كود شبيه في الكلاس موديل اعلاه مع تغيير اسم الكلاس موديل الى الاسم الذي اريده و تغيير الكود الى الكود الذي اريده
و سؤال أخير اذا ما استعملت عنصرا معينا من فورم معين مثلا ليكن الامر : command12.visible=false
فهل اكتبه كما هو ام اكتبه بالشكل :form4.command12.visible=false
لقد طرحت في احدى المرات سؤال عن تحريك عناصر في الفورم
فكان الجواب كالتالي :
في الكلاس موديل :
كود :
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