سلام
ببخشد ولی تو این برنامه نمیتونم کاری کنم که برنامه اسم و رنگ هر اسم رو جداگونه تغییر بده نام و فونت همه لیست رو کامل عوض می کنه
تو این برنامه اگه در وارد کردن نام ها ، نام رو خالی بذارید ورود نام ها تمام می شود
دراین برنامه سه command button یه commondialog و یه listbox وجود دارد
کد برنامه :
کد:
Private Sub add_Click()
List1.Clear
Do
a = InputBox("enter name:")
List1.AddItem a
Loop Until a = ""
End Sub
Private Sub color_Click()
CommonDialog1.ShowColor
List1.ForeColor = CommonDialog1.color
End Sub
Private Sub font_Click()
On Error Resume Next
CommonDialog1.ShowFont
List1.FontName = CommonDialog1.FontName
List1.FontSize = CommonDialog1.FontSize
List1.FontBold = CommonDialog1.FontBold
End Sub