求助VB，急用

2024-11-28 15:44:49

推荐回答（3个）

回答1：

这个是求救，这是任务？

回答2：

VB2010的可以吗？
1）
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If UCase(Replace(Trim(Text1.Text), vbCrLf, "")) <> "END" Then
Open "d:\t1.txt" For Append As #1
Print #1, Text1.Text
Text1.Text = ""
Close #1
Else
Text1.Text = ""
End If
End If
End Sub

回答3：

我也同求大神，来个脚印下次好找

最新问答

s7-300中RLO与BR的区别？

我是2011年黑龙江的文科考生，我想问一下2表b多少分啊？我考了440，报了黑大的2b不知道有没有戏？

哪些在泉州在鲤城区正市区，哪些学校好

人事专员具体要做哪些工作？

家里3层楼顶装了水塔，3楼水很小。

西方经济学中的LMC和SMC分别代表什么意思