لیست باکس و کاربردها

[SH_Zahra]

سلام
یک سوال دارم در مورد سرچ در لیست باکس

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

در لیست مون تعدادی نام و اطلاعات داریم به این شرح:

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

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

به اینصورد در لیبیل نشون بده :
مینا
محمود
مودم
مهدی

_________________________________________

آقای زواری یه سری کد دادن که من الان می زارمشون. :flower:

[SH_Zahra]

'This project needs a ListBox, named List1 and a TextBox, named Text1
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
'Add some items to the listbox
With List1
.AddItem "Computer"
.AddItem "Screen"
.AddItem "Modem"
.AddItem "Printer"
.AddItem "Scanner"
.AddItem "Sound Blaster"
.AddItem "Keyboard"
.AddItem "CD-Rom"
.AddItem "Mouse"
End With
End Sub
Private Sub Text1_Change()
'Retrieve the item's listindex
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

[SH_Zahra]

سوال دوم :برنامه ای بنویسید که شامل یک کادر لیست یک کادر متنی و یک عدد دکمه باشد سپس عملیات زیر را انجام دهد.
الف)در ابتدای اجرای کادر متن دارای تمرکز گردد.
ب) با فشار کلید addاسم تایپ شده در کادر متن به لیست اضافه شود .
نکته::: همچنین باید اسامی اضافه شده به لیست به ترتیب حروف الفبا مرتب شده باشد.

[SH_Zahra]

سوال سوم: فرمی طراحی کنید که شامل یک عدد لیست یک عدد کادر متنی و دو عدد دکمه فرمان باشد سپس عملیات زیر را انجام دهید .
الف)با فشار دادن دکمه addاگر از لیست عنصر انتخاب شده باشد اسم وارد شده در کادر متنی(text) قبل از اسم انتخاب اضافه شود در غیر اینصورت (در صورت عدم انتخاب ) به آخر لیست اضافه شود.
ب) با فشار دادن deleteاگر عنصری از لیست انتخاب شده باشد آن را حذف کند در غیر اینصورت بوسیله یک ÷یام کاربر را جهت انتخاب عنصر از لیست راهنمایی کند .

[SH_Zahra]

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

الف)در ابتدای اجرا 10 عدد نام به لیست اضافه شود ؟
ب)و روی فرم کلیدی قرار دهید که با فشار آن عناصر list1به list2 متنقل شود؟
ج) روی فرم کلیدی قرار دهید که با فشار آن فقط عنصر انتخابی از list1به list2 انتقال داده شود؟



Private Sub Command1_Click()
Dim i, c As Integer
Dim s As String
c = List1.ListCount
For i = 1 To c
s = List1.List(0)
List2.AddItem s
List1.RemoveItem (0)
Next

End Sub

Private Sub Command2_Click()
List1.AddItem List2.Text
End Sub

Private Sub Form_Load()
'Add some items to the listbox
With List1
.AddItem "Computer"
.AddItem "Screen"
.AddItem "Modem"
.AddItem "Printer"
.AddItem "Scanner"
.AddItem "Sound Blaster"
.AddItem "Keyboard"
.AddItem "CD-Rom"
.AddItem "Mouse"
End With
End Sub


کدهای بالا را در فرم کپی کنید
فرم احتیاج به دو list و دو command داره

البته اگه اشتباه نوشتم تصیحشو بگید :flower: :mrgreen:

[SH_Zahra]

سوال پنجم

فرمی طراحی کنید که شامل دو عدد کادر متنی و یک لیست باکس باشد
الف) با فشار کلید winner یک اسم به طور تصادفی از لیست انتخاب شود و در کادر متن نمایش داده شود؟

[SH_Zahra]

سوال ششم:
فرمی طراحی کنید که یک لیست باکس یک داریو لیست باکس و یک فایل لیست باکس و یک ایمیج باشد.

