visual-basic - Hjælp til 3 ting :-)) - Udvikleren.dk - Programmering, webdesign og grafik

Tags: visual-basic

Bruger #4578 @ 07.12.03 20:47

Jeg her en kode som ser sådan ud
Det jeg vil have hjælp til er at man skal kunne tilføje indholdet af 3 bokse på en linje. Jeg har prøvet med 3 bokse men de tilføjer sig på 3 forskællige linjer. Nr 2. Jeg vil have den til at sige at der ikke er noget at slætte når man prøver at slætte en linje uden noget. Og den sidste ting, Jeg vil have den til at huske det man har indtastet, næste gang man åbner programmet, jeg har kigget alle steder men kan ikke finde noget om det(jeg tror den skal bruge en txt til til at skrive til men jeg ved helt ærligt ikke).
Undskyld hvis det er noget man skal kunne men jeg er MEGA noob til vb

Private Sub Command1_Click()
List1.AddItem Text1.Text

End Sub

Private Sub Command2_Click()
MsgBox "Vil du fjerne" & List1.Text & " fra listen ??", vbYesNo + vbQuestion

List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command3_Click()
List1.ListIndex = 0
End Sub

3 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 5 karma

Sorter efter stemmer Sorter efter dato

Bruger #4564 @ 08.12.03 12:29

Jeg kan desværre kun lige svare på de to første, da jeg ikke er inde i det med filer, men man kan gøre således:

Kode

Private Sub Command1_Click()
List1.AddItem (Text1.Text + Text2.Text + Text3.Text)
End Sub

Private Sub Command2_Click()
Dim svar As Integer
svar = MsgBox("Vil du fjerne" & List1.Text & " fra listen ??", vbYesNo + vbQuestion)
If svar Then
  If List1.Text <> "" Then
   List1.RemoveItem (List1.ListIndex)
  Else
   MsgBox "Du kan ikke slette denne linie. Den er tom!"
  End If
End If

End Sub

Håber det var en hjælp!

Vh
T dér

[Redigeret d. 08/12-03 12:29:44 af Tarrild]

Bruger #4578 @ 09.12.03 07:33

Jeg kan desværre kun lige svare på de to første, da jeg ikke er inde i det med filer, men man kan gøre således:

Kode
Private Sub Command1_Click()
List1.AddItem (Text1.Text + Text2.Text + Text3.Text)
End Sub

Private Sub Command2_Click()
Dim svar As Integer
svar = MsgBox("Vil du fjerne" & List1.Text & " fra listen ??", vbYesNo + vbQuestion)
If svar Then
  If List1.Text <> "" Then
   List1.RemoveItem (List1.ListIndex)
  Else
   MsgBox "Du kan ikke slette denne linie. Den er tom!"
  End If
End If

End Sub
Håber det var en hjælp!

Vh
T dér

[Redigeret d. 08/12-03 12:29:44 af Tarrild]

mange tak men jeg ser lige omder er flere der svare

Bruger #4578 @ 12.12.03 19:24

Jeg kan desværre kun lige svare på de to første, da jeg ikke er inde i det med filer, men man kan gøre således:

Kode
Private Sub Command1_Click()
List1.AddItem (Text1.Text + Text2.Text + Text3.Text)
End Sub

Private Sub Command2_Click()
Dim svar As Integer
svar = MsgBox("Vil du fjerne" & List1.Text & " fra listen ??", vbYesNo + vbQuestion)
If svar Then
  If List1.Text <> "" Then
   List1.RemoveItem (List1.ListIndex)
  Else
   MsgBox "Du kan ikke slette denne linie. Den er tom!"
  End If
End If

End Sub
Håber det var en hjælp!

Vh
T dér

[Redigeret d. 08/12-03 12:29:44 af Tarrild]

mange tak men jeg ser lige omder er flere der svare

Nå der kom ikke flere svar :-( men sjeg syntes kun du skal have 150 og jeg selv får 50

Hjælp til 3 ting :-))

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler