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