Keskustelu: Ohjelmointikysymykset: VB6: Vb-kysymys...

Anteexi, sattuisiko joku tietämään miten visual basicissa tehdään tallennusfunktio tai MsgBoxin tyyliin OK/Cancel sais toimiin...

Joox ->

Tallennux:

dim a as string, b as long
a="foobar"
b=33
open "foo.bar" for output as #1
 print #1, a
 print #1, b
close #1

MsgBoXXX:

dim a as integer
a = msgbox("heya sverige",vbokcancel,"öö")
if a=vbok then msgbox "painoit ok"
if a=vbcancel then msgbox "painoit cancel"

Tai jotain sinnepäinx.

Mitä ihmettä toi tarkoitti???

Ensimmäinen (Tallennux) esitti kuinka tallennat muuttuja-arvot a ja b tiedostoon "foo.bar".

Toinen (MsgBoXXX) esitti kuinka saat aikiseksi msgbox:in , jossa on painikkeet "Ok" ja "Cancel" ja painettuasi jompaa kumpaa painiketta saat uuden msgboxin, joka kertoo mitä oli painettu (painoit ok/painoit cancel).

Mitä muuta sitten kaipasit?

Vähän niinkuin tietoa, miten saisin ohjelman tallentamaan tiedoston käyttäjän valitsemaan paikkaan tyyppinä .txt...

Käytä "Microsoft Common Dialog"- komponentin SaveDialog metodia.

Mutta miten???

Tässä pitäisi olla täydellinen esimerkki CommonDialogin ShowSave metodin käyttöön. CommonDialogin nimi on CommonDialog1 ja esimerkissä oletetaan, että Form1:llä on painike (CommandButton) Command1

Private Sub Command1_Click()

    Dim ff As Integer
    ff = FreeFile

    On Error GoTo HandleError

    With CommonDialog1
        .CancelError = True  'Tarkkaillaan painetaanko Cancel:ia
        .DefaultExt = ".txt"
        .DialogTitle = "Tallenna nimellä"
        .Filter = "Tekstitiedostot (*.txt;)|*.txt|Kaikki tiedostot (*.*)|*.*"

        'cdlOFNHideReadOnly = piilotetaan valinta "Open as read only"
        'cdlOFNOverwritePrompt = CommonDialog kysyy korvataanko tiedosto
        'jos sellainen jo löytyy
        .Flags = cdlOFNHideReadOnly & cdlOFNOverwritePrompt
        .ShowSave
    End With

    Open CommonDialog1.FileName For Output As #ff
        Print #ff, teksti_joka_kirjoitetaan_tiedostoon
    Close #ff

    On Error GoTo 0

    Exit Sub

HandleError:
    Select Case Err
        Case cdlCancel: Exit Sub 'Painettu Cancel, poistutaan funktiosta

        'Disk full
        Case 61
            MsgBox "Tiedostoa ei voitu tallentaa, koska levyllä ei ole tarpeeksi tilaa!", vbCritical
            Exit Sub

    End Select

End Sub

Entäs sitten tiedoston avaaminen???

Koetin tätä, jonka löysin yhdestä kirjasta, mutta Toimiminen = False

CommonDialog2.DefaultExt = ".txt"
CommonDialog2.DialogTitle = "Avaa"
CommonDialog2.Filter = "Tekstitiedostot_(*.txt;)*.txt|Documentit (*.doc;) |*.txt|Kaikki tiedostot (*.*)|*.*"
CommonDialog2.ShowOpen
txtTekstinmuokkain.LoadFile (CommonDialog2.FileName)

Onko txtTekstinmuokkain TextBox vai RichTextBox? Nimittäin .Loadfile() ei toimi kuin RichTextBox:lla

Anteexi, mutta voixitteko olla xirjoittamatta xitä xaatanan äxää joka paikkaan! :D (No okei, oli ehkä vähän turha viesti, mutta kummiski teki mieli kirjoittaa. Sori.)

lainaus:

Anteexi, mutta voixitteko olla xirjoittamatta xitä xaatanan äxää joka paikkaan! :D (No okei, oli ehkä vähän turha viesti, mutta kummiski teki mieli kirjoittaa. Sori.)

Minkäs sille voi, että kontrollien nimet ovat tuollaisia. Ja oikeassa olet, oli ihan turha viesti (kuten tämäkin) joten se loppuu nyt tähän.

RichTextBox...