永发信息网

VB 中的四个问题,大家帮帮我,急用……

答案:2  悬赏:70  手机版
解决时间 2021-02-23 22:16
一、OWC10.DLL 控件如何设置单元格数据的格式、导出到或导出为EXCEL后的格式以及如何清空OWC10.DLL所有单元格中的数据。(注:好象是安装了 OFFICE XP 才有这个控件,在 VB 中使用后会有像 EXCEL 一样的表格)

二、如果有 X 个数据,如何把它们由大到小排列,或者按它们的 ASCII 码由大到小排列。

三、VB 的窗体有没有 MOVE 事件或是其它可以代替的事件或办法等?我想在移动窗体的过程中调用某个子程序。

四、VB 中有 ON ERROR GOTO XXXX 和 ON ERROR RESUME NEXT 语句,但如果我想在发生错误时调用个子程序,子程序执行完后并不影响程序代码的运行顺序(如:ON ERROR CALL MySub() ,随便写的,只是为了让你们明白我的意思),即执行 ON ERROR CALL MySub() 并调用子程序 MySub() 后又接着从 ON ERROR CALL MySub() 这一句后面继续运行。

第二个问题和第一个没有联系的,我再解释一下:数组中有若干个数据,我想把它们由大到小输出到窗体上怎么排序?
最佳答案
1.清除数据Me.Spreadsheet1.Cells.Clear
导出数据me.Spreadsheet1.Export()
2.排序 Me.Spreadsheet1.Cells.Sort()
3.在窗体里加入一个按纽,命名为EventBn 利用EventBn_click()事件来实现对窗体移动事件的处理/
模块代码如下:
public Oldproc as long
public BnHwnd as long
public function Newproc(byval hwnd as long,byval msg as long,byval wp as long, byval lp as long) as long
if msg=wm_move then '捕获窗体移动事件
sendmessage BnHwnd,wm_lbuttondown,1,0
sendmessage BnHwnd,wm_lbuttonup,1,0将消息发送到按纽,使其发生CLICK事件
end if
newproc= callwindowproc(oldproc,hwnd,msg,wp,lp)
end function
窗体内代码:
private sub form_load()
BnHwnd=EventBn.hwnd获得按纽句丙
Oldproc=setwindowlong(me.hwnd,gwl_wndproc,addressof Newproc)
end sub
private sub EventBn_click()
在这里添加窗体移动的代码
end sub
4.只要这样就可了
private Sub mm()
On Error GoTo merr
a = 10 / 0
MsgBox "asfd"
Exit Sub
merr:
call mySub()
Resume Next
end sub
全部回答
没看懂什么意思?
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
近年国外对白族的研究
求一首粤语歌!有句好像是“谁是真英雄,留在
想学习六爻和四柱预测,入门级的和深入级的那
硬面酵子馍怎么去啊,有知道地址的么
丽水是什么意思
下列说法中不正确的是( )。A.内含报酬率是能
潍城区福利院能安装移动宽带
清华阳光教育这个地址在什么地方,我要处理点
长方形的面积为256cm²,将长缩小原来的¼,
美脚传说的种子啊!有的发来下!非常感谢!
老板不让员工泄露自己的工资,也不让打听其他
中国邮政储蓄银行夏邑县火店乡营业所我想知道
苹果手机怎么重装系统 苹果5s怎么重装系统
查看邮件英文怎么说如题(抱歉手机发的不太方
个人信息中是什么不可以一起告诉别人的
推荐资讯
【heats】Therate__atwhich___amaterialheats
河源镜花缘和野趣沟在同一个地方吗?
对三国演义中孙权这个人做如何评价?
想买台笔记本电脑 不知道要怎么选
厨房墙上挂件怎样才贴牢
通过3389端口扫描出Ip过后该怎么办?
顺丰真他妈差劲,一件货从北京到南京到五天时
网上购物的软件可以领劵换东西
454.9456的平方根是多少,没得用小数表示,取近
先科蓝牙音响,声音开小了有噪音怎么回事
西藏定日县的海拨高度是多少?
下列家庭小实验中不涉及化学变化的是DA. 将食
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?