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 ...