萬惡的VB6,不上偵錯程式都不知道咋回事

2021-06-06 19:21:28 字數 1086 閱讀 3186

tmenu是個232自己的結構,想把file物件的內容用copymemory拷貝到這個區域,結果...沒搞明白.

private sub command1_click()

dim mobj as tmenu, b as string

dim pmenu as long, ret as long

dim mmenu as menu

set mmenu = file '這裡小心

pmenu = varptr(mmenu)

copymemory pmenu, byval pmenu, 4&

copymemory mobj, byval pmenu, lenb(mobj)

end sub

private sub command2_click()

dim mobj as tmenu, b as string

dim pmenu as long, ret as long

copymemory pmenu, byval varptr(file), 4& '這裡非常小心

copymemory mobj, byval pmenu, lenb(mobj)

end sub

private sub command3_click()

dim mobj as tmenu, b as string

dim pmenu as long, ret as long

dim mmenu as menu

pmenu = varptr(file)

copymemory pmenu, byval pmenu, 4& '這裡非常小心

copymemory mobj, byval pmenu, lenb(mobj)

end sub

這三個過程,cmd1和cmd2效果相同,cmd3失敗了,nnd,vb把物件釋放了,釋放的太及時了.

cmd1用了參考,通過參考能到物件,而參考要到過程結束才用了_vbafreeobj

cmd2為什麼和cmd1效果相同.第乙個copymemory之後才用了_vbafreeobj

cmd3在第乙個varptr之後立即用了_vbafreeobj

理解起來還真難.

萬惡的英語

entity en ti ty ent t n.實體 本質 存在 attribute at trib ute tr bju t n.屬性 標誌,象徵 特質,特性 定語 v.歸於,屬於 perspective per spec tive p r spekt v p s n.遠景,透視,看法 take ...

萬惡的英語

entity en ti ty ent t n.實體 本質 存在 attribute at trib ute tr bju t n.屬性 標誌,象徵 特質,特性 定語 v.歸於,屬於 perspective per spec tive p r spekt v p s n.遠景,透視,看法 take ...

萬惡的中介

中介者模式 鬥地主 using system.collections.generic region 主程式 public class 鬥地主 endregion 乙個牌局 中介者 public class mediator 倍率 public int multiple 加入 public bool ...