Ucitavanje teksta

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo moj projekat, kad ga skinete, napisite kod u njemu. Tamo se nalaze i objasnjenja.
http://www.speedyshare.com/944173146.html


Unaprijed hvala!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Posto niko nije, red je da ja odgovorim:
Za nasa slova moras koristiti RichTextBox.

Kod za prvu formu je ovaj:
Private Sub Label1_Click() Form2.Show Unload Me End Sub Private Sub Label2_Click()     Form2.Show End Sub

Kod za drugu formu je ovaj:
Private Sub Form_Load()     RichTextBox1.LoadFile App.Path & "\tekst2.rtf", rtfRTF End Sub
Evo i ispravljeni i dopunjeni kod:
[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hvala
taj dio sam znao, samo kako sad da promijenim font i boju fonta u RichTextBox1?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uradi to preko Worda ovako:
Option Explicit     Dim imefajla As String Dim wordApp As Object Dim wordDoc As Object Private Sub Command1_Click()    Set wordApp = CreateObject("Word.Application")        imefajla = App.Path & "\proba.doc"        Set wordDoc = wordApp.Documents.Open(imefajla)   End Sub Private Sub Form_Unload(Cancel As Integer)    wordDoc.Close    wordApp.Quit    Set wordApp = Nothing End Sub

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ovaj kod, kolko sam ja razumio, otvara Word kao posebnu aplikaciju, a meni treba da mi ucita tekst iz wordovog dokumenta, a da pri tom tekst bude formatiran