Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


bildprogram

Postades av 2006-11-18 23:46:05 - christer eriksson, i forum systemutveckling generellt, Tråden har 2 Kommentarer och lästs av 1303 personer

Hej
Nån som kan berätta hur jag laddar in bilder från en specifik mapp
så bildnamnen kommer upp i en lista så att jag sen därifrån kan
kolla dom
vill att det ska ske i form load händelsen och alla bildnamnen ska
synas i list1 t.ex


Svara

Sv: bildprogram

Postades av 2006-11-18 23:49:04 - Niklas Jansson

Detta har, naturligtvis, ingenting med riskhantering att göra. Total felpost alltså.

Som svar på din fråga: ett sätt är att använda funktionen Dir på en mapp, anropas med filnamn först och sen utan.


Svara

Sv: bildprogram

Postades av 2006-11-19 09:42:50 - Andreas Hillqvist

I VB 6, jag antar att du programmerar i VB då du nämner Form_load, finns det en kontroll som heter FilListBox. Ikonen i toolbaren påminer om ikonen för ett text dokument. Dena kontroll listar filer i en angiven katalog.

Om du lägger in En DriveListBox, en DirListBox, en FileListBox och en Image kontroll på ett formulär och klistrar in följande kod:

Option Explicit

Private Sub Dir1_Change()
On Error GoTo Dir1_Change_Err
    File1.Path = Dir1.Path

Dir1_Change_Exit:
    Exit Sub
    
Dir1_Change_Err:
    MsgBox Err.Description
    Resume Dir1_Change_Exit
End Sub

Private Sub Drive1_Change()
On Error GoTo Drive1_Change_Err
    Dir1.Path = CurDir(Drive1.Drive)

Drive1_Change_Exit:
    Exit Sub
    
Drive1_Change_Err:
    MsgBox Err.Description
    Resume Drive1_Change_Exit
End Sub

Private Sub File1_Click()
On Error GoTo File1_Click_Err
    If File1.ListIndex = -1 Then
        Set Image1.Picture = Nothing
    Else
        Set Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
    End If
    
File1_Click_Exit:
    Exit Sub
    
File1_Click_Err:
    MsgBox Err.Description
    Resume File1_Click_Exit
    
End Sub

Private Sub Form_Load()
    File1.Pattern = "*.bmp;" + _
                    "*.dib;" + _
                    "*.gif;" + _
                    "*.jpg;" + _
                    "*.wmf;" + _
                    "*.emf;" + _
                    "*.ico;" + _
                    "*.cur"
    Drive1.Drive = Environ("SystemDrive")
    Dir1.Path = Environ("SystemRoot")
End Sub

Så har du fått ett exempel som visar hur du bläddrar efter bilder.

DriveListBox, DirListBox, FileListBox är en gammal kvarleva från VB 3 och kanske tidigare. Så deras utformning är den av gammla windows 3.1. Microsoft har inte uppdaterat dem mer än att de fungerar.



Svara

Nyligen

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 765
27 960
271 761
622
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies