- 博客(3)
- 收藏
- 关注
RSS订阅原创 用退格键,删除键整体清除文本框中某一字符串
只删除mn形式的，而且是一个一个地删，比如有信息"m01m02m03backspace"按退格键的时候，先删除e,然后挨个删除，到了m03，将它整个删除，接着m02，最后m01Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer)Dim s, tmps = Text1.SelStart + 1: tmp = Text1If
2006-12-14 12:45:00
2663
原创 一客户端多服务端UDP本地连接代码(同时发送)
Option ExplicitDim iPrivate Sub Form_Load() winsockclient.RemoteHost = "127.0.0.1" winsockserver1(0).RemoteHost = "127.0.0.1" winsockserver1(0).RemotePort = "1002" winsockserver1(0).Bind 1
2006-12-11 20:56:00
1226
原创 一句代码，实现在文本框中仅能键入数字和字母组成的字符串
Private Sub Text1_KeyPress(KeyAscii As Integer)If Not (Chr(KeyAscii) Like "[a-zA-Z0-9]" Or KeyAscii End Sub
2006-12-09 11:16:00
150
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人