求助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：

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

最新问答

超威6-DZM-12电动车专用电池需要加水吗?

谁能告诉我天天基金网卖出基金给的这三个选项是什么意思啊？是不是无论选哪个我的基金收益都会没了？？

身上长红点很痒像蚊子咬的一样

WIN10安装不了Microsoft Visual C++ 2015 RC Redistributable (x64)

我在中信买了一份理财保险一年的,过了3个月了,打电话说要做一份风险评估

一首韩语歌，女声，节奏挺快的，有一句歌词是你已经把我的样子忘了吧？叫什么名字？