VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 5396|回复: 13

[原创] 众里寻他千百度,蓦然回首,那人却在灯火阑珊处

[复制链接]
头像被屏蔽
发表于 2013-4-12 20:06:57 | 显示全部楼层 |阅读模式
提示: 作者被禁止或删除 内容自动屏蔽

本帖被以下淘专辑推荐:

头像被屏蔽
 楼主| 发表于 2013-4-13 12:33:52 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

发表于 2013-4-13 14:37:03 | 显示全部楼层
Otoboku 发表于 2013-4-13 12:33
@acme_pjz
这个嘛,我也试过,不知道为什么就是无效,你改出来看看,少很多转化的

少什么转化啊我已经改好了:
  1. Option Explicit

  2. Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
  3. Private Declare Function wvnsprintfW Lib "shlwapi.dll" (ByRef pszDest As Any, ByVal cchDest As Long, ByRef pszFmt As Any, ByRef arglist As Any) As Long

  4. Public Function sPrintf(ByVal cchDest As Long, ByVal Fmt As String, ParamArray Params()) As String
  5.     Dim RStr As String
  6.     Dim i As Long
  7.    
  8.     Dim pVar As Long
  9.     Dim ValVar() As Long
  10.    
  11.     If cchDest <= 0 Then Exit Function
  12.    
  13.     ReDim ValVar(UBound(Params))
  14.    
  15.     For i = 0 To UBound(Params)
  16.         pVar = VarPtr(Params(i))
  17.         CopyMemory ValVar(i), ByVal pVar + 8, 4
  18.     Next
  19.    
  20.     RStr = Space(cchDest)
  21.     i = wvnsprintfW(ByVal StrPtr(RStr), cchDest, ByVal StrPtr(Fmt), ValVar(0))
  22.    
  23.     sPrintf = Left(RStr, i)
  24. End Function

  25. Private Sub Command1_Click()
  26. MsgBox sPrintf(1024, "%s,%s,%s,%I64d,%08X,%f,End", "11", "22", "33", 44@, 55, 3.14, 6.28)
  27. End Sub
复制代码
不过不知道为什么,我和你这个都不支持浮点数(%f)的显示
回复 支持 反对

使用道具 举报

头像被屏蔽
 楼主| 发表于 2013-4-13 17:58:56 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

头像被屏蔽
 楼主| 发表于 2013-4-13 18:25:14 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

头像被屏蔽
 楼主| 发表于 2013-4-13 21:20:35 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

头像被屏蔽
 楼主| 发表于 2013-4-13 22:54:12 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

发表于 2013-4-14 10:27:04 | 显示全部楼层
这个难道是C的参数代入?

用数值直接替换字符串?
回复 支持 反对

使用道具 举报

头像被屏蔽
 楼主| 发表于 2013-4-14 10:32:27 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

头像被屏蔽
 楼主| 发表于 2013-4-14 12:44:09 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-26 03:19

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表