vb讓陣列合成高4位,低4位的形式

時間 2022-03-21 13:15:16

1樓:遠風的夢想家

private sub command1_click()dim h as integer

dim l as integer

h = &h123

l = &h456

print hex(makeparam(h, l))end sub

private function makeparam(byval h as integer, byval l as integer) as long

dim r as string

r = string(4 - hex(h), "0") & hex(h) & string(4 - hex(l), "0") & hex(l)

'必須用len,vb6.0裡不支援任何移位運算,到了.net才有這樣的運算型別

2樓:匿名使用者

我的辦法是這樣的:

雖然笨了點兒,但這方法比較可靠。

例如座標為x,y

就行了,

對於x,y的提取,用len判斷長度,然後mid方式安位取數,去掉第一位和最後一位括號,然後判斷是否為逗號,是則將逗號前面的資料賦值給x,後面的賦值給y,然後繼續用我那方法。嘿嘿

3樓:棘棘芽

這位同志,回答之前先說下,按你上面的資料,是一個long型的

也就是4位元組有,你說的只是前二位元組和後兩位元組,按位算的話是,前16位,後16位

function myfun(l2byte as integer, r2byte as integer) as long

end function

好了,已經通過 vb6

下面是我試的,兩種方法copymemory 才算真正的,哈

option explicit

private declare sub copymemory lib "kernel32" _

alias "rtlmovememory" (destination as any, _

source as any, _

byval length as long)

function myfun(l2byte as integer, r2byte as integer) as long

end function

function myfun2(l2byte as integer, r2byte as integer) as long

dim s as long

copymemory s, r2byte, 2

copymemory byval varptr(s) + 2, l2byte, 2

myfun2 = s

end function

private sub form_paint()

end sub

求韓國SISTER這個組合成員名字

孟佳 0 6 3 1 2 3 出生年月 1990 2 3 身高 165 體重 45kg 暱稱 棍子。愛好 跳舞,笑。喜歡吃的東西 米粉 籍貫 中國湖南。學歷 首都師範大學北京現代 研修學院現代歌舞系06級 只在現音讀了半年就去韓國了 黃以霏 6 2 3 3 5 1 3 3 小霏 黃以霏 舞蹈同樣很強...

韓國神話組合成員 神話組合的成員資料。

隊長 eric minwoo 李珉宇 dongwan 金東萬 hyesung 李志勳 junjin 前進 andy 神話組合的成員資料。韓國神話組合成員 及其簡介?神話組合的成員資料。神話組合成員哪些 eric mun eric 是英文名,本名是 文晸赫 kim dongwan 金烔完 這也是本名,...

fx組合都有哪些成員,fx組合成員有哪些人 f(x)組合各個成員資料照片

宋茜 隊長 victoria luna amber 崔雪莉 sulli 鄭秀晶 krystal 水晶是我最愛哦 哈哈 3 親多多支援f x 吧 哈哈函式團大發大發 宋茜 劉逸雲 鄭秀晶 崔雪莉 樸善憐 fx組合成員有哪些人 f x 組合各個成員資料 fx裡都有哪些成員 victoria 宋茜 amb...