��Լ��Ļ��

Article View: cn.bbs.comp.program

Article #1252

Back to cn.bbs.comp.program Previous Next

#1252

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

75 lines
4446 bytes

  ��Ļ�������򲻽������ڱ�����Ļ,��ʱ�����������ƣ�͡���
���Լ�������;����Լ��������Ļ��������Ļ�,����������벻
����Ч�����,��ļ�������Ϸ��,�����������ֳ�������Ϸ֮
��,��������һ����Ļ��������,�����ڵ���ǰ��˼ڤ��ʱ,ͻȻ��
Ļ�ϳ��ִ��ֱ���:���ж���ǿ������ܱȿ�����ĵ�Ȱ����и�
����������,����Խ�����¼������Ļ��������,����,���Ի���ʱ��
����Ҫ��������,��һ�����á�
    Ϊ��ǿWindows��Ļ���������Ч��,��������Windows��������
��API����,������������,���ɼӽ�߷ֱ���λͼ,�����ܶ�,���߿�
�Ը���Լ�ϲ�ò��á��������һ����򵥵���Ļ��������
    ��VB�����һ������:form1;һ���༭��:text1,���Ա༭�޸ı�
��¼���߱���;һ���ı���:label1,������ʾ����¼����ֻҪ��
��form1��keypreview����Ϊtrue,��������Ϊȱʡֵ�������嵥��
��
    ���˳�������.exe�ļ������Ϊ.scr�ļ�,copy����ǰʹ�õ�W
indowsĿ¼��SystemĿ¼��,���ڿ��������ѡ����(�����Windows 
3.x,����Ҫ�ֶ��޸�WindowsĿ¼�µ�System .ini��"SCRNSAVE.EXE=
"���,���������ܹ�ѡ���ó���)������������Ļ��������Ŀ�
���Ͱ�װ��
    ������VB4.0��DELPHI2.0��3DS�������˲��ְ�����ý��
����Ļ��������,ȡ�������õ�Ч��;��ƪ������,����ȫ��������
       Modulel-1
       Type mytextstr
       textstr As String * 500
       ����������ļ����ַ�ṹ
       End Type
      Form1-1
      Dim text1str As mytextstr
      Private Sub Form_KeyDown(KeyCode As Integer,Shift As I
nteger)
      If Shift Then
        ���û���SHIFT���
      If KeyCode=27 Then
        '�ٰ�ESC��
    Text1.Visible=True
    'Ϊ�༭����¼���߱���
    Text1.SetFocus
      End If
      End If
     '�û����κ�SHIFT+ESC����ļ����˳���Ļ����
       End Sub
       Private Sub text1_KeyPress(KeyAscii As Integer)
       If KeyCode=13 Then
       '�ڱ༭���а��س������
       text1str.textstr=Text1.Text
        'ȡ��ṹ
       Open "c:\Windows\dxcscr.ini" For Random As #1
     '���̱��´�ʹ��
      put #1,1,text1str
      Close #1
        End If
        End Sub
        Private Sub Form_Load()
     '��Ļ��������
    If Dir("c:\dxcscr.ini")<>Empty Then
       '�ж������ϴδ��̵ļ�¼
       Open "c:\Windows\dxcscr.ini" For Random As #1
    '��,��ȡ��
     Get #1,1,text1str
      Close #1
      Labell.Caption=text1str.textstr
       Else
      Labell.Caption=Text1.Text
     '��,��ȡԭʼ�趨
       End If
       End Sub
       Private Sub Form_MouseMove(Button As Integer,Shift As
 Integer,X As Singl e, Y As Single)
       End
      '�û��ƶ����,������Ļ����
       End Sub

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

Technical Details

Message-ID: <3O9iIL$tj5@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,2377f68a702be8fc,start
X-Google-Attributes: gidfc86e,public
From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ)
Subject: �����Լ�����Ļ��������
Date: 1998/04/18
Message-ID: <3O9iIL$tj5@bbs.nju.edu.cn>
X-Deja-AN: 345408755
X-Filename: Programming/M.892911477.A
Organization: nju_bbs
Newsgroups: cn.bbs.comp.program

Article View: cn.bbs.comp.program

�����Լ�����Ļ��������

��Լ��Ļ��