别的控件也可以!!!
解决方案 »
- vb图书管理系统的问题
- 关于获得菜单句柄,求救!
- GetSetting SaveSetting 函数用法
- vb 演示动画
- 100分求解,自动调整MSHFlexGrid中的字段宽度??
- 如何获得文件夹中.txt修改的时间?
- 春节快乐,散分+发布SuperPlayer 1.5春节版
- 谁有上传文件组件的原代码???
- 在VB中如何让窗体成为像windows登录那样的窗体,Thank you.
- 他只会用几个简单的控件,连API是什么都不懂, 就说精通VB了我真是不知怎样说他!
- 100分:详细讲出ActiveX DLL 与Active Control 这两个new project有什么不同。
- Grid总行数问题?
Option Explicit
Private FS As New FAXCOMLib.FaxServer
Private FD As New FAXCOMLib.FaxDoc
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' ·¢ËÍ´«Õæ·½·¨£¬´«ÈëÒ»¸ö·¢ËÍÎļþ·¾¶£¬»¹ÓÐÄ¿±êºÅÂë
' Dim tmpFaxFile As String
' tmpFaxFile = App.Path & "\LastFax.doc"
' m_CrReport.ExportOptions.FormatType = crEFTExactRichText
' m_CrReport.ExportOptions.DestinationType = crEDTDiskFile
' m_CrReport.ExportOptions.DiskFileName = tmpFaxFile
' m_CrReport.DisplayProgressDialog = False
' m_CrReport.Export False
' frmFax01.SendDoc = tmpFaxFile
' frmFax01.ShowForm
Public Function SendFax(SendDocPath As String, SendNumber As String) As String
On Error GoTo Err_Conn
FS.Connect (ComputerName) ' My Computer's name
On Error GoTo Err_Catch
Set FD = FS.CreateDocument(SendDocPath)
FD.FileName = SendDocPath
FD.FaxNumber = SendNumber ' Fax number
FD.DisplayName = SendNumber
FD.DiscountSend = 0
FD.SendCoverpage = 0
FD.Send
Err_Catch:
GoTo ExitFunc
Err_Conn:
GoTo ExitFunc
ExitFunc:
If Err.Description <> "" Then
SendFax = Err.Description
Else
SendFax = "0"
End If
On Error Resume Next
FS.Disconnect
End Function
Public Function Init() As String
' ³õʼ
On Error GoTo Err_Catch
FS.Connect (ComputerName) ' My Computer's name
Init = "0"
GoTo ExitFunc
Err_Catch:
Init = "³õʼ´«Õæ»úʧ°Ü,ÇëÈ·¶¨ÊÇ·ñ×°Óд«Õæ»ú"
Debug.Print Err.Description
ExitFunc:
End Function
Private Property Get ComputerName() As String
Dim dwLen As Long
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, " ")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
End Property