الف)با انتخاب درایو ی از کامپیوتر و فایل مورد نظر درفایل لیست باکس نام عکسهای ان پوشه نشانداده شود سپس عکس مربوطه در image نشان دهد آنگاه با کلیک بر رویimage آن تصویر را بر روی فرم نمایش دهید؟
نکته::: حتما عکس را مطابق اندازه فرم طراحی کنید.
ب)نام هر عکس که بر روی فرم نمایش داده شد در list1 نشان دهد.؟

[SH_Zahra]

سوال ششم:
فرمی طراحی کنید که یک لیست باکس یک داریو لیست باکس و یک فایل لیست باکس و یک ایمیج باشد.

الف)با انتخاب درایو ی از کامپیوتر و فایل مورد نظر درفایل لیست باکس نام عکسهای ان پوشه نشانداده شود سپس عکس مربوطه در image نشان دهد آنگاه با کلیک بر رویimage آن تصویر را بر روی فرم نمایش دهید؟
نکته::: حتما عکس را مطابق اندازه فرم طراحی کنید.
ب)نام هر عکس که بر روی فرم نمایش داده شد در list1 نشان دهد.؟



Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "/" + File1.FileName)
End Sub

Private Sub Form_Click()
List1.AddItem Form1.Caption
End Sub

تا اینجا میشه عکس را نمایش داد اما مابقی سوال که میگه اگه کلیک کردم روی عکس زمینه فرم همان عکس بشه و نام فرم به نام تصویر تغییر کنه
و قسمت بعد خواسته نام فرم که مرتبا با نام عکس ÷س زمنیه عوض میشه در لیست درج بشه

را من بلد نبود شما اضافه کنید لطفا؟ :flower:

[SH_Zahra]

یعنی توی این همه برنامه نویس یکی نیست یه کمکی کنه :strange:

[SH_Zahra]

چقدر که شما به ادم کمک میکنید :kaf: وای شرمنده شدم وای وای :cry:

[PalizeSoftware]

چقدر سؤال مطرح شده :D:

شما باید دانشجوی کامپیوتر باشید، آخه سوالها خیلی کلاسی هست.
اگه هنوز منتظر جواب هستید بفرمائید تا پاسخ بدم.
sunglass:

[SH_Zahra]

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

[PalizeSoftware]

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

[PalizeSoftware]

دوست عزیز این هم برنامه مربوط به تعویض تصاویر
موفق باشید.

[SH_Zahra]

به به دستت درد نکنه قربانت

خیر ببینی

[SH_Zahra]

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

[SH_Zahra]

یکم بقیه اعضا کدنویسان یاد بگیرن .............بلاخره یکی منه مبتدی را تحویل گرفت (شکلک خنده)

[PalizeSoftware]

با سلام
ما همگی روز اول از صفر شروع کردیم تا به اینجا رسیدیم. اگه می‌گم اینجا نا اینکه چیزی بلد باشیم، بقول دوستمون علم کامپیوتر نمره 20 ندارد.
پس چه خوب هست که دست دیگران رو بگیریم.

دیگران کاشتند و ما خوردیم، ما بکاریم تا دیگران بخورند.

[SH_Zahra]

در قسمت فرم برای لیست 1

Private Sub Form_Load()
'Add some items to the listbox
With List1
.AddItem "Computer"
.AddItem "Screen"
.AddItem "Modem"
.AddItem "Printer"
.AddItem "Scanner"
.AddItem "Sound Blaster"
.AddItem "Keyboard"
.AddItem "CD-Rom"
.AddItem "Mouse"
End With
End Sub


در کامند یک انتقال کامل از لیست یک به دو
Private Sub Command1_Click()
Dim i, c As Integer
Dim s As String
c = List1.ListCount
For i = 1 To c
s = List1.List(0)
List2.AddItem s
List1.RemoveItem (0)
Next

End Sub

انتقال عناصر لیست 2 کاملا به لیست 1

