Användarprofil

Uppgifter
Användarnamn
Email
Besök -
Hemsida Ingen
Plats (stad)
Senaste besök 01:00 - 1:a Januari 1970
Poster i forumet
Varningar
Grupp
Medlem sedan 01:00 - 1:a Januari 1970
Artiklar och filer
Den här användaren har inga artiklar eller filer

Avatar


Presentation av

Den här användaren har inte skapat någon personlig presentation.

Senaste inläggen i forumet

Hjälp med med msgbox fel (VB 6)
Tjenna får fel på mitt kalkylatorprogram när textbox är tom och man klickar =
Tacksam för svar så snabbt som möjligt =)
koden jag använder:

Dim nummer As Integer
Dim nummer2 As Integer
Dim svar As Integer
nummer = Text1.Text
nummer2 = Text2.Text

If label1.Caption = "+" Then
Text3.Text = nummer + nummer2
Text3.Visible = True
Text2.Visible = False
Else
If label1.Caption = "-" Then
Text3.Text = nummer - nummer2
Text3.Visible = True
Text2.Visible = False
Else
If label1.Caption = "*" Then
Text3.Text = nummer
  • nummer2
Text3.Visible = True
Text2.Visible = False
Else
If label1.Caption = "/" Then
Text3.Text = nummer / nummer2
Text3.Visible = True
Text2.Visible = False
End If
End If
End If
End If

'Testat med denna koden nedan för msgbox men får inte rätt på programmet, klagar på "nummer".
'If nummer = "" Then
' svar = MsgBox("Ange ett tal", vbOKCancel + vbInformation) '
'End If

Postad 19:51 - 27:e Maj 2010
Snabb fråga om kod (Visual basic)
Någon som kan förklara vad följande kod gör?
Tack på förhandSmiley

With CommonDialog1
.DialogTitle = "Open Media..."
.CancelError = False
.Filter = "Alla filer"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName

With List1
.AddItem sFile
End With
End With
End Sub

Postad 14:49 - 25:e Maj 2010

Skicka meddelande
Läs s blog