Eddig tneveztnk egy kt dolgot pl a richtextbox ot RtfText

Common dialog vezrl, egy blakban klnbz dolgokat tud kezelbni bettip, ments stb..
+windows os help fileok

komponensek kz(microsoft common dialog 6.0 (porject/componenet)

!!!elmleti krds, hogy pl ismertessk a common dialog vezlrt


megnyits funkci:
elhelyezzk a frm szovegszerk ablakba
elnevezzk ennek:codCommonDialog

Toolbar1, button clicket programozzuk(fent lltjuk be)

Filter tulajdonsg: milyen tip fjlokat listzzon, mik kzl tudjunk tallzni


Case "Open"
  codCommonDialog.Filter = "RTF fjlok|*.rtf"
  codCommonDialog.ShowOpen
   If codCommonDialog.FileName <> "" Then
    LoadNewDoc
   ActiveForm.RtfText.LoadFile (codCommonDialog.FileName)
   End If
Ments

  Case "Save"
   codCommonDialog.Filter = "RTF fjlok|*.rtf"
   codCommonDialog.ShowSave
    If codCommonDialog.FileName <> "" Then
   ActiveForm.RtfText.SaveFile (codCommonDialog.FileName)
   End If
Nyomtats
 Case "Print"
   codCommonDialog.ShowPrinter

Vglap tma:
Clipboard.SelText(ActiveForm.RtfText.SelText)
trlni is kell,
ActiveForm.rtfText.SelText=""

msols:
Clipboard.SelText(ActiveForm.RtfText.SelText)

beilleszts:
  Case "Paste"
    ActiveForm.RtfText.SelText = Clipboard.GetText
Dlt
 
Case "Bold"
dlt tulajdonsgot tagadjuk gy egyszer dlt egyszer nem ha rnyomkodunk..

    ActiveForm.RtfText.SelBold = Not ActiveForm.RtfText.SelBold
ezzel a gobot frisstjk
    Button.Value = IIf(ActiveForm.RtfText.SelBold, tbrPressed, tbrUnpressed)

Most azt kell megcsinlni, hogy ha nem, vastag a szveg valahol akkor kiszedje a benyomdst a gombrl
r kell nyomni a frm dok ra kettt jobb fell
 fell tlltani rtftext jobb oldalon pedig SelChange et


ELMLET!!!:
toolbar ismertetse,fontos lerni majd!!:
a toolbarnak van egy buttons gyjtemnye


Private Sub RtfText_SelChange()
FrmSzovegSzerk.Toolbar1.Buttons("Bold").Value = IIf(RtfText.SelBold, tbrPressed, tbrUnpressed)
End Sub


underline s italicra u.a. csak ahol az elznl bold volt most italic meg underline kell



balra igazts

frm szovegszerkbe ezt logikusan:

 Case "Left"
    ActiveForm.RtfText.SelAlignment = rtfLeft
    Button.Value = tbrPressed
    Toolbar1.Buttons("Center").Value = tbrUnpressed
    Toolbar1.Buttons("Right").Value = tbrUnpressed


Toolbar vezrl ismertets: buttons gyjtemny(nyomgombok), az egyes nyomgombok a tbrPressed, Unpressed stbb

Valamirt beragadtak, majd kiderl mirt..

betesznk kt lenyl listt(juh)
toolbar nl jobb gomb, properties a paste utn
megvltoztatjuk  a 11. gonmbot  tbrPlaceholderr  a szlessge 5000

oddatesznk combobox vezrlt az egyik pici a msik hoszabb

cboBetuStilus
cboBetuMeret
a betu meretnel a lista tulajdonsgot feltltk kzzel 

MDI Form Load(frm szovegszerk mdi form load rszbe rjuk be hogy fdeltltse a msikat a teleptett betkkel

deklarlunk egy vltozt

Dim i As Integer
  For i = 0 To Screen.FontCount - 1
  cboBetuTipus.AddItem Screen.Fonts(i)
  Next i
  cboBetuTipus.ListIndex = 26
  CboBetuMeret.ListIndex = 2
  ActiveForm.RtfText.Font.Name = cboBetuTipus.Text
  ActiveForm.RtfText.Font.Size = Val(CboBetuMeret.Text)
  
ezeket kln klln elrakni a lenyl listk klikkjhez

ActiveForm.RtfText.SelFont.Name = cboBetuTipus.Text
  ActiveForm.RtfText.SelFont.Size = Val(CboBetuMeret.Text)
  
  








color:
Case "Color"
    codCommonDialog.ShowColor
     ActiveForm.RtfText.SelColor = codCommonDialog.Color



valamirt nem oks, majd lesz belle ja  kv rra...
