visual basic 6 vraagje

[Verwijderd]

het probleem is als volgt

ik heb een combobox en een rich text box op hetzelfde formulier.

ik wil dat ge als ge een font selecteerd in de combobox de geselecteerde tekst in de rich text box veranderd

ik breng de fonts die in de gebruikers map windows/fonts staan op deze manier in de combobox:

Private Sub Form_Load()
Dim Fonts
For Fonts = 0 To Screen.FontCount
cboFont.AddItem Screen.Fonts(Fonts)
Next
End Sub

dit werkt de fonts worden in de combobox getoont

nu wil ik dat door een font uit de combobox te selecteren de geselecteerde text in het rich text box veranderd
ik dacht het te doen op manier 1:

Private Sub cboFont_change()
Select Case cboFont
Case "System": txtWordProc.SelFontName = System
.....
End Select
End Sub

dit blijkt niet te werken

manier 2:

Private Sub cboFont_Change()
Select Case cboFont
Case cboFont.List(1): txtWordProc.SelFontName = "System"
.....
End Select
End Sub
(... = hier doe ik hetzelfde voor al de andere fonts)

ik denk niet echt dat het probleem bij de code ligt, die klopt volgens mij
het probleem ligt denk ik hier:

ik selecteer dus wat text die ik getypt heb in het rich text box
en dan klik in de combobox
op het moment dat ik op de combobox klik gaat de selectie verloren!
(dus de text die in tzwart staat omring (selectie) staat weer normaal nadat ik de combobox heb aangeklikt (niet meer geselecteerd)

ik geraak er nimeer aan uit
aub wat hulp.

ik hoop dat het duidelijk genoeg uitgelegd is
en pls kom ni af van gooi vb weg programmeer echt gebruik c ofzo.....

[elnino]

Gebruik de event _Click, omdat de event Change alleen iets doet wanneer je de tekst in de Combo zelf veranderd, (dus als je typt).

Daarnaast is het niet zo zinvol om voor ieder lettertype een Case aan te maken, gebruik gewoon List in combinatie met ListIndex (zie hieronder):

code:

Private Sub cboFont_Click()
   txtWordProc.SelFontName = cboFont.List(cboFont.ListIndex)
End Sub

txtWordProc = RTF-control
cboFont = Dropdownbox/combo

[Verwijderd]

THNX HET WERKT!!!

[Verwijderd]

kan ik op precies dezelfde wijze tewerk gaan om lettergrootte en letterkleur te wijzigen?
of moet er wat aangepast worden

kunt u daar ook wat voorbeeldjes van geven aub

[Exterazzo]

Op woensdag 19 september 2001 21:14 schreef ArDvArK het volgende:
kan ik op precies dezelfde wijze tewerk gaan om lettergrootte en letterkleur te wijzigen?
of moet er wat aangepast worden

kunt u daar ook wat voorbeeldjes van geven aub

jah, sorry hoor, maar kijk gewoon ff op MSDN daar staat alles wat je nodig hebt!

[Korben]

Maak:
Een listbox met als style Simple Combobox (aot Dropdown Listbox), met als naam bvb cmbFontSize

Code:

code:

Private Sub cmbFontSize_Click()
  txtWordProc.SelFontSize = Val(cmbFontSize.List(cmbFontSize.ListIndex)) '?
End Sub

Private Sub cmbFontSize_Change()
  txtWordProc.SelFontSize = Val(cmbFontSize.List(cmbFontSize.ListIndex))
End Sub

Ben alleen niet zeker over SelFontSize