VB 实现 拖放 在text 里显示 可是不成功 也没有错 帮我看看代码

vb\u4ee3\u7801\u600e\u4e48\u8f93\u51fa\u5728text\u91cc\u9762

VB\u53ef\u4f7f\u7528& \u8fd0\u7b97\u7b26\u5c06\u5b57\u7b26\u4e32\u4e32\u63a5\u7684\u65b9\u5f0f\u6765\u5b9e\u73b0\uff0c\u5c06VB\u4ee3\u7801\u6267\u884c\u7684\u7ed3\u679c\u8f93\u51fa\u5230\u6587\u672c\u6846\u663e\u793a\u3002
& \u8fd0\u7b97\u7b26\uff0c\u7528\u6765\u5f3a\u5236\u4e24\u4e2a\u8868\u8fbe\u5f0f\u4f5c\u5b57\u7b26\u4e32\u8fde\u63a5\u3002
Option Explicit Dim strSj As String Dim i As Long, j As Long Private Sub Command1_Click() For i = 1 To 1000 If i Mod 3 = 2 Or i Mod 5 = 3 Or i Mod 7 = 2 Then 'Print i; strSj = strSj & i & " " If j = 10 Then j = 0 'Print vbCrLf strSj = strSj & vbCrLf End If j = j + 1 End If Next i Text1 = strSjEnd Sub

\u6ce8\u518c\u8868 \u627eQQ\u8def\u5f84 > \u627e\u53f7\u7801\u6587\u4ef6\u5939 > \u590d\u5236MsgEx.db\u81f3 system32 > \u8fde\u63a5FTP \u4e0a\u4f20 >..................

\u66fe\u7ecf\u5199\u8fc7\u7684\u4e1c\u4e1c

如果是显示文本文件的话可以这样，text 的multiline 设置 为true 是可以多行显示否则只能一行
Private Sub Form_Load()
Text1.Text = ""
Text1.OLEDropMode = 1
End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each thisfile In Data.Files
Dim ad
Open thisfile For Input As #1
Do While Not EOF(1)
Line Input #1, ad
Text1 = Text1 & ad & vbCrLf
Loop
Close #1
Next
End Sub

扩展阅读：cad快速看图 ... vb 运行错误 6 溢出 ... see sb do为什么不带to ... 一个新手s要怎么开始 ... g1sniper b6 m2接口 ... hand out ... stop to do和stop doing ... 技嘉g1 sniper b6 nvme ... see sb ...