我想知道的是下面的这段代码中 1,If Trim(Text2) = vbNullString Then Last_Line_Feed = 0 中的vbNullString 的意义 2, Last_Line_Feed = Text2.SelStart 怎么就能重设最后输入行的位置 多谢各位大侠帮忙指点
'接收TEXT2输入框的按键,并做响应
Private Sub Text2_KeyPress(KeyAscii As Integer)
'定义变量 Last_Line_Feed 来记录最后输入行的位置
Static Last_Line_Feed As Long
'定义 New_Line 字符串记录新键入的一行文本的内容
Dim New_Line As String
'如果使用者按下CLEAR按钮对输入框内容清空,这时TEXT2为空,则重设最后输入行的位置为0
If Trim(Text2) = vbNullString Then Last_Line_Feed = 0
'当使用者按下ENTER键时
If KeyAscii = 13 Then
'取得最后输入行的内容并赋值给 New_Line 字符串
New_Line = Mid(Text2, Last_Line_Feed + 1)
'重设最后输入行的位置
Last_Line_Feed = Text2.SelStart
'通过 WINSOCK 发送新输入的一行文本的内容
Winsock1.SendData New_Line
'在状态栏显示发送信息
StatusBar1.Panels(2).Text = " 发送 " & (LenB(New_Line) / 2) & " byte的消息 "
End If
End Sub
你好,请问,是不是Text2.SelStart 没有选择时为TEXT2中光标所在的位置
还有就是这个vbNullString与"" 有什么区别啊,多谢
vbNullString表示不存在字符串,
""表示字符串是空的。
Text2.SelStart 没有选择时为TEXT2中光标所在的位置
是的!
哦,明白了.多谢了,麻烦再帮我解释一下,这个已是题外了.呵呵
下面这句Text1.SelText = New_Text就能在TEXT1显示框中显示New_Text的内容.seltext怎么理解
Winsock1.GetData New_Text
'在TEXT1显示框中显示新接收到的信息
Text1.SelText = New_Text
这句Text1.SelText = New_Text 能在TEXT1显示框中显示New_Text的内容,这句运行添加一次,之前的文字不会被清除.seltext表示选择的文字,这时文字的底色是蓝色的。
在TEXT1显示框中显示New_Text的内容,用这句比较好一点
Text1.Text = New_Text
为什么啊,还是有些不明白,像那个text1.text=new_text这个好理解.可Text1.SelText = New_Text还是不明白啊.呵呵,麻烦麻烦