编程获得系统错误信息提示

时间： 2021-07-31 作者：daque

很多编制程序喜好者在vb的api编制程序中常常遇到api挪用中的缺点代码(error code,在api挪用中遇到缺点时运用getlasterror因变量不妨获得)。然而很多的功夫缺点代码并没有多大用途，由于你并不领会代码所代办的含意。而本质上，在windows中为每个缺点码供给了一个缺点提醒，而且符合各别的谈话本子（既即使你运用华文版windows，提醒也是华文的）。只有经过api编制程序就不妨赢得精细的缺点提醒。底下经过步调来引见，运转底下的步调，开始要在form中介入一个listbox和commandbutton 在将底下的代码介入到form的代码窗口中。 private declare function formatmessage lib "kernel32" _ alias "formatmessagea" (byval dwflags as long, _ lpsource as any, byval dwmessageid as long, _ byval dwlanguageid as long, byval lpbuffer _ as string, byval nsize as long, arguments as _ long) as long private declare function getlasterror lib "kernel32" _ () as long private declare function closehandle lib "kernel32" _ (byval hobject as long) as long const format_message_from_system = &h1000 const format_message_ignore_inserts = &h200 private sub command1_click() dim errid as long dim astr as string dim bstr as string dim l as long astr = string$(256, 20) '赢得简直的缺点消息 for errid = 0 to 8191 l = formatmessage(format_message_from_system or _ format_message_ignore_inserts, 0&, errid, 0&, _ astr, len(astr), byval 0) if l then bstr = left$(astr, instr(astr, chr(10)) - 2) '将缺点消息加出列表框 list1.additem str(errid) + " " + bstr end if next errid end sub 运路途序，点击command1，缺点代码和向对应的缺点提醒消息就十足列在listbox中了。之上步调在win95,vb5.0下运转经过。

编程获得系统错误信息提示

相关推荐

推荐下载

热门阅览

最新排行