��̸"��Ӷ��"��ڵ�ʵ��

Article View: cn.bbs.comp.program

Article #1215

Back to cn.bbs.comp.program Previous Next

#1215

From: ��ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00

63 lines
4405 bytes

    WINDOWS�µĺܶ����,����WIN 95��������,CSTAR��RICHWIN��
���β˵���WINDOWS�İ���ϵͳ�ȶ�������"���Ӷ���"��ѡ�����
�Ƿ񼤻������,���ǵĴ��ڶ���λ�������޴����õĴ��ڵ�ǰ��;
������A��B���д�����,��󼤻�ĳ���B��λ���ȼ���ĳ���A��ǰ
��,ͬʱA��B��λ�������޴�ѡ�����õ�ǰ�ˡ�
    ����������硷���ڵ�38��(1996��9��30��)��"ѧϰ��ʵ��"��
�е����˻ư�������¡�"���Ӷ���"���ڵ�ʵ�֡�(���¼�ƻ���)��
Ӧ��ָ��,���ַ����ǲ���ʵ�ֵ�,�ر��������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���÷�
��

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

Technical Details

Message-ID: <3O9RJF$tX2@bbs.nju.edu.cn>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: Chinese,GB
X-Google-Thread: fc86e,1e7fe37e1ad87ce1,start
X-Google-Attributes: gidfc86e,public
From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ)
Subject: ��̸"���Ӷ���"���ڵ�ʵ��
Date: 1998/04/18
Message-ID: <3O9RJF$tX2@bbs.nju.edu.cn>
X-Deja-AN: 345349541
X-Filename: Programming/M.892872351.A
Organization: nju_bbs
Newsgroups: cn.bbs.comp.program

Article View: cn.bbs.comp.program

��̸"���Ӷ���"���ڵ�ʵ��

��̸"��Ӷ��"��ڵ�ʵ��