Uppgifter | |
Användarnamn | |
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 |
Den här användaren har inte skapat någon personlig presentation. |
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
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örhand 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 |
Datum
2024-05-03 20:18
Vecka: 18
Besökare
Inloggade: 0
Gäster: 605
Medlemmar
Medlemmar: 53576
Forum
Senaste inlägget: HAHA MÄNNISKAN LEVER ÄN (13:45 - 18:e Januari 2019, av Hetzz)
Wiki
Senaste ändringen:
3D (rev: 1, tid: 09:40 - 13:e November 2015)
Chatt
#blinkenlights @ Libera.Chat
Gratis shellkonton för IRC, webbsidor mm.