home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / various / undo / undo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-27  |  2.0 KB  |  77 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Undo f
  4. r Basic Professionell von Klaus Rambow"
  5.    ClientHeight    =   1920
  6.    ClientLeft      =   2190
  7.    ClientTop       =   3570
  8.    ClientWidth     =   6450
  9.    Height          =   2850
  10.    Left            =   2130
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1920
  13.    ScaleWidth      =   6450
  14.    Top             =   2700
  15.    Width           =   6570
  16.    Begin TextBox Text2 
  17.       Height          =   312
  18.       Left            =   3300
  19.       TabIndex        =   1
  20.       Text            =   "R
  21. ngig nicht m
  22. glich"
  23.       Top             =   480
  24.       Width           =   2532
  25.    End
  26.    Begin ComboBox Combo1 
  27.       Height          =   288
  28.       Left            =   360
  29.       TabIndex        =   2
  30.       Text            =   "Combo1"
  31.       Top             =   1080
  32.       Width           =   2532
  33.    End
  34.    Begin TextBox Text1 
  35.       Height          =   288
  36.       Left            =   360
  37.       TabIndex        =   0
  38.       Text            =   "Text1"
  39.       Top             =   480
  40.       Width           =   2532
  41.    End
  42.    Begin Menu mnu_ende 
  43.       Caption         =   "&Ende"
  44.    End
  45.    Begin Menu mnu_edit 
  46.       Caption         =   "E&dit"
  47.       Begin Menu mnu_undo 
  48.          Caption         =   "&Undo"
  49.          Shortcut        =   ^Z
  50.       End
  51.       Begin Menu mnu_leer 
  52.          Caption         =   "Puffer &leeren"
  53.          Shortcut        =   ^L
  54.       End
  55.    End
  56. Sub mnu_ende_Click ()
  57.     End
  58. End Sub
  59. Sub mnu_leer_Click ()
  60.     x& = SendMessage&(GetFocus(), EM_EMPTYUNDOBUFFER, 0, 0)  'l
  61. scht Puffer bei aktuellem Control
  62. End Sub
  63. Sub mnu_undo_Click ()
  64.     If SendMessage&(GetFocus(), EM_CANUNDO, 0, 0) = 0 Then
  65.         MsgBox "Zur
  66. cknahme der letzten 
  67. nderung leider nicht m
  68. glich.", 64, "UNDO"
  69.         Exit Sub
  70.     End If
  71.     x& = SendMessage&(GetFocus(), EM_UNDO, 0, 0)
  72. End Sub
  73. Sub Text2_Change ()
  74.     x& = SendMessage&(text2.hWnd, EM_EMPTYUNDOBUFFER, 0, 0)   'l
  75. scht Puffer von Text1
  76. End Sub
  77.