标题:急呀,关于外部引用问题 兄弟请进看看谢谢
取消只看楼主
yts111
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-5-17
 问题点数:0 回复次数:2 
急呀,关于外部引用问题 兄弟请进看看谢谢

Private Declare Function getdata Lib "sgid.dll" Alias "_GetData@4" (ByVal s As String) As Boolean//这是VB的对sgid.dll的外部引用方法;
Dim n As Long
Dim fp As Long
Dim file1 As String
Dim b As Boolean
Dim s As String * 40
List1.Clear
n = getdatanum(mm, nn)
If n > 0 Then
fp = FreeFile
file1 = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00") + ".txt"
Open App.Path & "\" & file1 For Append As fp

aaa: b = getdata(s)
If b = False Then
GoTo endd
End If
Print #fp, s
List1.AddItem (s)
GoTo aaa
Else
If n = 0 Then
List1.AddItem ("无数据")
Else
List1.AddItem ("错误")
End If
Exit Sub
endd:
Close fp

End If//这是对VB通过调用那个动态库的函数。。。。。。。
现在问题是,我C#写该怎么写,各位,指点指点呀。谢谢,,给个大概或者代码,可以吗,谢谢了

搜索更多相关主题的帖子: Dim 兄弟 String Date 
2006-11-30 09:11
yts111
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-5-17
得分:0 
主要是这个getdata这个函数的调用操作。。

希望能和大家交流一起进步我的QQ:274405946 欢迎加我
2006-11-30 09:12
yts111
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2006-5-17
得分:0 
那该怎么办?

希望能和大家交流一起进步我的QQ:274405946 欢迎加我
2006-11-30 09:25



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-106261-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.176695 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved