/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
HJÆLP!!!
Fra : Kristian Pelle


Dato : 25-02-01 15:48

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!





 
 
Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste