مدیریت ابزار های استفاده شده در برنامه

[Veteran]

سلام دوستان
میگم امکان داره برنامه رو یک کاریش کنیم که کاربری که دار استفاده میکنه بتونه خودش ابزار هارو جابه جا یا اندازشونو کوچیک یا بزرگ گنه ؟ مثلا یک تکست باکس رو خودش بزار جایی که دلش میخاد یا اندازشو بزرگ یا کوچیک کنه > :متفکر:

[mr-adler]

مثلا یک تکست باکس رو خودش بزار جایی که دلش میخاد یا اندازشو بزرگ یا کوچیک کنه >
با 2 خاصیت کنترل تکست یعنی top & left میشه فاصله این کنترل رو از بالا و قسمت چپ صفحه تنظیم کرد . همچنین با خاصیت های width & height میشه اندازه کنترل رو تغییر داد .

موفق باشی...:چشمک:

[Veteran]

دوست عزیز اینو میدونم اما میخوان فایل رو کامپیال کردم دادم به یکی بتونه مثلا روی تکست باکس کلیک کنه و بکشه بزار یکجای دیگه از فرم یا اندازه تکست باکس رو بزرگ کنه

[mr-adler]

برای مثال تو یه کامند کد زیر رو بنویس:

Text1.Left = Text1.Left + 100
با این کار تکست به مقدار 100 واحد به سمت راست میره(از سمت چپ دور میشه)
دقیقا مثل این کد برای بالا و پایین رفتن کنترل استفاده میشه.
همچنین برای resize کردن کنترل ها هم میشه از این کد دوباره استفاده کرد .

دوست عزیز اینو میدونم اما میخوان فایل رو کامپیال کردم دادم
کمپایل شدن یا نشدن تاثیری نداره...

موفق باشی:چشمک:

[mr-adler]

فراموش کردم بگم راه ساده تر استفاده از مختصات هست که با کلیک روی کامند کنترل مورد نظر به اون مختصات بره.

[MohammadGh2011]

دوست عزیز اینو میدونم اما میخوان فایل رو کامپیال کردم دادم به یکی بتونه مثلا روی تکست باکس کلیک کنه و بکشه بزار یکجای دیگه از فرم یا اندازه تکست باکس رو بزرگ کنه
سلام عليکم
دوست عزيز کد زير رو تو کد نويسي ويژوال بيسيک کپي کن

Private Sub Text1_DblClick()
Text1.Top = Text1.Top - 100
End Sub

هر موقع روي تکست باکس دابل کليک ميکني تکست باکس ميره بالا
من اينطوري شو بلدم شايد دوستان يه جور ديگه يا بهتر از اين رو بتونن انجام بدن.اگه اين جوري که تو کد بالا برات گذاشتم رو خواستي بگو تا کوچک و بزرگ و... رو هم برات توضيح بدم


موفق باشيد.

[Veteran]

عزیز منظورمو نمیگیری چرا من میگم مثلا میخوام یک کامند رو بگیریم و ببیرم این طرف اون طرف و یا یک تکست باکس رو و بزارم سر جای مورد نظر خودم دقیقه همون شکلی که قبل اینه برنامه ران بشه اون موقوع که دارید ابزار هارو میزارین سر جاشونمثلا یک کامند رو میکشین میزارین بالا به اون صورت نه اینکه بیایم عدد وارد کنیم !!!
تشکر اینارو خودم میدونم

[mr-adler]

تشکر اینارو خودم میدونم
منظورتونو متوجه نشدم؟؟؟؟؟

[mr-adler]

امیدوارم طرز فکرت اینی نباشه که من فکر میکنم....
به هر حال عیبی نداره.
کدهایی که برات مینوسم با زدن چک باکس کامند رو با حرکت ماوس جابه جا میکنه و بعد از حرکت کامند در هر جایی که خواستی توقف کنه روی کامند یه بار کلیک میکنی . علاوه بر این مختصات گوشه بالای کنترل رو تو caption فرم نشون میده. توی فرم یه چک باکس و یه کامند ایجاد کن دستورات زیر رو تو قسمت کدها بنویس:

Private Sub Command1_Click()
Check1.Value = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Check1.Value = 1 Then
Me.Caption = "x=" & Str(X) & ",y=" & Str(Y)
Command1.Left = X
Command1.Top = Y
Else: Exit Sub
End If
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Check1.Value = 1 Then
Command1.Left = X
Command1.Top = Y
Else: Exit Sub
End If
End Sub


البته با یکم تغییر میتونی این کد رو به دلخواه خودت عوض کنی .

[امین مستانی]

از این نمونه میتونید استفاده کنید ...

http://www.vb6.us/files/VBPrograms/DragDrop/DragAndDrop.zip

موفق باشید