کامپوننت لیست کشوی

[سید حمید حق پرست]

سلام علیکم

دوستا از دیشب دنبال یک ocx لیست کشوی میگردم که مثل عکس زیر باشه

88753

منظورم از کشوی اینه که وقتی رو تیتر (عنوان) سطرها کلیک بکنم اهسته بسته میشوند . هر کدوم از تیترها جداگانه بسته میشن

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

ممنون میشم راهنمایی کنید

یا علی (ع)

[بهروز عباسی]

درود
شما باید از Tree View استفاده کنید
http://www.microsoft.com/en-us/download/details.aspx?id=15501

http://www.melbpc.org.au/pcupdate/2010/2010article4.htm

موفق باشید.

[سید حمید حق پرست]

ممنون از شما

ولی این نیست (اینو که تو وی بی هست)

منظور من تری وی نیست

اگر برنامه انستال شید رو دیده باشید یه قسمت به اسم سی پنل داره . این کامپوننت که من میخوام اینجوری هست که هنگام MOUSE MOVE روی تیترهاش و زیر منوهاش رنگ متنش تغیر میکنه و هنگام کلیک هم انتخاب نمیشه . اگر رو تیترش کلیک کنی بسته و بعد باز میشه و اگر رو زیر منوهاش کلیک کنی یه کار خاص دیگه انجام میده
امیدوارم خوب توضیح داده باشم

بازم ممنون

یا علی (ع)

[بهروز عباسی]

اگر برنامه انستال شید رو دیده باشید
شرمنده کارنکردم اگه ممکنه یه عکس از یه نمونه بذارید غیر از بالای

[سید حمید حق پرست]

ممنون از توجهتون به مطلب

اینم عکس :
88779

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

بازم تشکر


یا علی (ع)

[بهروز عباسی]

