求高手帮忙把这段VB代码翻译成易语言的代码

sktyou

下面的这段代码是网络上的一个朋友用VB.NET写的，自己不会VB故请论坛的大虾们

帮忙把我这段VB代码转换成易语言的！  中间涉及到的OCX组件已经打包到附件里面了！



Imports LabelManager2

    Public CSapp As LabelManager2.Application
    Public CSdoc As LabelManager2.Document
    Public CSvars As LabelManager2.Variables
    Dim label_dt As DataTable
    Public Function ServerStart() As Boolean 'lab_object建立及error检测
        Dim LastErr&
        'On Error Resume Next ' catch errors
        CSapp = New LabelManager2.Application 'implements object
        'Set MYDOC = MyApp.ActiveDocument
        LastErr = Err.Erl ' store resulting error code
        On Error GoTo 0 ' returns to normal error trapping
        Select Case LastErr ' depending on error code...
            Case 0 ' no error, return true
                ServerStart = True
            Case 429 ' OLE common error, display special message
                MsgBox("Cannot find or start OLE server, please check its registration.", vbCritical)
            Case Else ' for other errors, use VB error processing
                Err.Raise(LastErr)
        End Select
    End Function
    Public Sub NAR(ByVal o As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
        Catch
            MessageBox.Show("无法释放 " & o & " 物件")
        Finally
            o = Nothing
        End Try
    End Sub
    Private Sub CS_Print_Label(ByVal label_path As String)
        If ServerStart() = True Then
            CSdoc = CSapp.Documents.Open(label_path, False) 'lable档的object
            CSvars = CSdoc.Variables
            If CSvars Is Nothing Then
                MessageBox.Show("CS Lalel doesn't exsit")
                Exit Sub
            End If
            Dim Other_str, Lan_Model As String
            Other_str = Me.TextBox_Other.Text.ToString.ToUpper
            Lan_Model = Me.ComboBox1.Text.ToString

            ‘这里是给Dt赋值，动态调用数据库数据
            Sql = "Select * Form tabel_name"
            label_dt = Run_SQL(Sql).Tables(0)
            If label_dt.Rows.Count = 0 Then
                Info_Msg_Box("数据不存，不能打印!")
                Return
            End If

            '选择打印机,根据你的需要，可省略
            CSapp.Dialogs.Item(enumDialogType.lppxPrinterSelectDialog).Show()

            '填充器的value
            '注意了，上面是给dt赋值，在这里要把dt 的数据传给标签,
            '我这里用的是For 循环赋值三行就搞定，切记---dt子段名称必须和label 子段名一致，否则赋值不成功。
            '如果你不想用循环也可以，那就这样写吧，CSdoc.Variables.FormVariables.Item("字段名").Value=label_dt.Rows(0)("字段名")
            '不过有20行，你就要写20行了!
            For i As Integer = 1 To CSdoc.Variables.FormVariables.Count
                CSdoc.Variables.FormVariables.Item(i).Value = label_dt.Rows(0)(CSdoc.Variables.FormVariables.Item(i).Name).ToString
            Next
            '列印一张
            CSdoc.PrintDocument(1)
            CSdoc.FormFeed() '结束列印
            CSdoc.Close(True)
            '全部关闭
            CSapp.Documents.CloseAll()
            CSapp.Quit()'这句很重要，不然会lppa.exe进程关不掉，打印一次多一个

            'CSdoc = Nothing
            'CSvars = Nothing
            NAR(CSvars)
            NAR(CSdoc)
            NAR(CSapp)
            GC.Collect(0)
        End If
    End Sub


Lppx2.zip (15.58 KB, 下载次数: 16)

2011-8-30 22:04 上传

点击文件名下载附件

小生怕怕啊

建议 LZ 直接说 你想要 什么程序的源码    翻译这段英文还不如用E重新写一个.

易小兵

看到多英文 头晕了{:3_226:}

sktyou

VB的难道是中文的~~~~~~~~~~

sktyou

qq578023708 发表于 2011-8-30 22:35
建议 LZ 直接说 你想要 什么程序的源码    翻译这段英文还不如用E重新写一个.

这段VB的代码就是 一个用VB程式写的操作外部程序OCX的代码，我想翻译过来看他怎么用E去操作这个外部程序   外部程序的名字  codesoft 条形码软件 6.0  

渲染离别

啊~~~我的眼睛.....抱歉楼主，我帮不上你的忙了，我只会易语言，不会洋文！{:3_234:}

小生怕怕啊

直接去 精币定做区  发布  条形码 软件  定做 即可.

sktyou

qq578023708 发表于 2011-8-30 22:47
直接去 精币定做区  发布  条形码 软件  定做 即可.

可是我这个，还要发好多的帖子才能去申请定做哦，我对比了一下，C#   VB 的代码貌似都差不多，易的代码就有点点差别了，~

sktyou

希望那位会VB及易的朋友帮忙翻译一下~

小生怕怕啊

表示无能为力  {:3_233:}