کنترل common dialog

[mohammad1314]

سلام
یک سوال دررابطه با کنترل common dialog دارم.:متفکر:
چطوری میتونم کادر محاوره ای show font رو تو combo بزارم . (دقیقا مثل نرم افزار word) :متفکر:
با تشکر:متفکر:

[sr2m72]

سلام
یک سوال دررابطه با کنترل common dialog دارم.:متفکر:
چطوری میتونم کادر محاوره ای show font رو تو combo بزارم . (دقیقا مثل نرم افزار word) :متفکر:
با تشکر:متفکر:

اين كه ربطي به common dialog نداره.
نام فونت ها رو توي combo قرار بدين بعد با اين كد ميتونيد فونت رو تغيير بدين:
Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub

[mohammad1314]

کلی فونت هست . نمی تونم که همش رو بنویسم.
باید یک راهی باشه که هر چی فونت داری رو تو combo بزاره.حالا نمی دونم از طریق commond dialog یا یک روش دیگه.

[sr2m72]

کلی فونت هست . نمی تونم که همش رو بنویسم.
باید یک راهی باشه که هر چی فونت داری رو تو combo بزاره.حالا نمی دونم از طریق commond dialog یا یک روش دیگه.

با اين ميتونيد فونت ها رو توي combo ليست كنيد:
Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
End Sub