VB를 사용하여 펀드의 매매 가격을 표시하는 테이블 만들기

'컨트롤 목록 보기를 추가하고 표시해야 할 내용을 메모장에 저장합니다. 형식은 위와 같으며 다음 코드를 복사합니다.

사용 방법을 모르겠습니다. 목록보기, 참고용으로만 사용하세요! !

Private Sub Form_Load()

'테이블 헤더 설정

ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , " 이름", ListView1.Width / 4

ListView1.ColumnHeaders.Add , , "가격 1", ListView1.Width / 4

ListView1.ColumnHeaders.Add , , "가격 2 " , ListView1.Width / 4

ListView1.ColumnHeaders.Add , , "가격 3", ListView1.Width / 4

'데이터 채우기

Dim x , y, z, i, fn

i = 0

fn = FreeFile

fn'here c로 입력하려면 "c:\1.txt" 열기 :\1.txt는 저장된 데이터입니다.

Do While Not EOF(fn)

라인 입력 #fn, x

y = Split( x, " |")

ListView1.ListItems.Add , , y(0)

ListView1.ListItems.Item(i + 1).SubItems(1) = y(1 )

ListView1.ListItems.Item(i + 1).SubItems(2) = y(2)

ListView1.ListItems.Item(i + 1).SubItems(3) = y( 3)

i = i + 1

루프

fn 닫기

End Sub