Hvis Option1 ??

[wacie]

Hvis Option1 er merket og Option2 ikke. Hvordan får jeg programmet til å skrive "Hei på deg" + det som står i text1.text i filen hei.txt Og hvis Option2 er merket så står det "BLÆ" + Text1.text ??

 

-wacie-

[Rep]

Private Sub Command1_Click()

   Dim sMelding As String

   If Option1.Value = True Then

       sMelding = "Hei på deg! " & Text1.Text

   Else

       sMelding = "BLÆ " & Text1.Text

   End If

   Open "hei.txt" For Output As #1

       Print #1, sMelding

   Close #1

End Sub

[wacie]

Er det en måte man kan legge til informasjon i den filen?? Sånn at når du klikker en gang så kommer det opp og så endrer man noe å da kommer det man la til først å så det man la til nå??

 

-wacie-

[Rep]

Skift ut Output med Append

 

Open "hei.txt" For Append As #1 

       Print #1, sMelding 

Close #1

[wacie]

Takk, men hvis det er flere option knapper en 2 så??

 

-wacie-

[Rep]

Du må bare fortsette med ElseIf ved hver Option

 

   If Option1.Value = True Then 

       .......

   ElseIf Option2.Value = True

       ........

   osv...

[wacie]

Hvordan får jeg til at hvis man trykker på Option 1 og Option 3 så gjør den noe og Hvis det er Option 1 og Option 4 så gjør den noe og hvis det er Option 2 Og Option 3 så gjør den en annen ting og det samme på Option 2 og Option 4?? Jeg har satt to Option kanpper i en Frame og de to andre i en annen så det skulle gå ann å trykke på 2 forskjellige bare de ikke er i samme frame.

 

-wacie-

[Rep]

Du kan bruke AND operatoren i If linjene

 

   If Option1.Value = True And Option3.Value = True Then 

       ....... 

   ElseIf Option1.Value = True And Option4.Value = True Then

       ........ 

   osv... 

[wacie]

Er det en måte at programmet sjekker vilken option som er nede og legger til et ord til hvær knapp sånn at man slipper å skriver:

If Option1.Value = True And Option5.Value = True And Option9.Value = True Then

sMelding = Text1.Text & "       " & Text2.Text & "      " & "Unknown" & "       " & "Unknown" & "       " & "Unknown"

End If

Sånn at man slipper og måtte endre Option nr til hvær knapp??

det er en haug med kombinasjoner som må lages....

 

-wacie-

[Rep]

Hvis jeg skjønte deg riktig kan du jo legge til en hendelse når det blir klikket på en Option som endrer tittel på knappene.

 

Private Sub Option1_Click()

   Command1.Caption = "Option1 er valgt."

End Sub

[Rep]

Eller så kan du lage en Control array av Option og knappene og legge alt i en Sub

 

F.eks:

Private Sub Option1_Click(Index As Integer)

   Select Case Index

       Case 0

           Command1(Index).Caption = "Bla bla"

       Case 1

           Command1(Index).Caption = "Blæ blæ"

   End Select

End Sub