Hej !
Jag har filat lite grann på mitt minidatabasprogram.

Har en lista i en listbox kompletterat med en "ej nästan synlig" Filelistbox satt till Pattern *.bok. Sedan har jag en Form benämnd Bokvisare.

Så här ligger det till:

Hade tidigare labels och en Image1 varvid textfiler (*.bok) hämtades in.
Så här:

Från Form1 benämnd Boktips finns en Listbox inkluderat en Filelistbox.
Private Sub List1_Click()
Bokvisare.Show
Bokvisare.Label1.Caption = List1.text
Bokvisare.Image1.Picture = LoadPicture(List1.text & ".jpg")
End Sub

Har nu ändrad denna kodning till:

Private Sub List1_Click()
Bokvisare.Show
Bokvisare.Text2 = List1.text
Bokvisare.Image1.Picture = LoadPicture(List1.text & ".jpg")
End Sub

I en annan Form benämnd Bokskapare lägger jag in nya boktitlar och flera skiftande förusättningar relaterat till de olika titlarna. Där sparas de sedan ner med filändelsen *.bok
Det är dessa titlar som sedan listas i Boktips.

I Form Bokvisare finns färdiga textmaterial beroende på i vilken textruta de ska visas. Dessa texter är relaterad till vad jag skrivit eller bockad för i Form Bokskaparen.

Exempel på början av koden i Bokvisare:

Option Explicit
Dim Använd As Variant

Private Sub Text2_Change()
If Text2 = "" Or Text2 = " " Then
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Bokvisare.Caption = "Ingen bok vald."
Exit Sub
End If
Open Text2 & ".bok" For Input As #1
Line Input #1, Använd
Line Input #1, Använd
Text3 = Använd
Line Input #1, Använd
Text4 = "Kommer att finnas" & Använd & " tidigast."
Line Input #1, Använd
Text5 = "Volym" & LCase(Använd) & "t. "
Line Input #1, Använd
If Använd = "Bunden" Then Använd = "Bundna"
Text6 = "Finns i " & LCase(Använd)
Line Input #1, Använd
If Använd = "Nej" Then
Text6 = Text6 & " och är ej tillgänglig."
ElseIf Använd = "är tillgänglig" Then
Text6 = Text6 & " och är ej lagerförd."
ElseIf Använd = "Mot inbundna" Then
Text6 = Text6 & " och är en stor upplaga."
End If
Text10 = ""
Line Input #1, Använd
If Använd = "Förlagsbunden" Then
Text9 = "Är ej recencerad. " & Chr(13) + Chr(10)
End If
If Använd = "Recension" Then
Text9 = "Är lovordad. " & Chr(13) + Chr(10)

Etc.


Allting funkar bra osv. men jag vill visa 4 stycken val från listan.

Varje titel som presenteras i Form Bokvisare innehåller 10 olika Textboxar och en Image1 där var och en visar de "Fakta" som resp. titel innhåller.

Nu till frågan:
Jag kan få plats med 4 st. sådana på Form Bokvisare. Men nu kommer jag till kärnpunkten (Äntligen)
Hur får jag detta att funka rent kodmässigt. Så att när en titel listats och sedan visas i Bokvisaren ska jag kunna få en till ny titel brevid och sedan 2 till under. Totalt 4 st boktitlar. Sedan är det ju bara att printa ut Form Bokvisare med innehållet.

Men som sagt kodningen Klurigt klurigt....


Tack på förhand !

Komplettering:

Det är Text2 i Boktips resp Bokvisaren som anger titeln på boken och är grunden för vad fakta som senare ska visas i Bokvisare på vald titel i listan.

Mvh
Kenneth ()

Ytterligare komplettering.

Om man vill ha samma Form Bokvisare fast med olika innehåll har jag kommit fram till följande via ett tidigare tips. Problemet för mig är att de lägger sig över varandra där de andra ej är "visible". Skulle vilja få dem att lägga sig bredvid varandra 4 st. identiska Form fast med olika innehåll 2 över 2 under.

Tjatigt men får det ej att funka. Här är den kodning jag just nu testar:

Private Sub List1_Click()
Dim Bokvisare As New Bokvisare
Static räknaform
räknaform = räknaform + 1
Bokvisare.Label1.Caption = räknaform
Bokvisare.Text2 = List1.text
Bokvisare.Image1.Picture = LoadPicture(List1.text & ".jpg")
Bokvisare.Show

End Sub

Mvh
Kenneth