home *** CD-ROM | disk | FTP | other *** search
/ In'side Shareware 1995 April / ish0495.iso / update / truedic / truedic.pak / VB / TRUEDVB.FRM < prev    next >
Text File  |  1995-05-20  |  3KB  |  129 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   1200
  6.    ClientTop       =   1695
  7.    ClientWidth     =   6930
  8.    Height          =   4650
  9.    Left            =   1140
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4245
  12.    ScaleWidth      =   6930
  13.    Top             =   1350
  14.    Width           =   7050
  15.    Begin TextBox Text1 
  16.       FontBold        =   -1  'True
  17.       FontItalic      =   0   'False
  18.       FontName        =   "Arial Phonetik"
  19.       FontSize        =   8.25
  20.       FontStrikethru  =   0   'False
  21.       FontUnderline   =   0   'False
  22.       Height          =   2490
  23.       Left            =   900
  24.       MultiLine       =   -1  'True
  25.       TabIndex        =   3
  26.       Top             =   1260
  27.       Width           =   5415
  28.    End
  29.    Begin TextBox Stichwort 
  30.       Height          =   285
  31.       Left            =   900
  32.       TabIndex        =   2
  33.       Text            =   "aunt"
  34.       Top             =   855
  35.       Width           =   2715
  36.    End
  37.    Begin CommandButton ComDeuEng 
  38.       Caption         =   "Deutsch/Englisch"
  39.       Height          =   420
  40.       Left            =   4005
  41.       TabIndex        =   1
  42.       Top             =   225
  43.       Width           =   2715
  44.    End
  45.    Begin CommandButton ComEngDeu 
  46.       Caption         =   "Englisch/Deutsch"
  47.       Height          =   420
  48.       Left            =   630
  49.       TabIndex        =   0
  50.       Top             =   225
  51.       Width           =   2715
  52.    End
  53. End
  54. Declare Function ShowTrueDic Lib "TRCLIENT.DLL" (ByVal lpCmd As String, ByVal ilpCmd As Any, ByVal iBook As Integer, ByVal iReser As Integer) As Integer
  55. Dim lpCmdLine As String * 30
  56.  
  57. Sub ComDeuEng_Click ()
  58.  
  59.  
  60. ' ShowTrueDic(lpCmdLine, i3D, iBook, iNone)
  61. ' lpCmdLine = Headword
  62. ' i3D = 3D if True, False if not
  63. ' iBook BOOK_ENGLISH = 1, BOOK_GERMAN = 2
  64. ' iNone = for future things
  65.  
  66.     Dim lpCmdLine   As String * 40
  67.     
  68.     
  69.     i3D% = True
  70.     iBook% = 2
  71.     iNone% = 0
  72.  
  73.     lpCmdLine = Trim(Stichwort.Text)
  74.     ret = ShowTrueDic(lpCmdLine, i3D%, iBook%, iNone%)
  75.     
  76.     
  77.     If ret = 1017 Then ' ERSETZEN  text is on the clipboard
  78.     
  79.     MsgBox "Ersetzen was pressed"
  80.     Text1.Text = Clipboard.GetText(CF_TEXT)
  81.  
  82.     End If
  83.     
  84.     If ret = 2 Then ' IDCANCEL
  85.     MsgBox "Cancel was pressed"
  86.     End If
  87.                
  88.  
  89.  
  90. End Sub
  91.  
  92. Sub ComEngDeu_Click ()
  93.  
  94. ' ShowTrueDic(lpCmdLine, i3D, iBook, iNone)
  95. ' lpCmdLine = Headword
  96. ' i3D = 3D if True, False if not
  97. ' iBook BOOK_ENGLISH = 1, BOOK_GERMAN = 2
  98. ' iNone = for future things
  99.  
  100.     Dim lpCmdLine   As String * 40
  101.     
  102.     
  103.     i3D% = True
  104.     iBook% = 1
  105.     iNone% = 0
  106.  
  107.     lpCmdLine = Trim(Stichwort.Text)
  108.     ret = ShowTrueDic(lpCmdLine, i3D%, iBook%, iNone%)
  109.     
  110.     
  111.     If ret = 1017 Then ' ERSETZEN  text is on the clipboard
  112.     
  113.     MsgBox " <Ersetzen> was pressed"
  114.     Text1.Text = Clipboard.GetText(CF_TEXT)
  115.  
  116.     End If
  117.     
  118.     If ret = 2 Then ' IDCANCEL
  119.     
  120.     MsgBox " <Schlie▀en> was pressed"
  121.     
  122.     End If
  123.                
  124.  
  125.  
  126.  
  127. End Sub
  128.  
  129.