求vb调用pb写的com组件源码

Question

vb调用pb写的com组件

Answer 1

既然是com，调用都大同小异，注意数据类型的对应关系。

Answer 2

工程-引用-浏览
找到dll，加入Dim obj As New LibName.ClassName
obj.MethodName(xxx, xxx)

Answer 3

不好意思，自己搞定了
Private Sub Command1_Click()
    Dim ls_cardid As String, ls_id As String, ls_errtext As String
    Dim li_xb As Integer, ldt_csrq As Date
 
    Set o = CreateObject("PB90.u_interface_ydzx")
    If o Is Nothing Then
        MsgBox "连接到com组件失败", vbCritical, "错误"
        Exit Sub
    End If
    ls_cardid = "111000487960000"
    If o.uf_getpatientinfo(ls_cardid, ls_id, li_xb, ldt_csrq) < 0 Then
        ls_errtext = o.uf_geterrtext()
        MsgBox ls_errtext, vbCritical, "错误"
    End If
    MsgBox "ID:" & ls_id & "性别:" & li_xb & "出生日期:" & ldt_csrq
    Unload Me
End Sub