Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB.NET: Rekisteri

php mies [23.10.2005 23:06:01]

#

Eli olen "koodaava lampuri" ja ajattelin tehdä kirjanpitoa varten rekisteriohjelman. Tämä tuntui toimivalta mutta ei oikeen toimi. Minulla on Microsoft Visual Basic 2005 beta 2 express edition jos tarvitsee tietää ja olen vasta aloitteleva. :)

koodi on tässä:

Public Class Form1
    Public nimi As String, tunnus As Object, synt As Object
    Public syntres As String, nimires As Object, tunnusres As Object
    Public tallennus As String, avaus As String, save1 As String, save2 As String, save3 As String, load1 As String, load2 As String, load3 As String



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        nimi = Text1.Text
        tunnus = Text2.Text
        synt = Text3.Text
        tallennus = TextBox1.Text
        tallennus = save1 + ".lnt"
        tallennus = save2 + ".ltt"
        tallennus = save3 + ".lst"




        Try
            Dim filePath As String
            filePath = System.IO.Path.Combine( _
                My.Computer.FileSystem.SpecialDirectories.MyDocuments, save1)
            My.Computer.FileSystem.WriteAllText(filePath, nimi, True)
        Catch fileException As Exception
            Throw fileException
        End Try
        Try
            Dim filePath As String
            filePath = System.IO.Path.Combine( _
                My.Computer.FileSystem.SpecialDirectories.MyDocuments, save2)
            My.Computer.FileSystem.WriteAllText(filePath, tunnus, True)
        Catch fileException As Exception
            Throw fileException
        End Try
        Try
            Dim filePath As String
            filePath = System.IO.Path.Combine( _
                My.Computer.FileSystem.SpecialDirectories.MyDocuments, save3)
            My.Computer.FileSystem.WriteAllText(filePath, synt, True)
        Catch fileException As Exception
            Throw fileException
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        avaus = Box2.Text
        avaus = load1 + ".lnt"
        avaus = load2 + ".ltt"
        avaus = load3 + ".lst"

        Try
            nimires = My.Computer.FileSystem.ReadAllText(load1)
        Catch fileException As Exception
            Throw fileException
        End Try

        Try
            tunnusres = My.Computer.FileSystem.ReadAllText(load2)
        Catch fileException As Exception
            Throw fileException
        End Try

        Try
            syntres = My.Computer.FileSystem.ReadAllText(load3)
        Catch fileException As Exception
            Throw fileException
        End Try
        Text4.Text = nimires
        Text5.Text = tunnusres
        Text6.Text = syntres

    End Sub


End Class

Ai nii tää on sitte open sourcea eli kaikki saa käyttää tätä omiin pimeisiin tarkoituksiin.

panttu [24.10.2005 21:02:17]

#

Häh MSDN sanoo, että tämä
My.Com­pu­ter.­Fi­le­System.S­pe­ci­al­Direc­to­ries.­My­Docu­ments
liittyy kumppaneineen WinFX:ään onko tuosta tullut VS2005 Betan mukan, joku beta versio mukanva vai???

Joo en muutakaan tiedä, mutta kerrottakoon, että jos tiedoston olemassa oleminen ei ole varmaa kannattaa se tarkistaa ennen yhteyden luomista, kun nuo try sydeemit on äärimmäisen hitaita käsittelemään nuo virheet ja lisäksi jos niitä käyttää kannattaa niitä myös käyttää kertomaan syy miksi ne heittää poikkeuksia.

esakom [25.10.2005 12:45:20]

#

millä msdn sivulla se sanoo että se liittyy WinFX:ään? Ei ainakaan uusimmassa:

http://msdn2.microsoft.com/en-us/library/14t5h8e8

Tulee .NET kakkosversiossa (ja näin olle uusimmassa VS:ssä, ovat vielä betoja)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta