��Լ��Ļ��

Thread View: cn.bbs.comp.program

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by ��ܵ�Сʨ Sat, 18 Apr 1998 00:00

#1252

Author: ��ܵ�Сʨ
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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads

Thread View: cn.bbs.comp.program

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

Thread Navigation

��Լ��Ļ��