home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / x_tal4 / demodll.frm < prev    next >
Text File  |  1993-08-28  |  3KB  |  111 lines
  1. VERSION 2.00
  2. Begin Form frmDemoDLL 
  3.    Caption         =   "XTAL.DLL Demo"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   105
  6.    ClientTop       =   690
  7.    ClientWidth     =   7365
  8.    Height          =   4710
  9.    Left            =   45
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   7365
  13.    Top             =   60
  14.    Width           =   7485
  15.    Begin CommonDialog CMDialog1 
  16.       CancelError     =   -1  'True
  17.       Left            =   135
  18.       Top             =   3405
  19.    End
  20.    Begin Label Label1 
  21.       Caption         =   "Warning: All changes are made to the original file. Make sure you have backed up your reports."
  22.       FontBold        =   -1  'True
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   12
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   1275
  29.       Left            =   1695
  30.       TabIndex        =   0
  31.       Top             =   450
  32.       Width           =   3405
  33.       WordWrap        =   -1  'True
  34.    End
  35.    Begin Menu mnuDemo 
  36.       Caption         =   "&Demo"
  37.       Begin Menu mnuGetLabelDimensions 
  38.          Caption         =   "&Label Dimensions..."
  39.       End
  40.       Begin Menu mnuGetReportDescriptions 
  41.          Caption         =   "&Report Title..."
  42.       End
  43.       Begin Menu mnuSetFaceName 
  44.          Caption         =   "&Font..."
  45.       End
  46.       Begin Menu sep1 
  47.          Caption         =   "-"
  48.       End
  49.       Begin Menu mnuExit 
  50.          Caption         =   "E&xit"
  51.       End
  52.    End
  53. End
  54. Option Explicit
  55.  
  56. Sub Form_Unload (Cancel As Integer)
  57.     Unload frmReadDescriptions
  58.     Unload frmGetSetDimen
  59. End Sub
  60.  
  61. Sub mnuExit_Click ()
  62.     Unload frmDemoDLL
  63. End Sub
  64.  
  65. Sub mnuGetLabelDimensions_Click ()
  66.   frmGetSetDimen.Show 1
  67. End Sub
  68.  
  69. Sub mnuGetReportDescriptions_Click ()
  70.     frmReadDescriptions.Show 1
  71. End Sub
  72.  
  73. Sub mnuSetFaceName_Click ()
  74.  
  75.     Dim saveErr As Integer
  76.     Dim fontFace As String
  77.     Dim nFontSize As Integer
  78.     Dim report As String
  79.     Dim errcode As Integer
  80.     
  81.     On Error Resume Next
  82.         cmdialog1.FontName = ""
  83.         cmdialog1.FontSize = 0
  84.         cmdialog1.Flags = CF_PRINTERFONTS
  85.         cmdialog1.Action = DLG_FONT
  86.         saveErr = Err
  87.     On Error GoTo 0
  88.     If saveErr <> 0 Then Exit Sub
  89.     MsgBox "Reminder: Font Style is not used.", 32
  90.     fontFace = cmdialog1.FontName
  91.     nFontSize = cmdialog1.FontSize
  92.     
  93.     cmdialog1.DialogTitle = "Select Report To Modify"
  94.     cmdialog1.Filename = ""
  95.     cmdialog1.Filter = "Reports (*.rpt) | *.rpt "
  96.     cmdialog1.FilterIndex = 1
  97.     cmdialog1.Flags = OFN_PATHMUSTEXIST
  98.     On Error Resume Next
  99.         cmdialog1.Action = DLG_FILE_OPEN
  100.         saveErr = Err
  101.     On Error GoTo 0
  102.     If saveErr <> 0 Then Exit Sub
  103.     mousepointer = 11
  104.     report = cmdialog1.Filename
  105.     SetFontAll report, fontFace, nFontSize, errcode
  106.     If errcode Then MsgBox Str$(errcode)
  107.     mousepointer = 0
  108.  
  109. End Sub
  110.  
  111.