چطوری رنگ لیبیل و پس زمینشو اونجوری کنم
الان vb ندارم تست کنم اما یه چیزای گیر اوردم
http://www.vbforums.com/showthread.php?t=986
http://www.bigresource.com/VB-How-do-you-highlight-a-label-when-you-scroll-over-it-with-mouse--eBjwTQOtpp.html#tOcsMCGIeg
واینکه فکر کنم کنترل مد نظر شما Task Panel (http://www.componentsource.com/products/codejock-xtreme-taskpanel-activex/index.html) باشه یا CategoryPanel

[just4froum]

نمیدونم توی vb میشه چنین کاری رو کرد یا نه ولی پیشنهاد می کنم با Photoshop درست کن بعد با کنترل picture یا image لودش کن.

[بهروز عباسی]

نمیدونم توی vb میشه چنین کاری رو کرد یا نه

شدن که با API میشه کمی بهش سایه داد

[سید حمید حق پرست]

ممنون از همه دوستان

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


نمیدونم توی vb میشه چنین کاری رو کرد یا نه ولی پیشنهاد می کنم با Photoshop درست کن بعد با کنترل picture یا image لودش کن. بله با Photoshop هم میشه . اما به دلیل اینکه میخوام از چند زبانه بودن برنامه استفاده کنم نمیشه

مشکل الان تنها سایه دادنه . میگردم ببینم چی نصیب میشه
راه دیگه ای اگه باشه ممنونتون میشم:قلب:

یا علی (ع)

[سید حمید حق پرست]

دوستان یک سوال دارم
الان بنده واسه ساخت این پنل کشوی اومدم از رویداد mouse move استفاده کردم
اما این روش سورس رو شلوغ میکنه و اگر موس رو با کمی سرعت از روی لیبل و کلا برنامه کنار ببری رنگی که در mouse move تعریف کردم نمایش داده میشه
راهی هست که mouse move رو روی لیبیل شناسایی کرد تا اینجوری هم کد کمتر صرف بشه هم مشکل موندن رنگ لیبیل با کنار بردن موس از روی برنامه از بین بره؟
ممنون میشم راهنمایی کنید . خودم که اصلا تا حالا به این موضوع اهمیت ندادم ولی الان چون برنامه لیبیل زیاد داره برنامه شلوغ میشه و بعدا خودمم نمیفهم چیکار کردم

یا علی (ع)

[بهروز عباسی]

چون برنامه لیبیل زیاد داره برنامه شلوغ میشه
لیبل ها رو به صورت آرایه ای استفاده کن

[بهروز عباسی]

یه کد از غیب نوشتم(بدون vb) اگه خطارفت ببخشید
این کد رو در MouseMove آرایه لیبلی با نام lbl بنویس این فقط یه راهه نه بیشتر
For i = 0 To lbl.UBound
lbl(i).FontUnderline = 0
Next
lbl(Index).FontUnderline = 1

[سید حمید حق پرست]

ممنون از شما

خب الان اینجوری برای رویداد کلیک لیبلها چکار کنم

بازم تشکر


یا علی (ع)

[بهروز عباسی]

Private Sub lbl_Click(Index As Integer)
Select Case Index
Case 0: 'dastor barsy lbl ba index 0 masalan namayesh pyam
Case 1:
'case n:
End Select
End Sub

[سید حمید حق پرست]

سلام علیکم

اخر بعد از سه ساعت تونستم بسازمش . اینقد کد نوشتم و پاک کردم تا اخرش نوشتم (راحت بود)
از دوست عزیز بهروز عباسی (http://barnamenevis.org/member.php?231262-%D8%A8%D9%87%D8%B1%D9%88%D8%B2-%D8%B9%D8%A8%D8%A7%D8%B3%DB%8C) هم تشکر که خیلی کمک کردن:قلب:
just4froum (http://barnamenevis.org/member.php?211054-just4froum) عزیز هم ممنونم که به تاپیک توجه کردن:قلب:

اینم برنامه ببینید چطوره و ایا خوبه ؟

جناب بهروز عباسی (http://barnamenevis.org/member.php?231262-%D8%A8%D9%87%D8%B1%D9%88%D8%B2-%D8%B9%D8%A8%D8%A7%D8%B3%DB%8C)و just4froum (http://barnamenevis.org/member.php?211054-just4froum)سورسشو خواستید پ.خ بدید:قلب: (http://barnamenevis.org/member.php?211054-just4froum)
سورسو واسه این نمیتونم بزارم چون در ستاپ ساز بکار میبرم . بعد از تموم شدنش قرار میدم حتما تا همه استفاده کنن
برنامه رو ببینید و بفرمایید چطوره:بوس:

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

بازم ممنون

یا علی (ع)

[بهروز عباسی]

از دوست عزیز بهروز عباسی (http://barnamenevis.org/member.php?231262-%D8%A8%D9%87%D8%B1%D9%88%D8%B2-%D8%B9%D8%A8%D8%A7%D8%B3%DB%8C) هم تشکر که خیلی کمک کردن
خواهش میکنم وظیفه است.

جناب هروز عباسی (http://barnamenevis.org/member.php?231262-%D8%A8%D9%87%D8%B1%D9%88%D8%B2-%D8%B9%D8%A8%D8%A7%D8%B3%DB%8C)و
قربونت دستت اسم مارو درست کن:لبخند: سورس هم بفرست ممنون.

همه موفق باشند.:کف:

[بهروز عباسی]

اینم سایه http://www.vb-helper.com/howto_over_label_shadow_complex.html

[just4froum]

just4froum (http://barnamenevis.org/member.php?211054-just4froum) عزیز هم ممنونم که به تاپیک توجه کردن:قلب:


خواهش می کنم وظیفه بود ما که کاری نکردیم:خجالت:.

بفرمایید من اینو برای سایه دار کردنش پیدا کردم فکر کنم بدرد بخوره فقط از PictureBox استفاده شده.

Private Sub Command1_click()
Dim x As Long, y As Long
For x = 0 To Pic.ScaleWidth - 1
For y = Pic.ScaleHeight - 1 To 0 Step -1
If Pic.Point(x, y) = vbBlack Then Call sh(Pic, x, y)
Next y
Next x

End Sub

Private Sub Form_Load()
Pic.ScaleMode = 3
Pic.BackColor = vbWhite
Pic.AutoRedraw = True
Pic.BorderStyle = 0
Me.BackColor = vbWhite
Pic.Left = 0
Pic.Top = 0
Pic.Print "Just4Froum"
End Sub

Private Sub sh(Pic As PictureBox, x As Long, y As Long): On Error Resume Next
If Pic.Point(x - 1, y) = vbWhite Then Pic.PSet (x - 1, y), &H8000000F
'If pic.Point(x - 2, y) = vbWhite Then pic.PSet (x - 2, y), &H8000000F

If Pic.Point(x + 1, y) = vbWhite Then Pic.PSet (x + 1, y), &H8000000F
'If pic.Point(x + 2, y) = vbWhite Then pic.PSet (x + 2, y), &H8000000F

If Pic.Point(x, y + 1) = vbWhite Then Pic.PSet (x, y + 1), &H8000000F
If Pic.Point(x, y + 2) = vbWhite Then Pic.PSet (x, y + 2), &H8000000F
End Sub

[بهروز عباسی]

خدایش این یکی حرف نداره یه User Control همراه سورس اگه بد بود بگو بهترشو بذارم

[سید حمید حق پرست]

ممنون . زحمت کشیدید

اون عکس که گذاشتم ماله دلفی بود . کد لفیشو میدونید؟
شاید بشه به وی بی تبدیل کرد

بازم تشکر:قلب:


یا علی (ع)

[بهروز عباسی]

اون عکس که گذاشتم ماله دلفی بود . کد لفیشو میدونید؟
شاید بشه به وی بی تبدیل کرد
در دلفی خیلی راحت میشه چنین کارایی کرد اما برای تبدیلش به vb به زحمتش نمی ارزه .

[سید حمید حق پرست]

ممنون از وقتی که واسه تاپیک گذاشتید
بی خیالش میشم . حالا باشه یا نباشه که ایراد نداری:قلب:

فقط اگه میتونید یه راهنمایی در مورد کد ریسورس برای پویا کردنش بگید
چون شاید کاربری که از ستاپ ساز استفاده کنه بخواد 30 فایل قرار بده:گیج:

اگر هم وقت ندارید باز هم ممنون:بوس:

یا علی (ع)

[بهروز عباسی]

برای پویا کردن فکر کنم باید اون رکورد های که برای ذخیره داده ها در نظر گرفته شدن رو به صورت آرایه ای پیاده سازی کنیم (بذا سورس رو پیدا کنم و ببینم)
من خودم هم به فکر ساخت ستاپ ساز بودم (پیشنهادش هم آقای جمشیدی در یکی از تاپیک های شما که به ریسورس می شد داد) یه مدت روش کار کردم به جای هم رسیدم اما متاسفانه پروژه روی دسکتاپ بود منم ویندوز عوض کردم و پرید و در کل ازش همون فایلی که گذاشتم باقی بود.

[بهروز عباسی]

در کل ایستا بودن برنامه به خاطر موارد زیر در هردو قسمت برنامه هست؟ اگه بتونی اینها رو یه کاری بکنی تمومه (من الان نمیتونم خستم اما روی سایت هستم اگه بخوای )

Public Type FileAddress
FADD_1 As String
FADD_2 As String
FADD_3 As String
FADD_4 As String
End Type
Public Type FileData
FData_1 As String
FData_2 As String
FData_3 As String
FData_4 As String
End Type
Public Type FileName
FName_1 As String
FName_2 As String
FName_3 As String
FName_4 As String
End Type

[بهروز عباسی]

فقط اگه میتونید یه راهنمایی در مورد کد ریسورس برای پویا کردنش بگید
اگه موافق باشی من می گم یک تاپیک تازه ایجاد کن که مطالب درهم نباشن