易截截图软件、单文件、免安装、纯绿色、仅160KB

VB传递参数给dll

Dll是用VC写的, 其函数原型为:
extern  "C" BOOL PASCAL EXPORT StarConventionCheck(LPVOID strarTime,LPVOID overtime,BOOL isTimeFlag )

我用VB传参数是这们传的:
Public Declare Function StarConventionCheck Lib "NetInf.dll" (StartTime As String, EndTime As String, ByVal isTimeFlag As Integer) As Long

Private Sub cmdCheckComHis_Click()
    Dim Return_RevComm As Long
    Dim hwnd_lng As Long
    Dim StartTime As SYSTEMTIME
    Dim EndTime As SYSTEMTIME
    Dim Byte_BeginTime(64) As Byte
    Dim Byte_EndTime(64) As Byte
    Dim FileTime_BeginTime As FILETIME
    Dim FileTime_EndTime As FILETIME
   
    With StartTime
        .wYear = CheckBeginData.Year
        .wMonth = CheckBeginData.Month
        .wDay = CheckBeginData.Day
       
        .wHour = 0
        .wMinute = 0
        .wSecond = 0
        .wMilliseconds = 0
    End With
   
    With EndTime
        .wYear = CheckEndData.Year
        .wMonth = CheckEndData.Month


相关问答:

VB 的 PictureBOX 控件绘图问题 - VB / 控件

初学,大胆提问,请高手不吝赐教
1、滚动条点击与绘图板(屏幕,Piceure1)的移动问题已经解决。
  Picture1.Top = -VScroll1.Value + bcW '垂直移动
  Picture1.Left = -HScroll1.Value + bcW ' ......

初学vb,请各位大虾给点建议 - .NET技术 / VB.NET

刚接触vb6.0,有些摸不到的感觉,敬请各位大虾给点建议!!!
不会吧,推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。

如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......

vb crystalreport - .NET技术 / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()
  Dim ClearTempTabelSQL As String
  'If Not ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号