您的位置：程序门 -> vb -> 基础类

用dragdrop或dragover怎么解决我这个问题？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

用dragdrop或dragover怎么解决我这个问题？[已结贴,结贴人:mosquitochensaihu]

发表于：2008-01-01 12:18:37 楼主

我现在有两个text，分别是text1和text2，现在我要实现的是：如果我将text1控件拖到text2控件位置放开后，就把text1.text和text2.text进行交换（是两个text的内容交换，空间位置还是不变），我不知道应该怎样来实现，请高手指点啊，
如果text不能实现的话，可以用picture或command来代替text，我只要拖动后空间上显示的内容呼唤就可以了

发表于：2008-01-02 09:57:321楼得分:20

vbscript code

option explicit

private sub form_load（)
    text1.dragmode = vbautomatic
end sub

private sub text2_dragdrop（source as control, x as single, y as single)
    dim s as string
    if source is text1 then
        s = text1.text
        text1.text = text2.text
        text2.text = s
    end if
end sub

下一篇：复选框问题？
上一篇：vba的开发环境是哪一个？vb6能全包括vba吗？

其他资讯