VisualFreebasic源碼交流主貼(函數,模塊共享)長期更新

逍遙愛迪生 2019-5-20 5270

大家有什么好的函數或源碼共享出來吧,自已寫太累了,有時很簡單的一個功能,你可能就得寫上幾小時幾天。

一人寫好,人人能用,多爽。

我是逍遙愛迪生,QQ 527524938,有需要軟件要開發的可以找我。

主要用VB6開發20來年,ASP,PHP,VBA,WORD,ACCESS都可以。

PYTHON,VB.NET也會開發一些。

也可以交流一些好的不錯的VB等語言的函數,注明什么編程語言。

字符串轉字節,從參數中返回結果

Sub DoStrToByteArr(ByVal S1 As String, bt() As Byte)

  Dim z As ZString Ptr

  ReDim bt(Len(S1) -1) 

  z = @bt(0) 

  *z = S1

  '相當于VB:

  'Dim bt() As Byte

  'bt = StrConv(S1, vbFromUnicode) 

End Sub


字節轉字符串

Function ByteArrToStr( bt() As Byte) As String  

Dim sSave As ZString Ptr

sSave = @bt(0) 

Return *sSave

'相當于VB的

'dim S2 As String

'S2 = StrConv(bt, vbUnicode)

End Function


因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网