[原创]百宝箱4.0简体2003

ljfgbf

再次提问 希望回答

andysky

QUOTE:

以下是引用ljfgbf在2008-1-21 17:11:45的发言：
再次提问 希望回答

Option Explicit
Dim STlen As Long, STf As String, str As String, STj As String
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Public Function JToF(ByVal str As String) As String
Dim STlen As Long, STf As String
STlen = lstrlen(str)
STf = Space(STlen)
LCMapString &H804, &H4000000, str, STlen, STf, STlen
JToF = STf
End Function
Public Function FToJ(ByVal str As String) As String
Dim STlen As Long, STj As String
STlen = lstrlen(str)
STj = Space(STlen)
LCMapString &H804, &H2000000, str, STlen, STj, STlen
FToJ = STj
End Function

[此贴子已经被作者于2008-1-21 17:16:04编辑过]

ljfgbf

已经收藏，正在研究中，十分感谢

ljfgbf

楼主是调用的动态链接库的函数啊

那应该可以在Windows Api中可以查看相关的函数帮助吧？

andysky

重新编辑过

请下载过的朋友重新下载

little-key

不是已经出5.0了吗？楼主的书出版了吗？

andysky

QUOTE:

以下是引用little-key在2008-1-22 9:44:21的发言：
不是已经出5.0了吗？楼主的书出版了吗？

书都已经印刷完毕。百宝箱5.0也早已完工。目前在筹划6.0

不过出版社说过完年后再发货，现在是淡季。

所以一切都年后再说（百宝箱5.0只随书发送）。

wyshzq

太好了，就不知道制作底端标题能不能输入内容了[em20][em23]

andysky

QUOTE:

以下是引用wyshzq在2008-1-22 16:27:11的发言：
太好了，就不知道制作底端标题能不能输入内容了[em20][em23]

底端标题是不能输入内容的。

只能输入一个数字，表示将倒数第几行设置为顶端标题。

wyshzq

底端标题知道怎么用了