🚀 go-pugleaf

 ͼ�κ�ͼ������ֱ���Ը������������ͽ���,����,�����ܵ�����
����豸(����ʾ���ķֱ���)������,����ڻ���DOS��PC���ϴ����
����Ĺ���ͼ�λ��ܲ����ס�����������Windows������,ͼ��ͼ���
������Խ���Windows�µ�GDI��������ʵ�֡�����,�����漰��ͼԪ
�ļ���ͼ���豸���޹����Լ�ӳ��ȸ���,��������������Щ����
����Visual Basic (���¼��VB)���Եij���,ʹ���������ӭ�ж��
��
    VB��һ�ֿ��ӻ��ı������,���������������¼��ı�̷���,
ʹ����Windows��̵ij���Ա�Ӹ��ӵĹ����н��ѳ�����VB���ṩ��
�ḻ�Ŀؼ�,ʹ�ñ�������Ƕ�ͼ��ͼ��Ĵ����ø�Ӽ򵥡�
    ��VB�Ļ�ؼ���,��ͼ��ͼ���йصĿؼ�������,һ����ͼƬ��
(Picture);һ����ͼ��ؼ�(Image)��ͼƬ���ͼ��ؼ������ڽ���
�������ƺõ�ͼ���ͼ���ļ�װ�뵽VBӦ�ó����������ʾ��һ��
ͼƬ���ͼ��������,ʹ��ʱ��ռ�ý϶���ڴ�,�����϶�Ĵ���
��ͼƬ�������ڶ�̬����,ͼ��ؼ����ʺ���ʾ��̬��ͼ��
    ͼƬ��������Ϊ�����еĴ���,������Խ�������ؼ�,����
������������״̬����������,������������ƿ�ܵĹ���,Ϊ��ͬ��
�ؼ����з��顣����ϲ�����ʾ���ĺͻ�ͼ, Ҳ������ͼ�Ρ�ͼ����
��,��ͼƬ���Ͽ��Դ�ӡ����ʾ������Ϣ,Ҳ����װ��ͼ��,��������
���Ƹ���ͼ�Ρ���Щ�ı���ͼ���Լ�����ؼ�������ͼƬ��һ���ƶ�
��ɾ���,��Ӧ���ֲ�����
    ͼ��ؼ�һ���Ծ�̬װ��ͼ��,��ʾ�ڴ�����,ͼ��ؼ��ϲ���װ
����ؼ�,Ҳ���ܴ�ӡ�ı�������ͼ�Ρ���ͼ��ؼ�ռ����Դ��,����
���ٶȱ�ͼƬ���,ͬʱ����зŴ���Сͼ��,�Ա�۲�ͼ��ϸ��
�Ĺ��ܡ�
    �������ͼƬ���ͼ��ؼ�������,�����ʹ�ô���湤��ͼ��
�����ü����С�����ͽ�ϱ��߲��뿪���ġ��״�װ������ά��
�ֲᡷ(���¼���ֲ�),��������������������Ĺ���ͼ�Ρ�

    ͼ�ι������
    ���ֲ���,Ҫ����ʾ�״�ϵͳ��������ϵͳ��ԭ�?��ͼ��ԭ��
ͼ,��ԭ��ͼ�ϻ�Ҫ��������ƶ��Ĺ����ʵʱ��ʾ��굱ǰλ����
�����IJ����·���ͼ�ȡ�����ԭ��ͼһ�㶼�Ƚϴ�,����Ҫ����
�������������VB�Ļ�ؼ����Ѿ��ṩ��������ʽ�Ĺ�����:ˮƽ
�������ʹ�ֱ�����������������ֹ�����,�ټ��Լ򵥵ij���,�Ϳ���
ʵ��ͼ�εĹ��������
    ����ʵ������:�½�һ������Form1,�ڹ�������˫��ͼ��ؼ�ͼ
��,�Ϳ��ڴ����Ͻ�����һ��ͼ���Image1;��Properties�����ô�ͼ
��������:
    Image1.AutoSize=true
    Image1.Stretch=False
    Image1.Left=0
    Image1.Top=0
    Image1.Picture�з���һ��Ҫ��ʾ��λͼ(bmp�ļ�,Ҳ�����ڳ�
��ִ�еĹ������Load Picture()�������),��ͼ����봰�������
�����Ǻ����Զ���ͼ�εĴ�С��ı�����Ĵ�С,��������ܳ���
����ķ�Χ�����ͼ�εĴ�С�����˴���ķ�Χ,��ô����������ʾ
������ֻ��ͼ�ε����ϲ���,���ಿ�ֲ�����ʾ,������Ȼ���ڡ����
Ҫ�뿴��ͼ�ε������,���ѡȡ�������д�ֱ��������ˮƽ����
�����ֱ���ڴ�����Ҳ���²ࡣ��Properties �����ù���������
��:
    Hscroll1.largeChange=1000(���ص�)
    Hscroll1.SmallChange=400
    Vscroll1.LargeChange=1000
    Vscroll1.SmallChange=400
    ���ͼ�εĿ�͸߷ֱ�����Hscroll1.Max��Vscroll1.Max��Ȼ��
