Om jag ska använda mig av en ComboBox, som ska välja i sin lista ex. alternativet Midsommar-02, så ska programmet visa dels en bild på ett fotografi (som läggs i en Image) samt en tillhörande text (som läggs i en TextBox).
Skulle man kunna då visa/öppna både dess bild och textfilen samtidigt, med att bara klicka på ett namn/alternativ i listan, på en ComboBox?
:l Funkar det att knåpa ihop, en sådan kod, i en ComboBox eller...??
Mvh
/Cheezes - the newbie prövar sina vingar igen...
Private Sub Form_Load()
Combo1.AddItem ("Midsommar-03")
Combo1.AddItem ("Midsommar-02")
Combo1.AddItem ("Midsommar-01")
End Sub
Private Sub Combo1_Click()
If Combo1 = "Midsommar-03" Then
Image1.Picture = LoadPicture(App.Path & "/bilder/bild1.jpg")
End If
Open App.Path & "/texter/" & Combo1 & ".txt" For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub
Textfilerna heter Midsommar-03.txt o.s.v.
Döper man bilderna till Midsommar-03 o.s.v. så blir det ännu smidigare
Private Sub Combo1_Click()
Image1.Picture = LoadPicture(App.Path & "/bilder/" & Combo1 & ".jpg")
Open App.Path & "/texter/" & Combo1 & ".txt" For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub
Va´ häftigt. Tack, Rödalacket!
Jag som trodde att det var rena omöjligheten att slå ihop en sådan kod med ComboBoxen.
Men jag tänkte ändå att det skadar ju inte att fråga åtminstone.
Snacka om att bita i det söta/sura äpplet beror på hur man ser på det :OO
Tack likaså för ditt snabba svar, Rödalacket.
Jag som ha varit och rest runt hela Internet-världen på 48 timmar utan nå´n lösning...samtidigt som den var redan så fint utlagt här inne på wF x( *doh* :birp
Jag har ju redan hunnit testat koden i mitt program :) och den tuggade förstås i sig den med både hull och hår, förutom att jag fick finjustera slashen runt (/bilder/) till den motsatta hållet istället (\bilder\) bara en såndär kort notering, så övriga vet...
Hur som helst, så har jag här en efterfråga:
- Kommer mitt program kunna hantera och hitta sökvägen till mina text- och bildfiler, på någons annan dator sedan.
Mina filer ligger - i denna stund - typ på platsen (C:\Windows\Skrivbord...)
Vid testkörningen nu, så skickar App.Path tillbaka Errors-resultat, som visar vägen till VB:ns installationsplats istället. (C:\Program\Vb98)
Kommer mitt program kunna ändå hitta sökvägen, när jag väl har sparat ner det, som en körbar ".exe"fil :q
App.Path visar sökvägen till exe-filen, om jag lägger exe-filen i en mappen "Niclas" i C: så visar App.Path C:\Niclas.
Varför det blir error för dig det har jag ingen aning om... :)
Testa att skriva ".\bilder\" & Combo o.s.v. istället och hoppa över App.Path
App.Path visar sökvägen till exe-filen, om jag lägger exe-filen i en mappen "Niclas" i C: så visar App.Path C:\Niclas.
Varför det blir error för dig det har jag ingen aning om... :)
Jag har dock inte gjort mitt program till ett körbart ".exe"-fil ännu men som du skriver här ovan, så får den nog den korrekta sök-resultatet, om det är så att "App.Path visar vägen till exe-filen".
Låter himla troligt och fungerbart faktiskt...den som lever får se! Återkommer mä svaret på den sedan...
Tack iallafall!
Testa att skriva ".\bilder\" & Combo o.s.v. istället och hoppa över App.Path
Att ha eller inte ha variabeldeklaration, är frågan
Nexus86 skrev:
Om du startar VB genom att dubbelklicka på projektfilen hamnar exe-filen i rätt mapp även under Testning.
Tack för upplysningen, Nexus86 :)
Jag sitter och småfilura nu om jag behöver deklarera några variabler (som t.ex. en string eller nå´t annat?), som jag måste lägga in till den nedanstående- och framtagna koden?? :l
Private Sub Form_Load()
Combo1.AddItem ("Midsommar-03")
Combo1.AddItem ("Midsommar-02")
Combo1.AddItem ("Midsommar-01")
End Sub
Private Sub Combo1_Click()
Image1.Picture = LoadPicture(App.Path & "\bilder\" & Combo1 & ".jpg")
Open App.Path & "\texter\" & Combo1 & ".txt" For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub
Jo´rå, programmet är lika lugn som en filbunke, under körningen.
Det är bara jag, som tycker att kodningen blev så mager bl.a. utan dess varibeldeklarationer, och då blev jag - till slut - (förmodligen av för mycket tänkande :x ) lite lätt konfunderad.
Men det är kanske så att VB:n utför, i detta fall, en hel del arbete själv och jag - den lycklige - slipper ta hand om dess rutinarbete åt den. :D *pust*
Jag borde kanske lägga min sista utkavlade tanke-bubbla nu på att göra programmet istället till en .exe-fil då... :stud
Mvh
/Cheezes
250 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
