🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Thread View: cn.bbs.comp.lang.visual-basic
1 messages
[T] Back to Threads [V] Tree View [G] Group Articles
1 total messages Started by 1120 Tue, 10 Jul 2007 09:37
���vb����ԭ��,�dz���л!
#66
Author: 1120
Date: Tue, 10 Jul 2007 09:37
27 lines
1776 bytes 
haulmfile = "G:\articles\1\hauPrj\file\" & StrHaulm & ".txt" '&�������������ַ�
        
        Open haulmfile For Input As #1
        
        ReDim HaulmArray(50000, Trail - 1, NParameter - 1)
        NHaulm = 0
        Do While Not EOF(1)
        
            Input #1, HaulmArray(NHaulm, 0, 0), HaulmArray(NHaulm, 0, 1), HaulmArray(NHaulm, 0, 2), HaulmArray(NHaulm, 0, 3), HaulmArray(NHaulm, 0, 4), HaulmArray(NHaulm, 1, 0), HaulmArray(NHaulm, 1, 1), HaulmArray(NHaulm, 1, 2), HaulmArray(NHaulm, 1, 3), HaulmArray(NHaulm, 1, 4)
            NHaulm = NHaulm + 1
            Text4.Text = NHaulm
            
        Loop

        Close #1
        
        For j = 0 To NHaulm
           
            Picture1.Line (HaulmArray(j, 0, 0), HaulmArray(j, 0, 2))-(HaulmArray(j, 1, 0), HaulmArray(j, 1, 2)), &HFF0000
                
        Next j

�༭��������ʾ:ʵʱ����"62",���볬���ļ�β

--

�� ��Դ:��BBS ˮľ�廪վ http://smth.edu.cn��[FROM: 121.248.17.*]
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads