|
| ARGH JEG MANGLER HJÆLP... PLZ HJÆLP MIG Fra : Kristian Pelle |
Dato : 03-03-01 15:19 |
|
Hmmm Nu har jeg problemer igen, da jeg ikke er en super hardcore programmør
ville det være super hvis i gad hjælpe =)
Nå jeg har denne kode. Jeg har 2 ListBoxe den ene er til at vise hvilken
linje man er ved, den anden indeholder noget text. List1 er den med
linjenummeret. Men jeg skal have programmet til så når man trykker på "Slet
linje" (Command2) skal den slette Både linjenummeret (List1) og Texten
(List2) Svarene til den linje brugeren har indtastet. Men ikke nok med det,
den skal så rykke alle de andre som er efter linjen op og minuse linjeNR så
det passer. EX:
LinjeNR Txt
1 Hej
2 Hva' så?
3 Test
Så når man sletter linje to skal linje 3 rykke op og nummeret skal blive til
2.
Option Explicit
Dim LinjeNr As Integer
Private Sub cmdEcho_Click()
Dim Echo(500) As String
LinjeNr = LinjeNr + 1
Echo(LinjeNr) = InputBox("Hvad vil du have dit program til at skrive?",
"Skriv til skærm")
List1.AddItem LinjeNr
List2.AddItem "Echo " & Echo(LinjeNr)
End Sub
Private Sub Command1_Click()
Dim SletAlt As String
SletAlt = MsgBox("Er du sikker på at du vil slette hele din kode?",
vbYesNo, "Slet kode")
If SletAlt = vbYes Then
List1.Clear
List2.Clear
Form_Load
Else
End If
End Sub
Private Sub Command2_Click()
Dim Linje As Integer
Linje = InputBox("Hvilken linje vil du slette?", "Slet linje")
End Sub
Private Sub Form_Load()
LinjeNr = 1
List1.AddItem LinjeNr
List2.AddItem "@Echo off"
End Sub
Jeg kommer nok med andre spørgsmål, men det bliver lidt senere.
Quane
P.F.T.!!!
--[Mess with the BEST, die like the REST]--
OvEr AnD oUt!
| |
Jan Damkjær Dahl (03-03-2001)
| Kommentar Fra : Jan Damkjær Dahl |
Dato : 03-03-01 21:14 |
|
Skal dine numre og tekster altid følges ad er det måske bedre at bruge
listview.
"Kristian Pelle" <Kristian.Pelle@get2net.dk> skrev i en meddelelse
news:367o6.105$CA2.2966@news.get2net.dk...
> Hmmm Nu har jeg problemer igen, da jeg ikke er en super hardcore
programmør
> ville det være super hvis i gad hjælpe =)
>
> Nå jeg har denne kode. Jeg har 2 ListBoxe den ene er til at vise hvilken
> linje man er ved, den anden indeholder noget text. List1 er den med
> linjenummeret. Men jeg skal have programmet til så når man trykker på
"Slet
> linje" (Command2) skal den slette Både linjenummeret (List1) og Texten
> (List2) Svarene til den linje brugeren har indtastet. Men ikke nok med
det,
> den skal så rykke alle de andre som er efter linjen op og minuse linjeNR
så
> det passer. EX:
>
> LinjeNR Txt
> 1 Hej
> 2 Hva' så?
> 3 Test
>
> Så når man sletter linje to skal linje 3 rykke op og nummeret skal blive
til
> 2.
>
> Option Explicit
> Dim LinjeNr As Integer
>
> Private Sub cmdEcho_Click()
> Dim Echo(500) As String
> LinjeNr = LinjeNr + 1
> Echo(LinjeNr) = InputBox("Hvad vil du have dit program til at
skrive?",
> "Skriv til skærm")
> List1.AddItem LinjeNr
> List2.AddItem "Echo " & Echo(LinjeNr)
> End Sub
>
> Private Sub Command1_Click()
> Dim SletAlt As String
> SletAlt = MsgBox("Er du sikker på at du vil slette hele din kode?",
> vbYesNo, "Slet kode")
> If SletAlt = vbYes Then
> List1.Clear
> List2.Clear
> Form_Load
> Else
> End If
> End Sub
>
> Private Sub Command2_Click()
> Dim Linje As Integer
> Linje = InputBox("Hvilken linje vil du slette?", "Slet linje")
> End Sub
>
> Private Sub Form_Load()
> LinjeNr = 1
> List1.AddItem LinjeNr
> List2.AddItem "@Echo off"
> End Sub
>
> Jeg kommer nok med andre spørgsmål, men det bliver lidt senere.
>
> Quane
>
> P.F.T.!!!
>
> --[Mess with the BEST, die like the REST]--
> OvEr AnD oUt!
>
>
>
| |
Carsten Saugmann (04-03-2001)
| Kommentar Fra : Carsten Saugmann |
Dato : 04-03-01 22:31 |
|
Hej Pelle
Prøv at tilføje nedenstående til dit Command2_Click event:
Dim i As Integer
List1.Clear
List2.RemoveItem Linje - 1
LinjeNr = LinjeNr - 1
For i = 1 To LinjeNr
List1.AddItem i
Next
Du har jo valgt at holde styr på antallet af linier i en global variabel, så
hvorfor ikke bare fylde hele listen med et frisk sæt numre.
Mvh/Carsten
| |
|
|