Ole-Object

Det du vil have er en standart \"Pop Up\" Ikke ?

Som denne: http://home1.stofanet.dk/truti/pop_up1.jpg

Truti
ICQ: 72755522
HP: http://home1.stofanet.dk/truti/

Opret en CommonDialog sæt dens navn til: COMM_OpenSave1
Opret en Text1 på Form1
Opret en Command1 på Form1

Insæt følgende kode i Command1:
---------------------------------------
Private Sub Command1_Click()
    Dim i As Integer
    Dim thefile As String
   
    COMM_OpenSave1.DialogTitle = \"Her Skal du skrive hvad du vil have til at stå!\"
    COMM_OpenSave1.Filter = \"JPG|*.jpg\" \'Her angiver du hvilke fil typer din pruger må se!
    COMM_OpenSave1.Flags = cdlOFNFileMustExist + cdlOFNOverwritePrompt
    COMM_OpenSave1.ShowOpen
    thefile = COMM_OpenSave1.FileName
   
    \'Åbner Filen
    If thefile <> \"\" Then
        Form1.Text1(0).Text = \"\" & thefile
        Open thefile For Binary As #1
        Close #1
    End If
End Sub
---------------------------------------

Truti
ICQ: 72755522
HP: http://home1.stofanet.dk/truti/

Virker det selvom det er billedeformat og ikke tekst. Jeg prøver det lige i weekenden. Og ja det er netop sådan en boks. Så det tegner finno.
Takker indtil videre :-) tjekker lige om jeg kan få det til at virke, og så får du point, okki

I linie 6 kan du se hvad for nogle filer den skal loade!

Tak for points!

Truti