�ֱ��ˮƽ�ʹ�ֱ�������������:
    Private Sub HScroll1_Change()
    Image1.Left=-HScroll1.Value
    End Sub
    Private Sub VScroll1_Change()
    Image1.Top=-VScroll1.Value
    End Sub
    ����,�ڳ���ִ�еĹ����,����굥��ˮƽ��ֱ������,�Ϳ�
��ʵ�ִ����ͼ�ε�ˮƽ��ֱ��������Ȼ,��ͼƬ��Ҳ����ʵ��ͬ
��Ĺ���,�������ơ�
    ͼ�ε�����
    ��VB��,ͼ��ؼ���һ�����������Stretch,����ͼ��ؼ�����
�����ԾͿ������׵�ʵ��ͼ������š�
    ����ʵ������:�ڴ����ϴ���һ��ͼ���Image1,��Properties��
����ͼ��������:Im age1.AutoSize=False,Image1.Stretch=True,
��Image1.Picture�з�����Ҫ��ʾ��ͼ�����(bmp�ļ�)������,λͼ
�ļ��ͻᰴ��ͼ���Ĵ�С��������,����Ӧͼ��Ĵ�С���ڳ���ִ
�еĹ����,�������߸ı���ͼ���Ĵ�С,��ôͼ����ڵ�ͼ��ͻ�
����ͼ���Ĵ�С�������š�

    �й�ͼ�����ϵ�ʵʱ��ʾ
    ������VB�Ļ�ؼ���,ͼƬ��Ҳ�������ڴ���Ĺ���,Ҳ����˵
������ͼƬ�����ٷ�������Ŀؼ�,������Щ�ؼ�������ͼƬ��һ��
�ƶ���������ɾ����Ӧ���ֲ���,���ʹ��һЩ���ϵ�ʵʱ��ʾ��
Ϊ���ܡ�
    ���ֲ���,Ҫ����ԭ��ͼ��ʵʱ����ʾ����һЩ��ҪԪ�����IJ�
����ϸ��·ͼ����Ҫ���á����滻�ı����ȡ�������Ҫ����ʾ��ͼ
�η��涼�Ƚϴ�,��������Ҫ����ǰ�����ͼ�ι�������ķ���װ
��ԭ��ͼ��ֻ���ڴ����Ͻ����IJ�����ͼ��ؼ�,��Ӧ����ͼƬ��Pi 
cture1,������������ϸ���һЩ����Ŀؼ���
    ��Picture1.Picture�з�����Ҫ��ʾ��ͼ�����(bmp�ļ�)����
ԭ��ͼװ��֮��,��һ
    Щ��Ҫ��Ԫ�����Ϸ���һϵ��͸���ı�ǩLabeln(n����ǩ����
��),������������:La beln.BackStyle=0(͸����ʾ),Labeln.Border
Style=0(��ʾ��ǩû�б߿�);����,���ʵ���λ�÷���һϵ�в�͸��
��ǩLabelm(m<>n),��Щ��ǩ����������ʾһЩ�򵥵���Ϣ����ǩ��
������������:Labelm.BackStyle=1(��͸����ʾ),Labelm.BorderSty
le=1(��ʾ��ǩ�б߿�),Labelm.BackColor=&H00FFFF(��ʾ��ǩ�ı�
��ɫΪ��ɫ),Labelm.Visible=0(��ǩ�ڿ�ʼʱ���ɼ�)��
    ��Labelm.Caption������д��Ҫ��ʾ�ļ�Ҫ����˵��,����"F159
6ģ��˷���"��,
    Ȼ�����Щ��ǩ��д���³���:
    Private Sub Labeln_MouseMove(Button As Integer,Shift As 
Integer,X As Single ,Y AsSingle)
      If(X>0 And X<Width)And(Y>0 And Y<Heigh)
      Then
    Labelm.Visible=True
      Else
    Labelm.Visible=False
      End If
    End Sub
    'X��Y�ֱ�Ϊ��굱ǰλ�õĺᡢ�����ֵ
    'Width��Heigh�ֱ�Ϊ��ǩLabeln�Ŀ�Ⱥ͸߶�
        Private Sub labeln_Click()
    Form1.Image1.Picture=LoadPicture "c:\vb\dy\bmps\bl.bmp"
     Form1.Show
    End Sub
    'b1.bmpΪ��ҪԪ������һЩ˵���͵�·ͼ
    ����,�������ԭ��ͼ�е���ҪԪ�����ϻ���ʱ,һЩ�򵥵�����
˵������ʾ�ͻ���ʾ����;���������ʱ,˵������ʾ�ͻ���ʧ������
ԭ��ͼ�е���ҪԪ�����ϵ���������ʱ,�ͻ������ӦԪ��������
ϸ��·ͼ����ϸ˵��;����ԭ��ͼ������һ�㵥��������,��ϸ��·
ͼ�ͻ���ʧ��ͨ�����Ϸ���,�Ϳ���ʵ����ͼƬ���ϸ���һЩ��ϸ��
˵�������ϡ�
    (����)

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]