Hej! Skriv enl denna princip. VB6 kod Eftersom du redan använder en knapp (CommandButton) så verkar det smartare <b>Nyfiken. Hur skulle denna kod se ut ,skriven i Vb.net</b> Tack André sjävklart gick inte sååå djupt. <b>>>Nyfiken. Hur skulle denna kod se ut ,skriven i Vb.netIf-else-sats
Jag ska skriva en if-else sats som läser av om en dörr är låst eller inte, och beroende på om man klickar på knappen så ska detta ändras, är den olåst så ska den låsas och tvärtom. Detta är koden jag kommit fram till än så länge men hittar inget fel till varför det inte vill funka...
Public Class Form1
'Definiera variabler
Dim strLasta As String
Dim strOlasta As String
Dim strDorrar As String
Sub Lock()
'Värde
strLasta = "Låsta"
strOlasta = "Olåsta"
strDorrar = strOlasta
If strDorrar = strOlasta Then
strDorrar = strLasta
ElseIf strDorrar = strLasta Then
strDorrar = strOlasta
End If
lblLock.Show()
End SubSv: If-else-sats
<code>
Dim strDorrar As String
'Se till att lblLock.Text har rätt värde vid första start.
'Borde väl vara Låsta i startläge
Sub Locka() 'Lock är ett reserverat ord får ej användas här
'Värde
If strDorrar = "Olåsta" Then
strDorrar = "Låsta"
Else
strDorrar = "Olåsta"
End If
lblLock.Text = strDorrar
' lblLock.Show()
End Sub
</code>Sv:If-else-sats
att använda Knappens .Caption eller om det nu heter .Text för att köra Olåsta/Låsta. enl.
<code>
Private Sub Command1_Click()
If Command1.Caption = "Olåsta" Then
Command1.Caption = "Låsta"
'Do your stuff here för att få dom Låsta
Else
Command1.Caption = "Olåsta"
' Do your stuff here för att få dom Olåsta
End If
End Sub
</code>
<b>Nyfiken. Hur skulle denna kod se ut ,skriven i Vb.net</b>Sv: If-else-sats
Den skulle se likadan ut. Frånsett att det heter .Text som du misstänkte.
Man bör dock tänka på att det kan finnas nackdelar med att gå på strängens värde.
*Om nån byter namn på knappen, måste även koden ändras.
*Om man har ett program som ska översättas till flera språk, funkar det inte.
En bättre lösning är väl att ha nån form av <b>state</b>. En Boolean t.ex.Sv:If-else-sats
Ungdomarna 16-20 förstår inte det där med FeedBack.
Så djä... viktigt för att hålla en fråga i luften levande.
Jag frågar "Öhhhhhhhhhhhhh"
<b>Margraritas anti Porcas</b>Sv:If-else-sats
>Den skulle se likadan ut. Frånsett att det heter .Text som du misstänkte.</b>
Och att det skulle stå "Handles Command1.Click", plus att det skulle ligga med eventargument.
Alltså typ:
Private Sub Command1_Click(e As System.EventArgs) Handles Command1.Click
If Command1.Text = "Olåsta" Then
Command1.Text = "Låsta"
'Do your stuff here för att få dom Låsta
Else
Command1.Text = "Olåsta"
' Do your stuff here för att få dom Olåsta
End If
End Sub
Och man hade ju fått jobba lite för att faktiskt få den att heta Command1. =)