调用按钮的代码:
sub click(source as button) 【程序编程相关:WinCE嵌入式开发程序入门】 【推荐阅读:Windows CE开发之起步停车】 dim w as new notesuiworkspace 【扩展信息:Windows CE串口通讯类的实现】 dim ui as notesuidocument dim jinestr as string set ui = w.currentdocument call ui.refresh jinestr = ui.fieldgettext("jine") call ui.fieldsettext("dxje",turnresult(jinestr)) call ui.refresh end sub 换算函数 function turnresult(numstr as string) as string dim digi as integer dim numlen as integer numlen = len(numstr) intstr = left(numstr,(numlen - 3)) 取整数部分 digstr = right(numstr,2) 取小数部分 numlen = len(intstr) digi_old = 9 处理整数部分转换 while numlen <> 0 digi = cint(left(intstr,1)) if numlen<5 then 完元以下的换算 ... 下一页