برنامه ای شبیه به مولتی مدیا

[oYaMaa]

سلام دوستان...
شرمندم چون نمیدونستم واقعا باید چی رو جستجو کنم، تایپیک زدم.اگر قبلا بحث شده معذرت میخوام.

خوب من قصد دارم برنامه ای رو طراحی کنم تا بشه داخلش label و button و textbox و... اضافه کرد و مکانشونو عوض کرد.درست عین برنامه مولتی مدیا و یا همین vb6.
لطفا راهنمایی کنید.:لبخندساده:

[majidbahrami]

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

Dim WithEvents C As CommandButton
Private Sub Command1_Click()
Set C = Me.Controls.Add("vb.commandbutton", "button")
C.Visible = True
C.Caption = "click"
C.Left = C.Left + 2000
C.Top = C.Top + 2000
End Sub
Private Sub C_Click()
MsgBox "M.Gh"
End Sub

[majidbahrami]

اینم ساخت لیبیل ..همین جوری کدها رو ویرایش کن به جای لیبل تکست باکس بزار برات بسازه

Dim WithEvents C As Label
Private Sub Command1_Click()
Set C = Me.Controls.Add("vb.label", "button")
C.Visible = True
C.Caption = "click"
C.Left = C.Left + 2000
C.Top = C.Top + 2000
End Sub


موفق باشید

[oYaMaa]

فوق العاده بود!
برای تغییر مکان کنترل ها با موس چی؟
می دونم باید x y موس رو با left top کنترل برابر بذارم و height و width کنترل رو هم مورد توجه قرار بدم.اگر توضیح کامل تری هست لطفا بگید ممنون!

[MohammadGh2011]

فوق العاده بود!
برای تغییر مکان کنترل ها با موس چی؟
می دونم باید x y موس رو با left top کنترل برابر بذارم و height و width کنترل رو هم مورد توجه قرار بدم.اگر توضیح کامل تری هست لطفا بگید ممنون!
سلام عليکم

اين يه نمونه براي تغيير مکان کنترلها:
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Command1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub

[oYaMaa]

ممنون خیلی خوب بود!
ولی این کد دیگه اجازه نمیده روی دکمه کلیک کنم.چرا؟چیکارش کنم؟
و اینکه لطفا نمونه های دیگه ای رو هم بذارید.
ممنون:لبخندساده:

[MohammadGh2011]

ممنون خیلی خوب بود!
ولی این کد دیگه اجازه نمیده روی دکمه کلیک کنم.چرا؟چیکارش کنم؟
و اینکه لطفا نمونه های دیگه ای رو هم بذارید.
ممنون:لبخندساده:
شما دقيقا ميخواين چيکار کنين؟!!
ميتونيد يک Checkbox بزاريد که هر وقت چک باکس تيکش خورده بود اجازه بده تکون بديد در غير اينصورت اجازه تغيير مکان رو نده.

[oYaMaa]

شما دقيقا ميخواين چيکار کنين؟!!
ميتونيد يک Checkbox بزاريد که هر وقت چک باکس تيکش خورده بود اجازه بده تکون بديد در غير اينصورت اجازه تغيير مکان رو نده.
نمیشه کاری کرد که از چک باکس استفاده نکنم؟
مثل وی بی که می تونیم حرکت بدیمش کنترل ها رو و با دابل کلیک روی دکمه یا تکس باکس یا هرچی کد نویسی کنیم.

[MohammadGh2011]

نمیشه کاری کرد که از چک باکس استفاده نکنم؟
مثل وی بی که می تونیم حرکت بدیمش کنترل ها رو و با دابل کلیک روی دکمه یا تکس باکس یا هرچی کد نویسی کنیم.

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Sub Command1_Click()
MsgBox "MGH"
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Command1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub

[oYaMaa]

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

http://upcity.ir/images/40399925230868214321.gif

[MohammadGh2011]

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

http://upcity.ir/images/40399925230868214321.gif
سلام عليکم
اينطوري فکر نکنم راهي باشه ولي شما ميتونيد با دستور طول و عرض اون رو تغيير بديد.شايد دوستان ديگه راهي رو بدونند...


موفق باشيد

[oYaMaa]

دوستان نظری ندارید؟

[مهرداد صفا]

دوستان نظری ندارید؟
سلام
میتوانید یک قسمت برای ویرایش خصوصیات اشیا قرار دهید.
مثلا نام کنترلها در list1 و خصوصیات آنها در list2 و مقدار خصوصیت در text1 و کد هم تقریبا به این صورت:

CallByName form2.Controls(List1.List(List1.ListIndex)), list2.List(list2.ListIndex), VbLet, Text1.Text

[amin32]

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

http://upcity.ir/images/40399925230868214321.gif

در مورد ریسایز کنترل در runtime یک نمونه ساده رو براتون ضمیمه کردم.
96603

[oYaMaa]

در مورد ریسایز کنترل در runtime یک نمونه ساده رو براتون ضمیمه کردم.
96603
خیلی خوب بود!
ولی راهی نداره تا یه کد کلی و مرجع بنویسیم تا بری همه کنترل ها استفده کنیم؟
چون اگه قرار باشه برای هر کنترل این همه کد نوشت، خیلی میشه.

[amin32]

خیلی خوب بود!
ولی راهی نداره تا یه کد کلی و مرجع بنویسیم تا بری همه کنترل ها استفده کنیم؟
چون اگه قرار باشه برای هر کنترل این همه کد نوشت، خیلی میشه.


این نمونه ای که قرار دادم کمی جامع تر هست.

96615

منبع :
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=34549&lngWId=1