如何实现类似“记事本”的“页面设置”.txt

VB技巧问答10000例 VB技巧问答10000例

记 事 本 实 际 是 调 用 了 Win32 API的 PageSetupDlg函 数 。 这 个 函 数 的 定 义 在 win32api.txt中 可 以 找 到 。 
    例 子 ： 
    先 加 入 一 个 模 块 ， 输 入 以 下 代 码 ： 
    Type POINTAPI 
     x As Long 
     y As Long 
    End Type 
     
    Type RECT 
     Left As Long 
     Top As Long 
     Right As Long 
     Bottom As Long 
    End Type 
     
    Type PageSetupDlg 
     lStructSize As Long 
     hwndOwner As Long 
     hDevMode As Long 
     hDevNames As Long 
     flags As Long 
     ptPaperSize As POINTAPI 
     rtMinMargin As RECT 
     rtMargin As RECT 
     hInstance As Long 
     lCustData As Long 
     lpfnPageSetupHook As Long 
     lpfnPagePaintHook As Long 
     lpPageSetupTemplateName As String 
     hPageSetupTemplate As Long 
    End Type 
    Public psdlg As PageSetupDlg 
    Declare Function PageSetupDlg Lib "comdlg32.dll" Alias "PageSetupDlgA" (pPagesetupdlg As PageSetupDlg) As Long 
    然 后 输 入 ： 
    Private Sub Command1_Click() 
     
     psdlg.lStructSize = Len(psdlg) 
     psdlg.hwndOwner = hWnd 
     PageSetupDlg psdlg 
    End Sub 
<END>