Keskustelu: Ohjelmointikysymykset: VB6: Teksti tiedoston avaus

Option Explicit
' Määritellään muuttaja, johon tallennetaan
' kuvan tiedostonimi ja saantipolku.
Dim kuva As String
Private Sub a_Click()
    ' Avataan tiedoston avausikkuna.
    CommonDialog1.ShowOpen
    ' Sijoitetaan muuttujaan tieto,
    ' minkä kuvatiedoston käyttäjä valitsi.
    kuva = CommonDialog1.FileName
    ' Ladataan PictureBox-objektiin kyseinen kuva.
    editori = Load(kuva)
    ' Jos ohjelmaikkuna on normaali (ei minimoitu
    ' eikä maksimoitu), muutetaan ohjelmaikkunan
    ' kokoa vastaamaan avatun kuvan kokoa.
    If Form1.WindowState = vbNormal Then
        Form1.Height = editori.Height + 700
        If (editori.Width + 100) < 2000 Then
            Form1.Width = 2000
        Else
            Form1.Width = editori.Width + 100
        End If
    End If
End Sub

Private Sub avaa_tiedosto(Optional polku As String, Optional uuteen As Integer)
 Dim sFile As String
 'polku-muuttujasta lainasmerkit pois
 polku = Replace(polku, """", "")

    If ActiveForm Is Nothing Then uusiformi  'jos ei o formii ni avataa uus
        If polku = "" Then

            With CommonDialog
                .DialogTitle = "Open"
                .CancelError = False
                .Filter = "Tekstitiedostot (*.txt)|*.txt|HTML-tiedostot (*.htm *.html)|*.htm*|PHP-tiedostot (*.php)|*.php*|Kaikki tiedostot (*.*)|*.*|"
                .ShowOpen
                If Len(.FileName) = 0 Then
                    Exit Sub
                End If
                tyyppi = 1
                sFile = .FileName
            End With
            ActiveForm.teksti.LoadFile sFile
            ActiveForm.Caption = sFile
            ActiveForm.teksti.ToolTipText = sFile

        Else
            ActiveForm.teksti.LoadFile polku
            ActiveForm.Caption = polku
            ActiveForm.teksti.ToolTipText = polku
   End If
End Sub