Private Sub Command3_Click()
Dim h, c As Integer
Dim n As String
c = List2.ListCount
For h = 1 To c
n = List2.List(0)
List1.AddItem n
List2.RemoveItem (0)
Next
End Sub

حالا چطوری میشه عناصر را در موقع بازگشت به لیست 1 رنگی کرد؟؟؟؟؟؟
و بگیم اگر لیست یک عناصرش قرمز بود یکبار برگشت خورده
اگر ابی بود 2 بار برگشت خورده به لیست 1
اگر سبز بود 3 بار برگشت خورده به لیست 1
این کار امکان پذیر با لیست باکس هست یا خیر؟

[SH_Zahra]

با سلام
ما همگی روز اول از صفر شروع کردیم تا به اینجا رسیدیم. اگه می‌گم اینجا نا اینکه چیزی بلد باشیم، بقول دوستمون علم کامپیوتر نمره 20 ندارد.
پس چه خوب هست که دست دیگران رو بگیریم.

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

[SH_Zahra]

پالیز جان توی برنامه هایی که برام فرستادی من برنامه show image را با برنامه replace image را با هم توی فرم قرار دادم و کل کدهاش اینجوری میشه

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Dim tPath As String

tPath = File1.Path
If Right(tPath, 1) <> "\" Then
tPath = tPath & "\"
End If
Image1.Picture = LoadPicture(tPath + File1.FileName)
List1.AddItem tPath + File1.FileName
End Sub

Private Sub Command1_Click()
Dim tImage As Picture
Set tImage = Image1.Picture
Image1.Picture = Image2.Picture
Image2.Picture = tImage
End Sub

Private Sub Image3_DragDrop(Source As Control, X As Single, Y As Single)
Image3.Picture = Source.Picture
End Sub


یک قسمتی داره که اگه نباشه بازم برنامه اجرا میشه


If Right(tPath, 1) <> "\" Then
tPath = tPath & "\"
End If

این قسمت را میگم منظور از اینکه tpath را مخالف "\" گرفتی چیه ؟


و د راین قسمت :

Image1.Picture = LoadPicture(tPath + File1.FileName)
List1.AddItem tPath + File1.FileName
End Sub
بنویسیم

