<quote>Det følgende program anvebder commondialog til at vælge en fil i åbning. Programmet er selv opbygget med en menu, hvor menupunktet Åbn... anvender en Commondialog til at vælge hvilken fil der skal åbens. Selve programmet til at læse filen findes ikke i Commondialog, den del skal du skrive selv, brug eksempelvis del følgene program til følgende program.
Inden dialogboksen vises på skærmen sættes en række properties: Filename og Filter.
Her programkoden:
Private Sub MnuÅben_Click( )
Dim filenavn As String
Dim Filenr As Interger
On Error GoTo IntetValgt
Åben.FileName = "*.ctf"
Åben.Filter = "Datafiler/*.ctf/Alle filer/*.*"
Åben.ShowOpen
If Len (filename) > 0 then
Screen.MousePointer = 11
Filenr = FreeFile
Open filename For Input As Filenr
txtEdit.Text = Input$ (LOF (Filenr), Filenr)
Close (Filenr)
Screen.MousePointer = =
End If
Exit Sub
IntetValgt:
Screen.MousePointer = 0
Msgbox "Der er ikke valgt en fil"
End Sub</quote>
Hvad med at tilføje koden til "Tips & Tricks"-sektionen?
Mvh.
Lars Haslev
Always Look On The Bright Side Of Life! :-)
*********************************