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
	» XepeR 13:47 » Hitman 13:46 » Kenny 13:33 » KHot 13:33 » rednet 13:32 » ulan 13:24 » dulik 13:18 » Visar 13:03 » leosh 12:48 » Kool@ 12:43 » Katoda Lt 12:39 » slanter 12:37 » zartie 12:23 » cVas 12:14 » Chrisu 12:11 » Sebek 11:51 » Robek 11:33 » maciell 11:29 » skalak23 11:28 » Wolf 11:12 Dzisiaj przeczytano 336269 postów, wczoraj 552055 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 !!!