move fields(حرکت فیلد بروی فرم یا ریپرت)

[HAMRAHSOFT.IR]

سلام کسی در مورد حرکت دادن فیلدبروی فرم را بلد که بشه با کلیدهای جهت دار بتونیم یک فیلد را به بالا یا پایین و با چپ وراست حرکت داد در حالات ویو فرم این کار انجام بدیم نه دیزاین

[mpmsoft]

منظورتون از فیلد Textbox هست یا چیز دیگری ؟

و یا می خواهید فیلدهای گرید رو جابه جا کنید ؟


کمی بیشتر توضیح بدید

[HAMRAHSOFT.IR]

فرض كند روي فرم چند Textbox داريم مخوام مثلان اگه Textbox1 انتخاب كردم وقتي كليد ctrlگيرم بتونم اون فيلد جاشو جابجا كنم

[Mohya_z332]

ابتدا تو قسمت general متغیر ها رو تعریف میکنیم :
Dim labFont As String
Dim mosx As Integer
Dim mosy As Integer
Dim labx As Integer
Dim laby As Integer
Dim mosdon As Integer
Dim nesbat As Integer
Dim shtop As Integer
Dim shleft As Integer
Dim shw As Integer
Dim sdh As Integer
Dim mosxx As Integer
Dim mosyy As Integer
Dim mosdon2 As Integer
Dim mo As Integer

فرض میکنیم شیئی به نام Label داریم برای تغییر مکان اون با موس کدهای زیر رو وارد میکنیم :


Private Sub Label_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mosx = X
mosy = Y
labx = Label.Left
laby = Label.Top
mosdon = 1
If Button = 1 Then
Label.MousePointer = 5
End If
End Sub
-------------------------------------------------------------------------------------------------------

Private Sub Label_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If mosdon = 1 Then
labx = (X - mosx) + labx
laby = (Y - mosy) + laby
If labx <= 120 Then labx = 120
Label.Top = laby
Label.Left = labx

End If
End If
End Sub
---------------------------------------------------------------------------------------------------------------

Private Sub Label_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
mosdon = 0
Label.MousePointer = 0
End Sub

[HAMRAHSOFT.IR]

تشكر ولي امكان دار روي فرو چند تكس باكس بزاريم و محل قرار كري داخل وانها تعين كنم بعداز زدن دكمه تائيد به محا مورد نظر بره

البته اينكار براي برنامه چاپ چك مخوام اگه راحل بهتري نيز سراغ داريد ممنون ميشم بگيد