Image1.Picture = LoadPicture(tPath + "\" + File1.FileName)
List1.AddItem tPath + File1.FileName
end sub

بازم برنامه اجرا میشه !!!!!!!

[PalizeSoftware]

دوست عزیز این کد به این خاطر است که اگر شما از ریشه اصلی یک درایو تصویری را انتخاب کنید، چون بصورت C:\ برگشت داده می‌شود لذا سبب رخ دادن خطا می‌شود ولی در پوشه‌ها کاراکتر \ در انتها وجود ندارد و ما برای درستی مسیر آنرا به انتهای مسیر اضافه می‌کنیم

[PalizeSoftware]

حالا چطوری میشه عناصر را در موقع بازگشت به لیست 1 رنگی کرد؟؟؟؟؟؟
و بگیم اگر لیست یک عناصرش قرمز بود یکبار برگشت خورده
اگر ابی بود 2 بار برگشت خورده به لیست 1
اگر سبز بود 3 بار برگشت خورده به لیست 1
این کار امکان پذیر با لیست باکس هست یا خیر؟





اینم برنامه این قسمت. در لیست‌باکس امکان رنگی کردن آیتم‌ها وجود دارد و در حالت ساده با امکاناتی که VB به ما می‌دهد فقط می‌توان رنگ همه را انتخاب کرد و نه تک تک

[SH_Zahra]

اینم برنامه این قسمت. در لیست‌باکس امکان رنگی کردن آیتم‌ها وجود دارد و در حالت ساده با امکاناتی که VB به ما می‌دهد فقط می‌توان رنگ همه را انتخاب کرد و نه تک تک


مرسی ممنونم خیلی لطف کردی واقعا ممنونم.خدا خیرت بده
یه سوال دیگه دارم
:
Private Sub Command2_Click()
Static Count As Byte

Dim h, c As Integer
Dim n As String
c = List2.ListCount
For h = 1 To c
n = List2.List(0)
List1.AddItem n
List2.RemoveItem (0)
Next

If Count = 0 Then
List1.ForeColor = QBColor(4)
ElseIf Count = 1 Then
List1.ForeColor = QBColor(1)
ElseIf Count = 2 Then
List1.ForeColor = QBColor(2)
End If
Count = Count + 1
End Sub

این قسمت منظور از این جمله چیه ؟
Count = Count + 1
کانت چیه شمارش میکنه تعدا دفعات برگشتی را ؟!!!!!!

[SH_Zahra]

دوست عزیز این کد به این خاطر است که اگر شما از ریشه اصلی یک درایو تصویری را انتخاب کنید، چون بصورت C:\ برگشت داده می‌شود لذا سبب رخ دادن خطا می‌شود ولی در پوشه‌ها کاراکتر \ در انتها وجود ندارد و ما برای درستی مسیر آنرا به انتهای مسیر اضافه می‌کنیم

اهان حالا فهمیدم
عجب ادم باید خیلی حواسش جمع باشه ....

بازم ممنونم

[PalizeSoftware]

این قسمت منظور از این جمله چیه ؟
Count = Count + 1
کانت چیه شمارش میکنه تعدا دفعات برگشتی را ؟!!!!!!
بله این قسمت برای شمارش دفعات برگشت به لیست 1 است که چون نوع متغیر Static معرفی شده با پایان یافتن کدهای Command2 مقدار این متغیر از بین نخواهد رفت و در برگشت بعدی یک واحد بدان اضافه خواهد شد.

[PalizeSoftware]

برنامه چاپ بر روی فرم به تعداد مقدار Text2

[SH_Zahra]

بله این قسمت برای شمارش دفعات برگشت به لیست 1 است که چون نوع متغیر Static معرفی شده با پایان یافتن کدهای Command2 مقدار این متغیر از بین نخواهد رفت و در برگشت بعدی یک واحد بدان اضافه خواهد شد.

درسته ......الان یه فکری به ذهنم رسید که این رنگها همیشه هر چند بار تغییر کنه .............الان امتحان کردم به هیچ طریقی نمیشه اینQBColor(4) مثل کانت اضافه یا کم کرد که شماره رنگ بالا و پایین بره

البته معلم ما اینجوری میگه استفاده کنید
List1.ForeColor = &H00C0FFC0&
اینم همون میشه
یا میشه از rgb هم استفاده کرد اما بازم نمیشه رنگ را توی حلقه تعریف کرد که هی عوض بشه

اگه بخواهیم تا ابد اینو هر چی کلیک می کنیم رنگی بشه حتما باید براش بنویسیم در غیر اینصورت نمیشه کاری کرد درسته ؟؟؟؟؟؟؟؟؟؟

[SH_Zahra]

برنامه چاپ بر روی فرم به تعداد مقدار Text2

وووووووووووووووای این خیلی عالیه من هر کاری کردم همش دو رنگ می زد خیلی عالیه

واقعا خوش به حالت از صمیم قلب برات آرزوی موفقیت دارم .........واقعا این خیلی خوبه










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

[PalizeSoftware]

دوست عزیز در برنامه چاپ بر روی فرم محدود به 15 رنگ است. یعنی چون از تابع QBColor‌استفاده شده می‌توان تعداد Text2 را نهایتا 15 وارد کرد. راه های دیگری برای بیش از این وجود دارد که مثلا بصورت تصادفی رنگ را انتخاب کند که دیگر محدود به 15 نباشد. این قسمت دیگه با شما. ببینم چکار می‌کنید.

[SH_Zahra]

وووووووووووووووای این خیلی عالیه من هر کاری کردم همش دو رنگ می زد خیلی عالیه

واقعا خوش به حالت از صمیم قلب برات آرزوی موفقیت دارم .........واقعا این خیلی خوبه










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

ببین به جای gbcolor(i) میشه نوشت

Me.ForeColor = RGB(100 * i, 2 * i * i, 30 * 3)
اینجوری یه طیف رنگی می تونه ایجاد کنه که تا 60 بار تکرار را انجام میده

تو حالت قبلی که برام زحمت کشیدی نوشتی میشد 15 باز نهایتا اجرا بشه

فکر کنم اگه بازم روش کار کنم بیشتر هم بشه

دستت واقعا درد نکنه خیلی لطف کردی

[PalizeSoftware]

خیر 60 بار به شما اجازه نمی‌ده. هر پارامتر از تابع Rgb می‌تواند بین 0 تا 255 باشد. به نظر شما100×60 مقدارش چند میشه؟ اعداد بیش از 255 همان 255 در نظر گرفته می‌شود

[SH_Zahra]

Private Sub Command1_Click()
Randomize Timer
Me.Cls
For i = 1 To Val(Text2.Text)
Me.ForeColor = RGB(232 * i, 2 * Rnd, 25 * Rnd) * Rnd
Print Text1.Text

Next

End Sub

اینو نوشتم طیف رنگی را مختلف تر میکنه تا 200 تا رنگ میده اما نمی دونم درسته یا نه

من دیسی شدم

[PalizeSoftware]

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

[SH_Zahra]

خیر 60 بار به شما اجازه نمی‌ده. هر پارامتر از تابع Rgb می‌تواند بین 0 تا 255 باشد. به نظر شما100×60 مقدارش چند میشه؟ اعداد بیش از 255 همان 255 در نظر گرفته می‌شود
کاملا درسته اما وقتی می زنم که مثلا 65 بار بزن همه رنگها متفاوته تا 60 ولی رنگ 61 با رنگ 1 مساوی میشه همینطور رنگ 62=رنگ 2 و دوباره تکرار میشه!
درسته صحبتهای شما کاملا درسته

[SH_Zahra]

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

چطوری میتونم وقتی print میکنه روی form به جای اینکه عمودی باشه افقی باشه یعنی روی محور xهاش تکرار بشه ؟

و یه سوال دیگه ممکنه که وقتی فرمان printمی دیم به جای اینکه بیاد 60 تا را افقی یا عمودی نشون بده اینجوری باشه
که وقتی به 3خ با ر تکرار در افقی رسید بیاد خط بعد زیر ان و 30 تای دوم را بنویسه

حالا اگه من تعداد را 70 تا زدم سه خط باشه که یکی 30 تا دومی 30 تا و سومی 10 تا روی فرم print کنه این آیا امکان داره ؟؟؟؟؟

و چطوری میشه فرم را ثابت نگه داشت


Form1.Height = 4000
Form1.Width = 5000
روی این مختصات ثابت بمونه حالا کاربر موقع اجرا هر کاری کنه نتونه فرم را بزرگتر کنه ؟

[SH_Zahra]

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

[PalizeSoftware]

برای ثابت موندن اندازه فرم:


Private Sub Form_Resize()
Form1.Height = 4000
Form1.Width = 5000
End Sub



برای اینکه دنبال هم چاپ بشه:


Print Text1.Text;


برای تقسیم بندی:


Private Sub Command1_Click()
Me.Cls
For i = 1 To Val(Text2.Text)
Me.ForeColor = QBColor(i)
Print Text1.Text;
If i Mod 10 = 0 Then
Print
End If
Next
End Sub

[SH_Zahra]

برای ثابت موندن اندازه فرم:


Private Sub Form_Resize()
Form1.Height = 4000
Form1.Width = 5000
End Sub



برای اینکه دنبال هم چاپ بشه:


Print Text1.Text;


برای تقسیم بندی:


Private Sub Command1_Click()
Me.Cls
For i = 1 To Val(Text2.Text)
Me.ForeColor = QBColor(i)
Print Text1.Text;
If i Mod 10 = 0 Then
Print
End If
Next
End Sub


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

[SH_Zahra]

من از پالیز عزیز خیلی ممنونم که کمکم کرد (شکلک گل )

[SH_Zahra]

یه سوال دیگه می خوام عنصری از عناصر لیست باکس را حذف کنم
الف: اگه عنصری را انتخاب نکرده باشم پیغام خطا بده
ب: اگه عنصری را انتخاب کرده باشم و حذف کردم تعداد حذفکردن عناصر را از لیست به من در برچسبی نشان بده (یعنی من 10 تا عنصر در لیستم دارم و اگه 3 تا را حذف کردم توی برچسب بنویسه 3 تا و اگه بعد 1 دیگه حذف کردم توی برچسب بنویسه 4 تا )
؟؟؟؟ امتحان من تموم شد اما سوال های من تموم نشدن

[vb341]

ببخشید ولی اینا که خواستین پروژه درسیه ؟

[PalizeSoftware]

سلام
ببینید خودشه.

[SH_Zahra]

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

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

مرسی از پاسخ شما

روز خوش

[SH_Zahra]

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

چند تا سوال دارم :

Private Sub Command1_Click()
Static DeletedCount As Integer

If List1.ListIndex = -1 Then
MsgBox "You must select one or more items."
Else
DeletedCount = DeletedCount + 1
List1.RemoveItem List1.ListIndex
Label2.Caption = DeletedCount & " items has been deleted."
End If
End Sub

این قسمت برنامه :
DeletedCount این اسم در واقع یک متغییر که شما معرفی کردید؟درسته
Static که قبل از DeletedCount نوشتید به چه مبنایی یعنی چی و کاراش چیه ؟
اینجا که گفتید اگه لیست اندیکس مساوی با -1 شد آنگاه پیغام بده در واقع -1 همون کد انتخاب نکردنه ؟



سوال زیاد کردم شرمنده

[SH_Zahra]

یه سوال دیگه این امکان داره که توی لیست باکس با کلیک روی هر عنصر وارد یه فرم دیگه بشیم یا اصلا یه کاری برامون انجام بده (در واقع کاری مثل لینک برامون انجام بده!)؟

[SH_Zahra]

یه سوال دیگه یک کلید می خوام بزارم روی فرمم که با هر بار کلیک عکسی را (توی image) نشون بده

سوال اینجاست که میگه رد پای عکس های انتخابی را در لیست باکس به طور متوالی نشان دهد؟
(یعنی اگه من عکس 1 را نشان دادم توی لیست باکسم آدرس اون عکس را نشان بده بعد که عکس دو را آوردم دومین عنصر لیست باکسم آدرس عکس دومم باشه و این همینجور ادامه داشته باشه!!!)

[SH_Zahra]

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

میشه کنارش یه اسکورل بار بزارم و رنگشو عوض کنم ؟(یه دفعه به ذهنم رسید هنوز امتحا نکردم)

[PalizeSoftware]

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

چند تا سوال دارم :

Private Sub Command1_Click()
Static DeletedCount As Integer

If List1.ListIndex = -1 Then
MsgBox "You must select one or more items."
Else
DeletedCount = DeletedCount + 1
List1.RemoveItem List1.ListIndex
Label2.Caption = DeletedCount & " items has been deleted."
End If
End Sub

این قسمت برنامه :
DeletedCount این اسم در واقع یک متغییر که شما معرفی کردید؟درسته
Static که قبل از DeletedCount نوشتید به چه مبنایی یعنی چی و کاراش چیه ؟
اینجا که گفتید اگه لیست اندیکس مساوی با -1 شد آنگاه پیغام بده در واقع -1 همون کد انتخاب نکردنه ؟


سلام دوست عزیز
در نمونه برنامه آمده، ما نیاز به یه متغیر داریم که تعداد دفعات حذف آیتم‌ها رو در خودش نگه داره. یعنی با هر بار کلیک بر روی دکمه حذف یک واحد بدان اضافه گردد. برای اینکار میشد یک متغیر بصورت عمومی در سطح بدنه فرم (در بخش General از فرم) قرار داد که در همه توابع و رویدادهای فرم شناخته شده و متعبر باشد. راه دیگه‌ای که به پنهان‌سازی اطلاعات مشهور هست، معرفی متغیر در ناحیه‌ای است که فقط در همان ناحیه قابل دسترسی باشد و از انتساب مقادیر ناخواسته که ممکن است در اثر تایپ اشتباه یا ... رخ دهد جلوگیری کند. برای اینکار معرفی متغیر با کلمه کلیدی Static در بدنه یک تابع یا رویداد سبب می‌شود که مقدار متغیر بعد از پایان یافتن اجرای روال مربوطه از بین نرفته و چنانچه دوباره به اجرای روال بپردازیم، مقدار متغیر همان مقداری است که در لحظه خروج از روال داشتیم.

درصورتیکه هیچ آیتمی از لیست‌باکس انتخاب نشده باشد، مقدار خاصیت ListIndex حاوی 1- خواهد بود.
موفق باشید

[PalizeSoftware]

یه سوال دیگه این امکان داره که توی لیست باکس با کلیک روی هر عنصر وارد یه فرم دیگه بشیم یا اصلا یه کاری برامون انجام بده (در واقع کاری مثل لینک برامون انجام بده!)؟

بله فقط کافیه که توی رویداد Click از لیست‌باکس ببینید که کدام آیتم انتخاب شده و بعد هر کاری که خواستید انجام بدید.

[PalizeSoftware]

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

میشه کنارش یه اسکورل بار بزارم و رنگشو عوض کنم ؟(یه دفعه به ذهنم رسید هنوز امتحا نکردم)
خیلی راحت. از لیست خصوصیات مشخص کنید.

[SH_Zahra]

سلام دوست عزیز
در نمونه برنامه آمده، ما نیاز به یه متغیر داریم که تعداد دفعات حذف آیتم‌ها رو در خودش نگه داره. یعنی با هر بار کلیک بر روی دکمه حذف یک واحد بدان اضافه گردد. برای اینکار میشد یک متغیر بصورت عمومی در سطح بدنه فرم (در بخش General از فرم) قرار داد که در همه توابع و رویدادهای فرم شناخته شده و متعبر باشد. راه دیگه‌ای که به پنهان‌سازی اطلاعات مشهور هست، معرفی متغیر در ناحیه‌ای است که فقط در همان ناحیه قابل دسترسی باشد و از انتساب مقادیر ناخواسته که ممکن است در اثر تایپ اشتباه یا ... رخ دهد جلوگیری کند. برای اینکار معرفی متغیر با کلمه کلیدی Static در بدنه یک تابع یا رویداد سبب می‌شود که مقدار متغیر بعد از پایان یافتن اجرای روال مربوطه از بین نرفته و چنانچه دوباره به اجرای روال بپردازیم، مقدار متغیر همان مقداری است که در لحظه خروج از روال داشتیم.

درصورتیکه هیچ آیتمی از لیست‌باکس انتخاب نشده باشد، مقدار خاصیت ListIndex حاوی 1- خواهد بود.
موفق باشید
اهان .....خیلی ممنونم از توضیحاتی که دادید

لطف کردین

[SH_Zahra]

بله فقط کافیه که توی رویداد Click از لیست‌باکس ببینید که کدام آیتم انتخاب شده و بعد هر کاری که خواستید انجام بدید.


حتما امتحان میکنم ببینم پی میشه

[SH_Zahra]

بله فقط کافیه که توی رویداد Click از لیست‌باکس ببینید که کدام آیتم انتخاب شده و بعد هر کاری که خواستید انجام بدید.


حتما امتحان میکنم ببینم چی میشه