ma.andishe
شنبه 02 مرداد 1389, 09:34 صبح
سلام
میدونم شاید جاش نباشه در این جا در مورد vb6 توضیح بخوام ولی از اونجا که اکثر دوستان عزیز معمولا اول vb6 کار بودند بعد با .net کار کردند خواست 1 توضیح مختصر در مورد این کد بدند مثلا توی خط 5 چه چیزی از گرید توی متغییر r ریخته میشه و یا توی خط 8 متد move از فرم 1 ,و یا متد left از فرم 2 .......نهایت تشکر از همکاری عزیزان
*********************************************
Private Sub grid_1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Integer
Dim c As Integer
r = GetRowClicked(grid_1, y)
c = GetColClicked(grid_1, x)
If Button = vbRightButton And r <> -1 Then
grid_1.RowSel r
form_1.Move form_2.Left + grid_1.Left + x, form_2.Top + Holder2.Top + grid_1.Top + y
form_1.Show 1
End If
End Sub
میدونم شاید جاش نباشه در این جا در مورد vb6 توضیح بخوام ولی از اونجا که اکثر دوستان عزیز معمولا اول vb6 کار بودند بعد با .net کار کردند خواست 1 توضیح مختصر در مورد این کد بدند مثلا توی خط 5 چه چیزی از گرید توی متغییر r ریخته میشه و یا توی خط 8 متد move از فرم 1 ,و یا متد left از فرم 2 .......نهایت تشکر از همکاری عزیزان
*********************************************
Private Sub grid_1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As Integer
Dim c As Integer
r = GetRowClicked(grid_1, y)
c = GetColClicked(grid_1, x)
If Button = vbRightButton And r <> -1 Then
grid_1.RowSel r
form_1.Move form_2.Left + grid_1.Left + x, form_2.Top + Holder2.Top + grid_1.Top + y
form_1.Show 1
End If
End Sub