这里我们主要简单的讨论一下，如何从Windows资源管理器中拖动一组文本，然后将它们拖放到一个文本框控件中就可将文件全部打开。 为了说明这一点，以下过程可用一个文本框控件以及OLEDragOver和OLEDragDrop事件，并用DataObject对象中的Files属性和vbCFFiles数据格式打开一组文本文件。 首先在Visual Basic中启动新的工程。向窗体添加一个文本框控件并将其OLEDropMode属性设置为"手工"。将MultiLine属性设置为True，将ScrollBars设为2-Vertical,并清除Text属性 代码如下： Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Intege...

//函数名:f_dwsort(datawindow fdw_dw,dwobject fdwo_dwo) return none//说明:用于在数据窗口中模拟资源管理器鼠标单击动作动态排序,并显示排序箭头//调用规则:在数据窗口控件clicked!中写入f_dwsort(this,dwo)//参数:fdw_dw datawindow// fdwo_dwo dwobject//返回值:无//autor:xiaoluoxy萧云String ls_clicked_pos,ls_col,ls_format,ls_tagLong ll_posstring ls_text,ls_column[]int li_ils_clicked_pos = fdwo_dwo.Namell_pos = Pos(ls_clicked_pos,'_t')If ll_pos >0 Then//设置排序ls_col = Left(ls_clicked_pos,ll_pos -1)ls_tag = fdwo_dwo.tagIf ls_tag = ls_col + "A" Thenfdwo_dwo.tag = ls_col + "D"...