🚀 go-pugleaf

    WINDOWS�µĺܶ����,����WIN 95��������,CSTAR��RICHWIN��
���β˵���WINDOWS�İ���ϵͳ�ȶ�������"���Ӷ���"��ѡ�����
�Ƿ񼤻������,���ǵĴ��ڶ���λ�������޴����õĴ��ڵ�ǰ��;
������A��B���д�����,��󼤻�ij���B��λ���ȼ���ij���A��ǰ
��,ͬʱA��B��λ�������޴�ѡ�����õ�ǰ�ˡ�
    ����������硷���ڵ�38��(1996��9��30��)��"ѧϰ��ʵ��"��
�е����˻ư�������¡�"���Ӷ���"���ڵ�ʵ�֡�(���¼�ƻ���)��
Ӧ��ָ��,���ַ����Dz���ʵ�ֵ�,�ر��������A��B��������ͬʱʹ
�û����еķ���,WINDOWS��æ�ڴ���A��B��������,�����A��B����
���򴰿�����Ļ�ϲ��ϵؽ�������,WINDOWS���޷��������¼���
    ������һʵ������˵�����ʹ��VB4.0ʵ�ֳ��Ӷ��˵Ĺ��ܡ���
���ӳ���ʵ����ʾһ��256ɫ��BMPͼƬ��ͼƬ�ļ����������и��
�����ñ�����,��������κξ���SHELL���ܵ�ϵͳ�е�����VB4.0��
�뱾������.EXE�ļ�����ʾ�κ�һ��ͼƬ,��ʹͼƬ�����ڵ��ó�
���ǰ�ˡ�
    ���岽������:

    1.����VB4.0;

    2.��Insert�˵���ѡ��Module,Ȼ�����һ��ΪModule1�Ĵ���,
����ڴ˴������������´���:Declare Sub SetWindowPos Lib"User
"(ByVal hWnd As Integer,ByVal hWndInser tAfter As Integer,By
Val X As Integer,ByVal Y As Integer,ByVal cx As Integer,ByV 
al cy as Integer,ByVal wFlags As Integer);

    3.�ر�Modulel����,˫��Form1����,������һForm1����,�ڹ��
���������´���:
    On Error Resume Next
    Form1.Picture=LoadPicture(Command)'Load bitmap.
    If Err Or Command=""Then
      Msg="Couldn't find the.BMP file."
      MsgBox Msg' Display error message.
      End 'Quit if error occurs.
    End If
    Form1.Caption=Command
    Form1.Height=Forml.Picture.Height*0.61
    Form1.Width=Forml.Picture.Width*0.57
    Form1.Left=1500
    Form1.Top=600
    Form1.Show
    setwindowpos Form1.hwnd,-1,0,0,0,0,3
    Form1.Show

    4.���������VB4.0�������д˳���,����Tools�˵���ѡProject
 option...ѡ��,��Co mmand Line Argument��������������ʾ��.bm
p�ļ���,�س���,��F5����ע��,���������ʹ��CSTAR��RICH-WIN,
����԰�ͼƬ�����ƶ���CSTAR��RICHWIN�����β˵��϶����β�
������;

    5.ѡ��File�˵���Make EXE File...,���������Ҫ�Ŀ�ִ����
��;
    ע��:��������ʹ�õ�BMPͼƬ�ļ�����Ϊ256ɫ,������Ӧ���޸�
0.61��0.57����������FoxPro2.6�¿����µ���!/n file.exe grap
h.bmp��
    ����file.exeΪ��������ɵ�.exe�ļ�,graph.bmpΪ���ͼƬ��
����
    ����setwindowpos��̵��÷�,����Դ�Virsual Basic 4.0��
������Windows3.1 SD K Help������,Ȼ�����setwindowpos���÷�
��

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