翻倍黑马网站:还是 VB 中的几个问题……

来源:百度文库 编辑:高校问答 时间:2024/04/29 09:48:10
一、我是个菜鸟,希望有人帮我把下面的代码写全面一点,谢谢

'在窗体里加入一个按纽,命名为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()
'在这里添加窗体移动的代码
Print Me.Top & " " & Me.Left
End Sub

二、数组中有N个数据,要由大到小输出……?
主要是想知道大家怎么对数据进行排序的
请大家给些例子,谢谢

三、安装 OFFICE XP 后会有个 OWC10.DLL 控件……
我不知道怎么设置这个控件中单元中的数据格式,我想要的是文本格式。
在导出后别人说看不懂啊,55555555
就是因为单元格格式的问题,哎
w_binglong 你说的这是什么意思啊?看来你是说没有悬赏分就没人回答了?
那你觉得回答这些问题要给多少分呢?大家都不要求给分就回答别人的问题不是很好?要是人人都要分,那没分的人的问题谁来回答啊?
算了,这些问题我就先给 40 分吧。

还是 VB 中的几个问题……

看到下面这些,你不觉得很不对称吗???

悬赏分:0

悬赏分:0

悬赏分:0

悬赏分:0