|
|
|
| 获取所有打印纸张格式的方法 2002-09-18 |
下面的代码演示在VB里如何获取与Windows操作系统打印机属性里一样多的打印纸张格式Private Sub Command1_Click() WQL = "Select * From Win32_Printer" Set objinst = GetObject("winmgmts:").ExecQuery(WQL) For Each obj In objinst...[全部内容] |
|
| 使用文字做为窗体的形状 2002-09-13 |
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal b...[全部内容] |
|
| 使用文字做为窗体的形状 2002-09-13 |
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal b...[全部内容] |
| |
| |
|
