home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cmdlg2 / dialogs.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  6.3 KB  |  172 lines
  1. VERSION 2.00
  2. Begin Form Dialogs 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Common Dialogs Made in VB"
  5.    ClientHeight    =   3780
  6.    ClientLeft      =   90
  7.    ClientTop       =   645
  8.    ClientWidth     =   6705
  9.    Height          =   4470
  10.    Icon            =   DIALOGS.FRX:0000
  11.    Left            =   30
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   3780
  15.    ScaleWidth      =   6705
  16.    Top             =   15
  17.    Width           =   6825
  18.    Begin Menu mnuDemo 
  19.       Caption         =   "&Demo"
  20.       Begin Menu mnuFOpen 
  21.          Caption         =   "File &Open"
  22.       End
  23.       Begin Menu mnuFSave 
  24.          Caption         =   "File &Save"
  25.       End
  26.       Begin Menu mnuFonts 
  27.          Caption         =   "&Fonts"
  28.       End
  29.       Begin Menu mnuPrinter 
  30.          Caption         =   "&Printer"
  31.          Begin Menu mnuPSetup 
  32.             Caption         =   "Printer Setup"
  33.          End
  34.          Begin Menu mnuPDoc 
  35.             Caption         =   "Print Doc Setup"
  36.          End
  37.       End
  38.       Begin Menu mnuColors 
  39.          Caption         =   "&Colors"
  40.       End
  41.       Begin Menu mnuSep 
  42.          Caption         =   "-"
  43.       End
  44.       Begin Menu mnuExit 
  45.          Caption         =   "E&xit"
  46.       End
  47.    End
  48. Rem Demo for accessing Win 3.1 Common Dialogs
  49. Rem Author: Costas Kitsos, CIS 73667,1755
  50. Rem Revision: 1.00.00, July 4 1992
  51. Rem Modified: L.J. Johnson, CIS 70700,1334
  52. Rem Revision: 1.10.00, July 25 1992
  53. DefInt A-Z
  54. Sub mnuColors_Click ()
  55.     ' ----------------------------------------------------
  56.     ' Res% = 0 means everything OK
  57.     ' Res% = 1 means couldn't allocate global memory
  58.     ' Res% = 2 means couldn't lock global memory
  59.     ' Res% = 3 means had error returned from common dialog
  60.     ' CError& tells you WHAT error if Res% = 3
  61.     ' ----------------------------------------------------
  62.     Flags& = CC_RGBINIT Or CC_FULLOPEN
  63.     Res% = PColors%(Dialogs, CError&, Flags&)
  64.     ' ----------------------------------------------------
  65.     If CError& <> 0 Then
  66.         Msg$ = CmdError$(x&)
  67.         MsgBox Msg$, 32, "DIALOGS"
  68.     End If
  69. End Sub
  70. Sub mnuExit_Click ()
  71.     End
  72. End Sub
  73. Sub mnuFonts_Click ()
  74.     ' ----------------------------------------------------
  75.     ' Res% = 0 means everything OK
  76.     ' Res% = 1 means couldn't allocate global memory
  77.     ' Res% = 2 means couldn't lock global memory
  78.     ' Res% = 3 means had error returned from common dialog
  79.     ' FError& tells you WHAT error if Res% = 3
  80.     ' ----------------------------------------------------
  81.     FontType% = SCREEN_FONTTYPE
  82.     Flags& = CF_SCREENFONTS Or CF_EFFECTS
  83.     Res% = PFonts%(Dialogs, FError&, Flags&, FontType%)
  84.     ' ----------------------------------------------------
  85.     If FError& <> 0 Then
  86.         Msg$ = CmdError$(x&)
  87.         MsgBox Msg$, 32, "DIALOGS"
  88.     End If
  89. End Sub
  90. Sub mnuFOpen_Click ()
  91.     ' ----------------------------------------------------
  92.     ' Res% = 0 means everything OK
  93.     ' Res% = 1 means couldn't allocate global memory
  94.     ' Res% = 2 means couldn't lock global memory
  95.     ' Res% = 3 means had error returned from common dialog
  96.     ' FError& tells you WHAT error if Res% = 3
  97.     ' ----------------------------------------------------
  98.     Filter1$ = "VB Files" + Chr$(0) + "*.frm;*.bas;*.mak" + Chr$(0)
  99.     Filter2$ = "Text Files" + Chr$(0) + "*.txt;*.doc" + Chr$(0)
  100.     Filter$ = Filter1$ + Filter2$ + Chr$(0)
  101.     Index% = 1
  102.     Flags& = OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY Or OFN_PATHMUSTEXIST
  103.     IDir$ = CurDir$ + Chr$(0)
  104.     Title$ = "MyApp's File Open" + Chr$(0)
  105.     Res% = PFileOpen%(Dialogs, FError&, Filter$, IDir$, Title$, Index%, Flags&)
  106.     ' ----------------------------------------------------
  107.     If FError& <> 0 Then
  108.         Msg$ = CmdError$(x&)
  109.         MsgBox Msg$, 32, "DIALOGS"
  110.     End If
  111. End Sub
  112. Sub mnuFSave_Click ()
  113.     ' ----------------------------------------------------
  114.     ' Res% = 0 means everything OK
  115.     ' Res% = 1 means couldn't allocate global memory
  116.     ' Res% = 2 means couldn't lock global memory
  117.     ' Res% = 3 means had error returned from common dialog
  118.     ' FError& tells you WHAT error if Res% = 3
  119.     ' ----------------------------------------------------
  120.     Filter1$ = "VB Files" + Chr$(0) + "*.frm;*.bas;*.mak" + Chr$(0)
  121.     Filter2$ = "Text Files" + Chr$(0) + "*.txt;*.doc" + Chr$(0) + Chr$(0)
  122.     Filter$ = Filter1$ + Filter2$ + Chr$(0)
  123.     IDir$ = CurDir$ + Chr$(0)
  124.     FileMask$ = "untitled.frm"
  125.     Title$ = "MyApp's File Save" + Chr$(0)
  126.     Index% = 1
  127.     Flags& = OFN_HIDEREADONLY Or OFN_PATHMUSTEXIST
  128.     Res% = PFileSave%(Dialogs, FError&, Filter$, IDir$, FileMask$, Index%, Title$, Flags&)
  129.     ' ----------------------------------------------------
  130.     If FError& <> 0 Then
  131.         Msg$ = CmdError$(x&)
  132.         MsgBox Msg$, 32, "DIALOGS"
  133.     End If
  134. End Sub
  135. Sub mnuPDoc_Click ()
  136.     ' ----------------------------------------------------
  137.     ' Res% = 0 means everything OK
  138.     ' Res% = 1 means some error from printer common dialog
  139.     ' Res% = 2 means no DeviceMode
  140.     ' Res% = 3 means couldn't get address of GlobalLock
  141.     ' PError& tells you WHAT error if Res% = 1
  142.     ' ----------------------------------------------------
  143.     Flags& = PD_RETURNIC Or PD_HIDEPRINTTOFILE Or PD_NOSELECTION
  144.     FPage% = 1
  145.     TPage% = 12
  146.     Min% = 1
  147.     Max% = 12
  148.     Copies% = 1
  149.     Res% = PPrinter%(Dialogs, PError&, Flags&, FPage%, TPage%, Min%, Max%, Copies%)
  150.     ' ----------------------------------------------------
  151.     If PError& <> 0 Then
  152.         Msg$ = CmdError$(x&)
  153.         MsgBox Msg$, 32, "DIALOGS"
  154.     End If
  155. End Sub
  156. Sub mnuPSetup_Click ()
  157.     ' ----------------------------------------------------
  158.     ' Res% = 0 means everything OK
  159.     ' Res% = 1 means some error from printer common dialog
  160.     ' Res% = 2 means no DeviceMode
  161.     ' Res% = 3 means couldn't get address of GlobalLock
  162.     ' PError& tells you WHAT error if Res% = 1
  163.     ' ----------------------------------------------------
  164.     Flags& = PD_PRINTSETUP
  165.     Result% = PSetup%(Dialogs, PError&, Flags&)
  166.     ' ----------------------------------------------------
  167.     If PError& <> 0 Then
  168.         Msg$ = CmdError$(x&)
  169.         MsgBox Msg$, 32, "DIALOGS"
  170.     End If
  171. End Sub
  172.