Visual Basic - nemt

2) If-sætninger er i Visual Basic enten

If Label1.Caption = "noget" Then
    Label2.Caption = "noget andet"
End If

eller

If Label1.Caption = "noget" Then Label2.Caption = "noget andet"

Bemærk at der ikke skal End If på en If-sætning, hvis den udføres på en enkelt linje.

/Martin Sommer
www.magik.dk

Tak, men hvad med at kopiere en fil? (og få en progressbar til at vise forløbet? Jeg kan regne ud at Min = 0 og Max = filenstørrelse for progressbaren, men hvordan får man den til at følge med i hvor meget der er downloadet?)

hmm har du prøvet med at læse den nye fil's størrelse ? (jeg er ikke sikker)

/theSurfer.

Ja, den er lidt værre. For at du kan få en ProgressBar til at vise forløbet skal du have 2 ting:

1) Den samlede filstørrelse
2) Hvor meget at filen du har hentet på et givet tidspunkt

Hvis du kan få fat på disse to ting, er det ikke så svært. I Visual Basic er der en Timer til rådighed, der kan bruges til at udføre et bestemt stykke kode i forud definerede intervaller (f.eks. en gang i sekundet).

Timeren har en metode, der hedder Timernavn_Timer(), hvori du så kan lægge den kode, der opdaterer ProgressBar'ens værdi.

Men dette kan du som sagt kun gøre hvis du har mulighed for at aflæse de to ovennævnte værdier.

Håber at det kunne hjælpe dig lidt på vej  :)

/Martin Sommer

Hej.

En fils størrelse i bytes findes ved

Filelen(filename), men at have snor i hvor mange bytes der er overført er formentlig noget med et API-kald.
Men der det virkelig nødvendigt med den progressbar? Hvis det er et 100 Mbit netværk skal filer være ret store før nogen kan nå at se en bar løbe over skærmen.

Ellers kunne man snyde lidt og basere forløbet på et gennemsnit af normale overførseltider.  Men selvfølgelig, hvis der er travlt på nettet - nogen hører streaming radio - så vil progressbaren vise forkert.  Det kan helt sikkert laves korrekt.

M.v.h.  Jørn

Hmmm okay :/

Men så må jeg lave spm'ene om til:

1) Hvordan kopiere man en fil?
2) Kan en filebox/dirbox sættes op til at læse ftp?
3) Hvor gør man så en billede bliver resized? Når man laver en picturebox så vises der kun en del af billedet hvis billedet er større end boxen. (Er der mulgihed for at behold forholdene mellem højde og bredde?)

kopierer i stedet for kopiere
et billede i stedet for en billede

:o)

xenophobia>>  ad 3)

Jeg har lavet et lille Freeware-program der benytter en picturebox, der ikke er synlig til at finde ud af forholdet mellem siderne i et billede.  Derefter vises det i enimagebox med stretch=true.  Dog beregnes at det skal kunne være indenfor skærmen.

Jeg sender gerne en zip-pakke af hele projektet (VB5).

Her er lidt kode, det kan også spille wav-filer med shelle til en lille afspiller, der hedder playany.

Se det og download fra http://www.jkfsoft.dk/vilbill.htm

Private Sub File1_Click()
  Picture1.Visible = False
  Image2.Visible = False
  bil = Dir1.Path & "\" & File1.filename
  Select Case UCase(Right$(File1.filename, 3))
    Case "BMP"
        GoTo vis
    Case "GIF"
        GoTo vis
    Case "JPG"
        GoTo vis
    Case "WAV"
        GoTo spil
  End Select
  Form2.Cls
      Form2.Print
      Form2.Print
      Form2.Print
      Form2.Print Tab(4); "Filen: " & File1.filename & " er ikke et billede!"
  Exit Sub
vis:
  afspil.Visible = False
  bil = Dir1.Path & "\" & File1.filename
  On Error GoTo billedfejl
  Image2.Picture = LoadPicture(bil)
  filesize.Caption = Int(FileLen(bil) / 1000)
  Picture1.Picture = LoadPicture(bil)
 
  'beregning af forhold mellem siderne (for forstørrelse / formindskelse)
  h = Picture1.Height
  b = Picture1.Width
  f = Int((b / h) * 100)
 
  'Automatisk tilpasning af størrelse til skærmen
  '-----------------------------------------------
  'If chkasi.Value = 1 Then
    If f <= 133 Then
      'MsgBox (chkasi.Value & "  Forholdet mindre er =  " & f)
      scrhor.Value = (Screen.Height - 400) * (f / 100)
     
    End If
    If f > 133 Then
      'MsgBox (chkasi.Value & "  Forholdet større er =  " & f)
      scrhor.Value = Screen.Width - 400
     
    End If
  'End If
 
  If b = scrhor.Value Then
    'midtstilling vandret
    If b < Screen.Width Then
        Image2.Left = (Screen.Width - b) / 2
      Else
        Image2.Left = 5
    End If
    'midtstilling lodret
    If h < Screen.Height Then
        Image2.Top = (Screen.Height - h) / 2
      Else
        Image2.Top = 5
    End If
  End If
  Image2.Visible = True
 
  If chkasi.Value = 0 Then scrhor.Value = b
 
  Exit Sub
 
billedfejl:
  Form2.Print Tab(4); "Filen " & File1.filename & " er beskadiget."
  Exit Sub
  Resume Next
spil:
 
  'afspil.Visible = True
  'afspil.Command = "close"
  'afspil.filename = bil
  'afspil.Command = "open"
  Shell (App.Path & "\wplany.exe " & bil)
End Sub

Linkfejl!  skal være http://www.jkfsoft.dk/visbill.htm

M.v.h.  Jørn

xenophobia>>

Måske har andre allerede svaret på filkopiering

  FileCopy sti & filnavn, sti & filnavn

Min installation har en OCX ved navn MSINET.OCX.  Dens formål er overførsel med HTTP- og FTP-protokollerne.  Har aldrig brugt den (bruger Windows Commander til FTP).
Men der er hjælp tilstede i min VB5-inst.

M.v.h.  Jørn

Hej.
Har fundet noget om progresbar, ret langhåret:

http://samples.gotdotnet.com/quickstart/util/srcview.aspx?path=/quickstart/winforms/Samples/ControlReference/ProgressBarCtl/ProgressBarCtl.src

M.v.h.  Jørn

Joern - kunne du ikke sende mig det der billede-projekt?

xenophobia>>
Det har jeg jo tilbudt, men så må du oplyse hvor det skal sendes hen.

M.v.h.  Jørn

webmaster@aero-sport.dk