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


Undvika Felmeddelande i Setup Information om tomt på info ??

Postades av 2005-10-03 10:03:53 - Kenneth Jonsson, i forum visual basic - allmänt, Tråden har 4 Kommentarer och lästs av 735 personer

Jag får felmeddelande (run time error) om ingen info finns i Setup Information (Bok1.inf) Vid rad ...Line Input #1, Använd
Det är först när info finns (txt.fil som sparats i mappen) som allt funkar.

Hur kringår man detta när Form loadas och ändå ska kunna öppnas, även om ingen setup info finns i "Bok1.inf". ??

'Kod

Private Sub Form_Load()
Open "Bok1.inf" For Output As #1
For Nummer = 0 To (FilBok.ListCount - 1)
Print #1, FilBok.List(Nummer)
Next Nummer
Close #1
Open "Bok1.inf" For Input As #1
Do
Line Input #1, Använd
Laddande = Använd
LongNummer = InStr(1, Laddande, ".", 0)
Använd = Left(Laddande, LongNummer - 1)
For Nummer2 = 0 To 9
CobTänkta(Nummer2).AddItem Använd
Next Nummer2
Loop Until EOF(1)
Close #1
For Nummer2 = 0 To 9
CobTänkta(Nummer2).AddItem " "
Next Nummer2
DisableX
Me.Move 0, 0, Screen.Width, Screen.Height

End Sub


Mvh
Kenneth


Svara

Sv: Undvika Felmeddelande i Setup Information om tomt på info ??

Postades av 2005-10-03 18:14:55 - Magnus Lüttkens

Man kan alltid undvika felmeddelanden genom att använda sig av On Error

Skriv tex


Private Sub Form_Load()
    On Error GoTo FileIsEmpty
    
    'Här lägger du till din kod
    
    
    Exit Sub
FileIsEmpty: 'Om något fel inträffar hoppar exekveringen hit
    MsgBox "Filen är tom"
End Sub



Detta är dock ganska fult. Samma meddelande visas oavsett om filen är tom, borttagen och oåtkomlig. Fel som fel.

Bättre kanske är att kolla storleken på filen mha FileLen

Private Sub Form_Load()
    If FileLen("filenamnet") = 0 Then
        MsgBox "Filen är tom!"
    End If
End Sub


Hoppas det fungerar!

/Magnus



Svara

Sv:Undvika Felmeddelande i Setup Information om tomt på info ??

Postades av 2005-10-03 19:11:11 - Kenneth Jonsson

Juste Magnus
Tack på förhand ska kolla, men ser teoretiskt riktigt ut

Mvh


Svara

Sv: Undvika Felmeddelande i Setup Information om tomt på info ??

Postades av 2005-10-04 06:29:54 - Sven Åke Persson

Tycker att här är ett läge där du med gott samvete kan använda <b>On Error Resume Next</b>
Sen tycker jag inte om att du använder #1. Använd Fnum = FreeFile
<code>
On Error Resume Next
' fnum = FreeFile
'Open "Bok1.inf" For Input As #Fnum
Open "Bok1.inf" For Input As #1
Do
Line Input #1, Använd
Laddande = Använd
LongNummer = InStr(1, Laddande, ".", 0)
Använd = Left(Laddande, LongNummer - 1)
For Nummer2 = 0 To 9
CobTänkta(Nummer2).AddItem Använd
Next 'Nummer2
Loop Until EOF(1)
Close #1
For Nummer2 = 0 To 9
CobTänkta(Nummer2).AddItem " "
Next 'Nummer2
DisableX
Me.Move 0, 0, Screen.Width, Screen.Height
GoTo Error 0
End Sub
</code>


Svara

Sv:Undvika Felmeddelande i Setup Information om tomt på info ??

Postades av 2005-10-04 08:30:03 - Kenneth Jonsson

Hej Sven

Tack för Ditt inlägg, tror eller vet att det bör funka bättre och mer dynamiskt.

Mvh
Kenneth


Svara

Nyligen

  • 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
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

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 722
27 958
271 751
423
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