Listbox vezérlő adatinak fájlba mentése
2012-03-12T14:27:38+01:00
2012-03-14T05:53:28+01:00
2022-07-24T04:52:23+02:00
  • List ablak tartalmát szeretném fájlba menteni,egy gombbal,majd egy másik gombbal beolvastatni vissza a list ablakba a mentett tartalmat. eddig ezt írtam,de nem menti el a tartalmat,vagyis lehet,hogy elmenti,mert ha a nézőkével megnyitom a készlet,dat fájlt,akkor látszik bene valami.De ha rákattintok a csommand2 (beolvasás) gombra,akkor hibaüzenetet kapok.
    list1.list = adat.árunév (ebben a sorban)
    Lehet,hogy teljesen más irányba kapisgálok a fájl mentésével kapcsolatosan?
    _____________________________________________________________
    Private Sub Command1_Click()
    adat.árunév = List1.Text
    fsz13 = FreeFile
    Open App.Path + "\készlet.dat" For Random As #fsz13 Len = Len(adat)
    rec = LOF(fsz13) \ Len(adat)
    Put #fsz13, rec + 1, adat
    Close fsz13
    fsz13 = FreeFile

    Open App.Path + "\készlet.dat" For Random As #fsz13 Len = Len(adat)
    rec = LOF(fsz13) \ Len(adat)
    For a = 1 To rec
    Get #fsz13, a, adat

    Next a
    Close fsz13

    End Sub
    ________________________________________________________________
    Private Sub Command2_Click()
    fsz13 = FreeFile
    Open App.Path + "\készlet.dat" For Random As #fsz13 Len = Len(adat)
    rec = LOF(fsz13) \ Len(adat)
    Get #fsz13, (Val(Text5.Text)), adat
    Close fsz13
    list1.list = adat.árunév


    End Sub
    ________________________________________________________________
    Private Sub Command8_Click()
    List1.AddItem Text1.Text
    End Sub
    ________________________________________________________________
    Private Sub Form_Load()

    fsz13 = FreeFile
    Open App.Path + "\készlet.dat" For Random As #fsz13 Len = Len(adat)
    rec = LOF(fsz13) \ Len(adat)
    Get #fsz13, a, adat
    If Mid$(adat.árunév, 1, 1) <> "~" Then
    End If
    Next a
    Close fsz13
    End Sub
    ________________________________________________________________
    Mutasd a teljes hozzászólást!
  • Ez így állás rovat.
    Mutasd a teljes hozzászólást!
  • Következő lenne a problémám. Hobbi szinten ismerkedek a visual basic 6-al. Összeállítottam egy kis programot,ami egy bolti raktárkezelés nyilvántartását összegzi.A program működik ,viszont egy dolog nem jön össze benne.Listbox vezérlő tartalmát nem tudom fájlba menteni!Az áru készletet elmentem egy készlet.dat nevű fájlba.De ugyanazzal az eljárással,a lisbox vezérlő tartalmát nem menti el.
    A selejtezett árukat kiíratom 4 list ablakba.A selejtezés gombra kattintva elvégzi a műveletet.(a raktárkészletből levonja a selejtezett áru darabszámát)De amikor meg szeretném nézni,hogy mik voltak a leselejtezett áruk,akkor a list ablakok üresek.Azt szeretném elérni,hogy a selejtezett áruk mindaddig megmaradjanak,amíg egy törlés gombbal ki nem törlöm őket.(pl leltározáskor)
    A selejtezni kívánt áru nevét,darabszámát egységárát,selejtezés dátumát külön ablakba íratom ki.
    Tudna valaki erre egy eljárást írni,amit Másolással be tudnék illeszteni egy "commandbutton" alá????
    1 listablak Áru megnevezése
    2 listablak Áru darabszáma
    3 listablak Áru egységára
    4 listablak Selejtezés dátuma
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd