Article View: cn.bbs.comp.lang.visual-basic
Article #66���vb����ԭ��,�dz���л!
From: 1120
Date: Tue, 10 Jul 2007 09:37
Date: Tue, 10 Jul 2007 09:37
27 lines
1776 bytes
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",���볬���ļ�β
--
[m[37m�� ��Դ:��BBS ˮľ�廪վ http://smth.edu.cn��[FROM: 121.248.17.*][m
Technical Details
Message-ID:
<4V2R27$6S3@bbs.tsinghua.edu.cn>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!newsfeed.kamp.net!newsfeed.kamp.net!fu-berlin.de!news.cn99.com!news.uestc.edu.cn!news.happynet.org!SMTHShow Full Headers
Complete Article Headers
X-Google-Thread: 109fdd,c035d6cb83a4bb98,start X-Google-Attributes: gid109fdd,public,usenet X-Google-Language: ENGLISH,GB Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!newsfeed.kamp.net!newsfeed.kamp.net!fu-berlin.de!news.cn99.com!news.uestc.edu.cn!news.happynet.org!SMTH From: sopecj@smth.edu.cn-SPAM.no (1120) Newsgroups: cn.bbs.comp.lang.visual-basic Subject: ���vb����ԭ��,�dz���л! Date: 10 Jul 2007 09:37:43 GMT Organization: BBS ˮľ�廪վ Message-ID: <4V2R27$6S3@bbs.tsinghua.edu.cn> Mime-Version: 1.0 Content-Type: text/plain; charset="gb2312" Content-Transfer-Encoding: 8bit X-Filename: VisualBasic/p/M.1184060263.l0 Lines: 27