Czy jest ktos kto sie zna na Visual Basic?

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» resmedia 06:12 » ngP 05:53 » hokr 05:53 » NimnuL 05:42 » coolio 04:55 » Martens 04:52 » NWN 04:42 » selves 03:38 » Bonifacyz 03:06 Dzisiaj przeczytano 36871 postów, wczoraj 25433 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Czy jest ktos kto sie zna na Visual Basic? , UndercoverBrother 18/10/02 19:15
Wlasnie robie projekt do szkoly, tylko 2 godziny mi zostaly do zeby skonczyc program (Ksiazka Adresowa) i utknalem w jednym miejscu, za chwilke wyjasnie ale pierwsze jak powinien wygladac caly program:

http://www2.sunysuffolk.edu/lammg/lab2.exe
http://www2.sunysuffolk.edu/lammg/phone.dat (ten plik trzeba zapisac na dysku a: zeby caly program mogl dzialac)

To jest ten prog, jak nacisniesz View przycisk to pokazuje sie ladna lista wszystkich nazwisk i numeru telefonow.

Ale problem mam w tym ze nie moge zrobic zeby ta lista wygladala jak w tym programie.
Tutaj jest kod ktory napisalem dla tego przycisku:

Private Sub cmdView_Click()
txtName.Enabled = False
txtPhone.Enabled = False

'displays data from the file to be visible in the display box
Dim name As String, phone As String, crlf As String

txtDisplay.Enabled = True

'loop
crlf = Chr(13) + Chr(10)
Open "a:\phone.dat" For Input As #2

Do While Not EOF(2)

Input #2, name, phone

txtDisplay.Text = txtDisplay.Text + name + " " + phone + crlf

Loop
Close #2

End Sub

I po uruchomieniu wyswietla mi jako:
Robert Roberts 5464654-45654||Gary J. Lamm 516-555-1212||JoeSchmoe 516-555-1212||Moe Schmoe 516-555-1212||EdKoch 516-555-1212||Harry Barry 516-555-1212
||Mary Quitecontrary 516-55.......itd

Nie wiem dlaczego nie dziala crlf :(

POMOCY !!!