Re: VB savepicture

Article View: cn.bbs.comp.lang.visual-basic

Article #20896

Back to cn.bbs.comp.lang.visual-basic Previous Next

#20896

From: ��ԭ֮��
Date: Thu, 24 Jul 2003 01:33

28 lines
1656 bytes

�鷳����������γ���������

Private Sub Command1_Click()
    Picture1.Scale (-Picture1.Width / 2, Picture1.Height / 2)-(Picture1.Widt
h / 2, -Picture1.Height / 2)
    Picture1.Circle (0, 0), 1000, vbBlack, , , 1
    Picture1.DrawWidth = 1
    Picture1.DrawStyle = 2
    Picture1.Line (-Picture1.Width / 2, 0)-(Picture1.Width / 2, 0), vbBlack
    Picture1.Line (0, Picture1.Height / 2)-(0, -Picture1.Height / 2), vbBlac
k
End Sub

Private Sub Command2_Click()
    Pic = SavePicture(Picture1.Image, "aaa.bmp")
End Sub

command1����һ��Բ�������ߣ�
command2�����滭��picture1��ͼ��    

�� �� pcfan (  ) �Ĵ������ᵽ: ��
: �����������ľ��ӡ���������������


--

[m[1;33m�� ��Դ:��BBS ˮľ�廪վ smth.org��[FROM: 202.119.112.40][m

Technical Details

Message-ID: <000000$5q5@smth.org>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,GB
X-Google-Thread: 109fdd,2dd30e6b79c4777c
X-Google-Attributes: gid109fdd,public
X-Google-ArrivalTime: 2003-07-23 18:35:02 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH
From: sfljh@smth.org (��ԭ֮��)
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: Re: VB savepicture
Date: 24 Jul 2003 01:33:04 GMT
Organization: BBS ˮľ�廪վ
Message-ID: <000000$5q5@smth.org>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/q/M.1059010328.c0
Lines: 28